Stalker: Děkuji!!citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: kopie mezi instancemi Excelu
Moooooc Vám děkuji !!!! to je přesně onocitovat
MS Excel
Téma: kopie mezi instancemi Excelu 
Zaslal/a rinma 7.10.2020 10:11
Ahoj, potřeboval bych poradit s kopírováním mezi otevřenými instancemi excelu.
Mám otevřený excel 1 a v něm sešit 1 a chci třeba A3:I10 makrem zkopírovat do excelu 2 sešitu 1
jak na to?
děkuji za rady
Strana: « předchozí 1
2
3
vše funguje, ale přišel jsem na jeden zádrhel a nevím, jak to upravit.
když dám export, otevře se nový excel vše kopíruje. ale když ten nový zavřu a dám znovu export, tak se již nový neotevře a hodí to chybu 9
nevíte, jak toto ošetřit, aby se zase otevřel nový excel s exportem?citovat
když dám export, otevře se nový excel vše kopíruje. ale když ten nový zavřu a dám znovu export, tak se již nový neotevře a hodí to chybu 9
nevíte, jak toto ošetřit, aby se zase otevřel nový excel s exportem?citovat
48607_chyba_error9.jpg
(27.10.2020 20:37)#048624
Hrubý odhad
Buď zavírat programově - při ručním zavření souboru zůstane druhá instance otevřena --- funkce IsExcelRunning vrací 2
Nebo
Else
REM zde vložit test zda JmenoCile je otevřen, pokud ne tak otevřít
.Workbooks.Open Filename:=Cesta & "\" & JmenoCile
With ExApp.Workbooks(JmenoCile)citovat
Buď zavírat programově - při ručním zavření souboru zůstane druhá instance otevřena --- funkce IsExcelRunning vrací 2
Nebo
Else
REM zde vložit test zda JmenoCile je otevřen, pokud ne tak otevřít
.Workbooks.Open Filename:=Cesta & "\" & JmenoCile
With ExApp.Workbooks(JmenoCile)citovat
Přesně jak píše kolega výše.
Z toho popisu co si sem dával, sem pochopil, že se sešit do kterého se výsledky kopírují nemá zavírat, ale zůstat otevřený, proto ta kontrola počtu spuštěných instancí.
Pokud by se sešít zavíral "ručně" a opětovně otevíral přes makro budou instance excelu stále viset v paměti.
Pokud se má tedy soubor, do kterého se kopíruje zavírat, nejjednodušší to bude udělat přímo v kódu a při tom i odstřelit "druhou" instancicitovat
Z toho popisu co si sem dával, sem pochopil, že se sešit do kterého se výsledky kopírují nemá zavírat, ale zůstat otevřený, proto ta kontrola počtu spuštěných instancí.
Pokud by se sešít zavíral "ručně" a opětovně otevíral přes makro budou instance excelu stále viset v paměti.
Pokud se má tedy soubor, do kterého se kopíruje zavírat, nejjednodušší to bude udělat přímo v kódu a při tom i odstřelit "druhou" instancicitovat
stalker: on se nema zavírat, jen jsem ho nechtěně zavřel a znovu chtěl otevřít, tak mi to hodilo tu chybu. jen jsem to chci ošetřit, ať, když to náhodou zavřu, ať to mohu znovu při měření znovu otevřit. tak jak píše, když není otevřeo, znovu otevři. nevím, jestli se mi to tam povede vložit, tohle je přece jenom pro mne trošku jiná ligacitovat
jak tak na to teď koukám, tak nevím, jak to tam vlořit, do toho kódu
If IsExcelRunning < 2 Then
Set ExApp = New Excel.Application
With ExApp
.Workbooks.Open FileName:=Cesta & "\" & JmenoCile
.ActiveWorkbook.Windows(1).Visible = True
.Visible = True
With .Workbooks(JmenoCile)
.Worksheets("List1").Cells(3, 1).Resize(UBound(arrData), 9).Value = arrData
End With
End With
Else
With ExApp.Workbooks(JmenoCile)
.Worksheets("List1").Cells(3, 1).Resize(UBound(arrData), 9).Value = arrData
End With
End Ifcitovat
If IsExcelRunning < 2 Then
Set ExApp = New Excel.Application
With ExApp
.Workbooks.Open FileName:=Cesta & "\" & JmenoCile
.ActiveWorkbook.Windows(1).Visible = True
.Visible = True
With .Workbooks(JmenoCile)
.Worksheets("List1").Cells(3, 1).Resize(UBound(arrData), 9).Value = arrData
End With
End With
Else
With ExApp.Workbooks(JmenoCile)
.Worksheets("List1").Cells(3, 1).Resize(UBound(arrData), 9).Value = arrData
End With
End Ifcitovat
Vyzkoušej tohle, snad Ti to bude fungovat podle představ.
Příloha: 
48642_odtud.rar (23kB, staženo 20x)
citovat48642_odtud.rar (23kB, staženo 20x)Stalker napsal/a:
Vyzkoušej tohle, snad Ti to bude fungovat podle představ.Příloha: 48642_odtud.rar (23kB, staženo 1x)
Moooooc Vám děkuji !!!! to je přesně onocitovat
Strana: « předchozí 1
2
3
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články