MS Excel

Prosím, mám takový problém.
Potřebuji kopírovat cca 10 000 řádku dat z 110 xlsx sešitů.
Používám tento postup:
oZdroj.Range("D1:Z200").Copy
oCil.Range("J5").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= False, Transpose:=True
Po uzavření oZdroj se při Application.DisplayAlerts = true ukáže hláška a tu když ručně odklikávám "Ne" tak to funguje, jenže jak použiji Application.DisplayAlerts = False tak po cca copy 2500 řádku excel nic nřekne a restartuje se. Nenapadá někoho něco?
Diky

Zaslat odpověď >

Lugr(19.4.2022 13:45)#052546

Zkoušel jsem tento kód a je to v pohodě.

Dim wsZDROJ As Worksheet
Dim wsCIL As Worksheet

Set wsZDROJ = Worksheets("List1")
Set wsCIL = Worksheets("List2")

Application.ScreenUpdating = False
wsZDROJ.Range("D1:Z200").Copy
wsCIL.Range("J5").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
Application.ScreenUpdating = Truecitovat

elninoslov(19.4.2022 14:11)#052547

Potrebujete skutočne použiť Copy+Paste? Potrebujete aj vyfarbenie, orámovanie a pod? Nestačili by Vám iba hodnoty v bunkách? V 99,9% prípadov je to tak. Potom by bolo získanie hodnôt rýchlejšie či už makrom alebo s PowerQuery.citovat

Bombarod(19.4.2022 15:40)#052548

Stačí mě jen hodnotycitovat

Bombardo1(19.4.2022 15:46)#052549

To Lugr:
Takto to používám a při otevření 10 souboru Excel se bez hlášky restartuje.citovat

elninoslov(19.4.2022 18:26)#052550

Môžete uviesť jeden taký súbor?
Všetky sú v tom istom adresári?
Môže to byť PowerQuery (PQ) dotaz do zjednocujúcej Tabuľky? (ak máte verziu Office 2010, 2013, 2016 treba doinštalovať ofiko doplnok PQ, ak verziu 2019, 2021, 365 tak ten už to obsahuje)
Všetky majú rovnakú štruktúru, predpokladám.
Dáta po naimportovaní chcete ďalej ešte editovať, alebo len analyzovať?citovat

Téma: Uvolnění paměti po kopírování dat

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje