Datei kopieren
05.03.2003 09:24:19
Holger Meinert
habe folgendes Makro,dass mir eine csv-Datei in ein bestimmtes
Verzeichnis kopiert.
Public Sub Datei_kopieren()
Dim FsyObjekt As Object
Dim pfad As String
pfad = Range("R3").Value
Set FsyObjekt = CreateObject("Scripting.FileSystemObject")
FsyObjekt.CopyFile "d:\temp\ez.csv", pfad
End Sub
Wie muß das Makro erweitert werden um die csv-Datei unter einem anderen Namen (steht in A1) abzuspeichern.
für Eure Hilfe vielen Dank !!
Anzeige