Office: Daten in externer Datei speichern

Hallo zusammen,
hab mal wieder ein Problem. Es soll ein Bereich eriner Tabelle in einer externen Excel datei gespeichert werden aber das bekomm ich so:
Dim wks1 As Worksheet, wks2 As Worksheet
Dim strKopie As String, strDruck As String, status As String, kommi As String, bemerkung As String

Set wks1 = Worksheets("Nachschubauftrag")
'Set wks2 = Workbooks([D:\Dirk\Nachschubaufträge.xls].Worksheets("Sicherung"))
strDrucken = "Druckbereich"
'strKopie = "A3:J3"
wks1.Range(strDrucken).PrintOut Copies:=1
'Werte in Bereich nach Tabelle 2 kopieren
'wks1.Range(strKopie).Copy
'If IsEmpty(wks2.Range("A2")) Then
' wks2.Range("A2").PasteSpecial Paste:=xlPasteValues
'Else
' wks2.Cells(wks2.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
'End If
'Application.CutCopyMode = False

nicht hin.
Hoffe sehr mir kann jemand helfen

Gruß Fussel

 

Hi,

wenn du etwas in eine andere Arbeitsmappe kopieren willst, muss diese geöffnet sein.

Bis später,
Karin

 

die Datei hab ich offen, bekomme aber immer den Fehler Objekt erforderlich. Damit kann ich aber nichts anfangen :-(

 

Hi,

wenn du die Arbeitsmappe geöffnet hat, weshalb schreibst du dann den Pfad bei der Zuweisung davor?

Code:

Set wks2 = Workbooks("Nachschubaufträge.xls").Worksheets("Sicherung")

Bis später,
Karin

 

na ich möcht je dei zeile aus mappe1.xls in Nachschubaufträge.xls kopieren da muss ich doch den pfad zu der Datei angeben oder nicht? Nachschubaufträge.xls wird ja nicht aktiv.

 

Hi,

bei einer geöffneten Arbeitsmappe benötigt man keinen Pfad.

Bis später,
Karin

 

und wie ist dann die schreibweise die datei an zu sprechen?

 

Hi,

wer lesen kann ist klar im Vorteil - die Antwort auf deine Frage steht bereits in meinem Beitrag von 14:14.

Bis später,
Karin