MS Excel

Já vím, že je to střelba na slepo a těžko mi poradit. Beru to jen jako pokus, jestli se třeba náhodou netrefíme, protože sám na to nepříjdu, nedává mi to smysl. Přepočtem to být asi nemůže nebo ne tak jednoduše. Upřesním jak to probíhá a soubory pojmenuji, ať se to lépe popisuje. Ten funkční způsob je:

1. Otevřu generátor.xlsm a ten zpracuje xml a uloží soubor data.xls
2. Zavřu generátor
3. Otevřu rozpočet.xlsm a ten si otevře data.xls a pomocí makra si data načte k sobě na list.

A ty body 1 a 2 trvají těch cca 10 vteřin.

Ten nefunkční způsob (pomalý) je:
1. Otevřu rozpočet.xlsm
2. Otevřu generátor.xlsm a ten zpracuje xml a uloží soubor data.xls
3. Zavřu generátor
4. Načtu data na list do rozpočtu pomocí makra.

A už ten bod 2 trvá těch cca 5 minut.

Přitom ten rozpočet.xlsm do toho zpracování nijak nevstupuje. Data má u sebe na listu a dokud nepustím makra, nic nedělá.

Proto mě to tak mate, protože mi připadá, že by neměl být rozdíl, jestli mám otevřený další sešit, když do toho nijak nevstupuje. Ale rozdíl 10 vteřin vs 5 minut je ohromný a tak mi to vrtá hlavou. Není problém ten rozpočet pokaždé zavřít, ale na druhou stranu to někdy aktualizuji víckrát a je otravné rozpočet pokaždé zavřít a zas otevřít a když zapomenu, tak 5 minut je ztráta času

Budu rád, za každý nápad a moc děkujicitovat

No asi takhle. Trefovat se nebudu, chcete-li pomoct, vložte přílohy a někdo se na to koukne.

Na Vašem místě bych to ale zkusil - nic tím nezkazíte a třeba to pomůže (i když Vám to nedává smysl).

Další možností je (a za mně lepší možností), že si ten generátor otevře svou vlastní skrytou instanci excelu a pracuje v ní. Pak to bude nezávislé, i když jsou oba otevřené.citovat

r13:
nečekal jsem, že by krokování mohlo něco objevit, ale měl jste pravdu. Vypadá to, že se to tak moc zdrží při otvírání toho xml souboru. Otázka stále zní, proč se to ale chová jinak když je otevřený soubor rozpočet, který do toho nevstupuje a jinak když otevřený není.

Ten poslední řádek je to místo, kde se na dlouhou dobu makro zastaví a načítá xml. Pořád ale nechápu, proč by tu dobu měl ovlivnit otevřený další soubor.

Dim wsSeznam As Worksheet
Dim wbMakro As Workbook
Dim iFile As Integer
Set wsSeznam = Worksheets("seznam")
Set wbMakro = ThisWorkbook

konecradku = wsSeznam.Cells(Rows.Count, "A").End(xlUp).Row

Application.ScreenUpdating = False

'zkopirovani potrebnych sloupcu z xml souboru do noveho listu a jeho uprava
For iFile = 1 To konecradku
cesta = wsSeznam.Cells(iFile, 1).Value

If wsSeznam.Cells(1, 1).Value = "" Then
End
End If

Application.DisplayAlerts = False

Set xmlSoubor = Workbooks.OpenXML(cesta, , xlXmlLoadImportToList)
citovat

Ono to totiž vyzerá, že ten cyklus rieši toľko otvorení a spracovaní, koľko je riadkov v aktuálnom hárku.
Krokoval si aj vo vnútri cyklu iFile?
Dlho trvalo už len otvorenie prvého súboru?
Ošetrenie na otvorenie xls tam máš (DisplayAlerts=False)citovat

Prehliadol si požiadavku o zaslanie pokračovania kódu po riadok s príkazom Next iFilecitovat