Příspěvky uživatele


< návrat zpět

Stejně moc děkuji, aspoň se nám podařilo identifikovat, ve kterém místě se zádrhel nachází. Teď se alespoň mohu pokusit hledat odpověď. Předtím jsem netušil, kde je problém, i když odkrokovat si to ... no mělo mě to napadnout, než jsem sem vlezl 1

Předpokládal jsem, že když se ten problém vyskytuje už při otvírání, že zbytek kódu není potřeba... Neřeším přece, že by to bylo obecně pomalé.

Přikládám v texťáku

Ano, dlouho trvá už jen to otevření. Samotný zbytek kódu už běží rychle. Co může způsobit, že se xml najednou spouští dlouho?

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)

r13:
a) ten formát xls je tam historicky, původní sešity jsem zdědil a postupně hodně upravil. Nenarazil jsem na žádný problém s tímto formátem, proto tam pořád je. Při otvírání žádné upozornění nevyskakuje. Zkoušel jsem i ručně otevřít, otevře se jako každý jiný soubor.
b) Zpracovává se odděleně, protože soubor data má více využití ne jen pro sešit rozpočet.

eLCHa:
I tak děkuji za čas strávený nad mým dotazem. I vaše odpověď je pro mě dostatečná. Znamená to, že tam nenastává nějaká triviální očividná situace, která zkušeného okamžitě napadne a mně je neznámá. Chápu, že v takovém případě není co řešit.

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ěkuji

Dobrý den,
chtěl bych poprosit o hodně "obecnou" radu. Nejde mi o konkrétní řešení, ale spíše o navedení, na co se zaměřit.

Mám sešit s makry, který prochází složku s xml soubory, tyto soubory otevírá, zpracovává a zase zavírá. Výsledkem je xls soubor vstupních dat natáhnutých z těchto xml. Rychlost samozřejmě závisí na množství xml, ale obecně se pohybuji kolem 5-30 vteřin.

Pak mám druhý sešit, který tato data načítá a dál s nimi pracuje. Tyto dva sešity jsou na sobě tedy nezávislé. Jeden data generuje a druhý je používá.

V případě, že mám ale tyto dva sešity otevřené zároveň, trvá zpracování souborů xml souborů mnohem déle. Řádově minuty (5 min).

Nemůžu tyto sešity nasdílet, jsou to interní účetní data, ale pokud by někdo dokázal obecně říct, proč otevřený sešit, který zrovna není používán může zpomalit běh makra v jiném sešitu, hodně by mi to pomohlo.

Mám excel 2016, procesor i5-4590S 3 GHZ a 16GB RAM.

Díky

Zkusil jsem, ale nepomohlo to.
Myslím, že problém je v tom příkazu Call ZavriPristupy (ten jen zavře zdrojový excel bez uložení).

Odkrokoval jsem celé makro a formulář se na konci normálně správně zobrazil. Pak jsem to zkusil i tlačítkem a taky to najednou fungovalo. Formulář se zobrazil.

Otevíral jsem ribbon ze souboru doplněk. Když to fungovalo, nahrál jsem tedy doplněk do složky addin a nastavil načtení doplňku po otevření souboru (takže muj ribbon je ve všech excelech) a formulář se dál zobrazoval, ale bez načtených dat (listboxy byly prázdné). Zkusil jsem přehodit příkaz show hned za CSOB_Ribbon, který data načítá a za ním zůstal příkaz na zavření zdrojového excelu. Tím jsem dosáhl toho, že formulář po otevření hned zmizí. Když jsem poradí vrátil tak, že příkaz .show je na konci, tak se formulář zobrazí, ale prázdný 7

Zkoušel jsem jen odmazat vbmodaless.
Původně bylo volání formuláře v CSOB_Ribbon jako poslední položka (v tom formátu, jak je odstavec níže, tedy ještě s úpravou parametrů formuláře). Později jsem ho přidal přímo do tlačítka, viz níže

Public Sub CSOB_spust(control As IRibbonControl)
Application.ScreenUpdating = False
Call OtevriPristupy
Call CSOB_Ribbon
Call ZavriPristupy
Application.ScreenUpdating = True

Pristupy.MultiPage1.Value = 0
Pristupy.Show vbModeless
With Pristupy
.Height = 533
.Top = 40
.Left = Application.Width - Pristupy.Width - 10
End With
End Sub

vystup = Sheets(1).Range("B1") & Sheets(1).Range("C1") & "xxx"

mám jen jeden

Ahoj,
zpracovávám formulář vba a narazil jsem na problém, se kterým jsem se dříve nesetkal.

Popis kroků:
1. Otevřu zdrojový soubor.xlsx
2. Načtu z něj data do formuláře.
3. Zobrazím formulář
4. Zavřu zdrojový soubor.xlsx

Formulář je multipage (5 page) s pár tlačítky
Celé jsem to tvořil v excelu 2007. Makro volám z vlastního tlačítka ve vlastním ribbonovém pásu.

Teď ten problém. V excelu 2007 a 2010 mi to funguje naprosto bez problému, vše jak má. V excelu 2013 formulář jen problikne, ale nezobrazí se, resp. nezůstane viditelný (používám příkaz formular.show vbmodeless).
Stejně tak v 2007 dobře funguje příkaz, kdy stisk tlačítka zkopíruje text do schránky a maximalizuje prohlížeč chrome, zatímco 2013 funguje jen když je chrom na obrazovce (z lišty ho nevyvolá - používám příkaz Appactivate.

Nevíte někdo, kde by mohl být problém? Kdyby to nefungovalo vůbec, tak by mi to až tak překvapivé nepřišlo, ale že to nejde jen v konrétní verzi excelu, tomu nerozumím.
Na všech testovaných PC je win7. Excel 2013 jsem zkoušel na dvou PC, problém je na obou.

Jiné formuláře nám fungují ve všech verzích.

Díky za případné nápady


Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

ADO DBF/FoxPro

Barth • 11.8. 17:50

Automaticke vlozenie riadku aj v druhom Zosite

danis • 11.8. 17:28

Macro pro leteckou dopravu

Jiří497 • 11.8. 17:15

Macro pro leteckou dopravu

Nosal • 11.8. 13:00

Macro pro leteckou dopravu

Jiří497 • 11.8. 11:45

Macro pro leteckou dopravu

Nosal • 11.8. 8:14

Macro pro leteckou dopravu

Jiří497 • 10.8. 21:35