Diskussionsgruppe: Tabellenkalkulation
Hallo Allerseits,
ich arbeite mit einem Makro, das Daten aus einer Datei in eine andere Datei schreibt.
Mein Problem ist, dass der Dateiname der Zieldatei sich ändern kann und ab einer Änderung natürlich nicht mehr von dem Makro angesprochen werden kann.
Wie kann man eine Abfrage integrieren, durch die man zu Beginn den aktuellen Dateinamen abfragen kann?
Hier das Makro für das Kopieren verschiedener Zellbereiche.
Wer kann mir helfen?
Range("A2:C2").Select
Selection.Copy
Windows("SHIP ACCOUNTING.xls").Activate
Sheets("CREW_DATA").Select
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Contracts of Employment.xls").Activate
Range("E2:L2").Select
Selection.Copy
Windows("SHIP ACCOUNTING.xls").Activate
Range("G3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Contracts of Employment.xls").Activate
Range("M2").Select
Selection.Copy
Windows("SHIP ACCOUNTING.xls").Activate
Range("U3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Contracts of Employment.xls").Activate
Range("N2").Select
Selection.Copy
Windows("SHIP ACCOUNTING.xls").Activate
Range("X3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Contracts of Employment.xls").Activate
Range("O2").Select
Selection.Copy
Windows("SHIP ACCOUNTING.xls").Activate
Range("AB3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E3").Activate
Windows("Contracts of Employment.xls").Activate
Range("A20").Activate
Von: daniel-s Datum: 20.11.2006, 18:52
|
|
