Kopieren
08.01.2003 20:00:57
Josef
Folgendes Makro fand ich bei der Recherche unter den VBA Beispielen.
Sub Kopieren()
Dim iCounter As Integer
Dim sFile As String, sPath As String
sPath = Application.DefaultFilePath & "\"
Close
Open "speichern.bat" For Output As #1
For iCounter = 1 To 2
sFile = ThisWorkbook.FullName & " "
sFile = sFile & sPath & "WorkbookDuo" & iCounter & ".xls"
Print #1, "copy " & sFile
Next iCounter
Close
Call Win32WaitTilFinished("command.com /c speichern.bat")
Kill "speichern.bat"
MsgBox "Die Dateien wurde angelegt!"
End Sub
Leider erhalte ich keine Kopie der Excel Datei.
Wenn ich die speichern.bat öffne so steht dort "zuviele Parameter".
Wo könnte hier bitte der Fehler liegen.
Danke
Josef