< návrat zpět

MS Excel


Téma: kopie mezi instancemi Excelu rss

Zaslal/a 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

Zaslat odpověď >

Strana:  « předchozí  1 2 3
#048588
avatar
Stalker: Děkuji!!citovat
#048607
avatar
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?
Příloha: jpg48607_chyba_error9.jpg (181kB, staženo 19x)
48607_chyba_error9.jpg
citovat
#048624
avatar
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
#048629
Stalker
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
#048640
avatar
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
#048641
avatar
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
#048642
Stalker
Vyzkoušej tohle, snad Ti to bude fungovat podle představ.
Příloha: rar48642_odtud.rar (23kB, staženo 19x)
citovat
#048643
avatar

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)
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

Týden v roce

Petr92 • 16.7. 15:34

Řazení podle času v kategoriích

veny • 16.7. 11:34

špatný výpočet ze zisku - příčina?

Anonym • 12.7. 22:56

špatný výpočet ze zisku - příčina?

Jakoby • 12.7. 12:35

Řazení podle času v kategoriích

Marekh • 12.7. 9:55

Porovnávací Tabulka

Jess • 8.7. 20:49

Vzorec pro zkopírování obsahu buňky.

veny • 6.7. 8:28