Sheet von 1. Instanz in 2. Instanz kopieren
05.11.2013 09:53:09
1.
jetzt laufe ich doch noch auf einen Fehler auf, der aber nichts mit meiner 1. Frage zu tun hat.
Ich habe diese Codezeile von meinem Makro, wenn beide Dateien in einer Instanz laufen:
QuellDatei.Sheets(strName).Copy Before:=ZielDatei.Sheets("Tabelle1")
Wenn ich die Zieldatei jetzt aber mittels
Set ZielDatei = GetObject("F:\Test\Testmappe.xlsx")
benenne, dann funktioniert die o. g. Zeile nicht mehr.
Wie kann ich nun das Sheet aus der 1. Instanz in die 2. Instanz kopieren? Die Fehlermeldungen _ in der 2. Instanz habe ich schon abgeschalten
Dim objExcel As Excel.Application
Set objExcel = GetObject(, "Excel.Application")
objExcel.DisplayAlerts = False
Vorab schon mal besten Dank und schöne Grüße
Jürgen