AW: VBA - andere Datei, neuem Namen und Pfad speichern
27.10.2016 10:43:32
UweD
Hi
Sub dhfhf()
On Error GoTo Fehler
Dim fso, AltPfad$, NeuPfad$, AltNam$, NeuNam$, Ext$
Set fso = CreateObject("Scripting.FileSystemObject")
Ext = ".xlsx"
AltPfad = "C:\Temp\"
NeuPfad = AltPfad & "sent\"
AltNam = "Muster.xlsx"
NeuNam = Left(AltNam, InStrRev(AltNam, ".") - 1) & "_P" & Format(Date, "M_YYYY") & Ext
If Dir(NeuPfad, vbDirectory) = "" Then MkDir NeuPfad 'Pfad anlegen
fso.CopyFile AltPfad & AltNam, NeuPfad & NeuNam, True
Fehler:
If Err.Number <> 0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
LG UweD