MS Excel

Mám hlavní soubor (*.xlms), ve kterém má list "dataTAB", na kterém jsou "zdrojová data". Tento list je ve formátu "tabulka", použil jsem na doporučení zde z fóra. Před každou aktualizací dat odstraním všechny řádky, kromě prvního (aby jsem si uchoval vzorce v počítaných sloupcích).
Pak z účetního SW vždy vyexportuji data ve formátu XML (je to rychlejší než přímo do formátu excel).Následně se mi otevře nový sešit v excelu, ve kterém jsou takto exportovaná data. Data označím a vložím "jako hodnoty" do listu "dataTAB". Zkopíruji vzorce do všech řádků a zaktualizuji všechny konti tabulky tímto makrem:
Sub AktKT()
Dim PT As PivotTable
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
For Each PT In WS.PivotTables
PT.RefreshTable
Next PT
Next WS
End Sub

Stačí takto popsané?
Sloupců mám noho, protože využívám všechny k různým pohledům.citovat

@eLCHa: ad Pokud je třeba oprava vzorce, můžete ji provést ve kterémkoliv řádku a vzorce se opraví v celém sloupci

toto je možné v ExcelTable potlačiť, nový vzorec potom môže byť len v konkrétnom riadku a nemusí sa prepísať do celej tabuľky. To by mohla byť príčina problému, na ktorý naráža Alfan. Berte to len ako možnosť, netvrdím, že to tak v tomto konkrétnom prípade je.citovat

@AL
už je to bezpředmětné, ale řekl bych, že ze 100 uživatelů
50 nepoužívá tabulku (excel-table)
30 používá, ale je ani nenapadne, že se to dá vypnout
10 si řekne, že to možná jde, ale nikde to nevidí, tak se nakonec připojí k těm 30
5 si řekne, že to určitě jde, ale nenajdou, bo je to fakt dobře schované
a těch chytrých 5 co to najde si zase řeknou, že snadnější než to vypnout je převést tabulku zpět na rozsah a pro další tabulku si to nechat zapnuté ;))citovat

Asi takto nejako som to mal na mysli. Musel som použiť vytvorenie a zmazanie pomocného dočasného listu pre import, lebo mi stále nechcelo nastaviť tabuľku do importovanej oblasti a opačne. Možno len treba inak zmazať Connection, ako som sa snažil ja. Takže zatiaľ takto. Je to zatiaľ koncipované len na CSV s jedným stĺpcom (cca 25000 Rows). Pre Vaše potreby to treba upraviť na požadované parametre.citovat

@elninoslov
s tím nejnovějším datem je to dobrý nápad
zběžně jsem koukal na Váš kód - jak píšete chce to ještě doladit
používáte fso pro zjištění nejnovějšího souboru - tady to není potřeba, stačí použít Dir + FileDateTime

Dal jsem si ranní rozcvičku

Pokud si uvědomíme, že csv je textový soubor, pro načtení dat bych naopak fso použil - stejně jako u Vás soubor není třeba otevřít, nevytvářím žádný dočasný list ale hlavně dodržuji zásadu co nejmenšího počtu přístupů na list - vše dělám v kódu a to jej značně zrychluje. Na list tak přistupuji pouze 2x - mazání starých dat a zápis nových (přímo do tabulky)
Ve Vašem kódu navíc něco způsobuje resize tabulky (rozšířil jsem ji o 3 sloupce a stále se vrací na 7)

Bohužel se mi nepovedlo (zatím) vymyslet, jak to udělat v jednom cyklu, proto jsem musel jet cykly 2 a využít dočasné pole.

V csv souboru jsem přidal záhlaví (které předpokládám) a rozšířil ho na 142831 řádků a 4 sloupce. Myslel jsem si že budu kvůli druhému cyklu delší než Vy, ale zas tak hrozné to není - můj kód jel 16s a Váš 13. Pokud by v něm byly další listy se vzorci, bude se to patrně přiklánět na stranu mého řešení.

Neberte jako kritiku, ale jako diskusi ;)

Sub subImportCSV()
Dim sFileTemp As String
sFileTemp = Dir(ThisWorkbook.Path & "\*.csv")

Dim sFile As String, dFileTime As Date
While Not sFileTemp = vbNullString
If FileDateTime(ThisWorkbook.Path & "\" & sFileTemp) > dFileTime Then
sFile = ThisWorkbook.Path & "\" & sFileTemp
End If
sFileTemp = Dir
Wend

If Not sFile = vbNullString Then
Dim vValuesTemp() As Variant
ReDim vValuesTemp(0)

With CreateObject("Scripting.FileSystemObject").OpenTextFile(sFile)
.ReadLine 'záhlaví

While Not .AtEndOfStream
If Not IsEmpty(vValuesTemp(0)) Then
ReDim Preserve vValuesTemp(UBound(vValuesTemp) + 1)
End If
vValuesTemp(UBound(vValuesTemp)) = Split(.ReadLine, ";")
Wend
.Close
End With 'CreateObject("Scripting.FileSystemObject").OpenTextFile(sFile)

Dim vValues() As Variant
ReDim vValues(UBound(vValuesTemp), UBound(vValuesTemp(0)))
Dim i As Long, j As Long
For i = 0 To UBound(vValues, 1)
For j = 0 To UBound(vValues, 2)
vValues(i, j) = vValuesTemp(i)(j)
Next j
Next i

With ActiveSheet.ListObjects("DataTab").DataBodyRange
If .Rows.Count > 1 Then
.Offset(1, 0).EntireRow.Delete
End If
.Cells(1).Resize(UBound(vValues, 1) + 1, UBound(vValues, 2) + 1).Value = vValues

End With 'ActiveSheet.ListObjects("DataTab").DataBodyRange
Else
MsgBox ("Neexistuje žiadny .csv súbor.")
End If
End Subcitovat