title image


Smiley Re: Arbeitsblatt importieren
Hallo,



habe das Problem für mich so gelöst:



Workbooks.Open Filename:="D:\Excel Test\2006.xls"

Windows("2006.xls").Activate

Cells.Select

Selection.Copy

Windows("Deine Datei.xls").Activate

Cells.Select

ActiveSheet.Paste

Cells(1, 1).Copy

Workbooks("2006.xls").Close



Gibt sicher einen eleganteren Weg, der mir aber nicht bekannt ist. Die vorletzte Zeile (Cells(1, 1).Copy) ist eine "Krücke" um die Fehlermeldung beim Schließen der Datei 2006.xls zu unterdrücken ("Es befindet sich eine große Menge von Informationen in der Zwischenablage.......").



Gruß

surfer01

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: