ich möchte gern, mit einem Makro, eine Datei, z.b. "Muster.xls"vom Zentrallaufwerk "R",
in mein "C" Laufwerk kopieren.
Beide Verzeichnisse sind gleich.
Danach möchte ich die das die kopierte Datei direkt geöffnet wird.
mfg Walter MB
Sub KopierenOeffnen()
Dim sSource As String, sTarget As String
sSource = "R:\Aufträge\Werkstatt\000001.xls"
sTarget = Replace(sSource, "R:", "C:")
FileCopy sSource, sTarget
Workbooks.Open sSource
End Sub
VBA-Code: |
Sub KopierenUndOeffnen() Dim fso Dim Datei As String Datei = "c:\Verzeichnis\Datei.xls" Set fso = CreateObject("Scripting.FileSystemObject") fso.CopyFile "R:\Verzeichnis\Datei.xls", "C:\Verzeichnis\" Workbooks.Open Datei End Sub Gruß Jürgen |