Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA - andere Datei, neuem Namen und Pfad speichern

VBA - andere Datei, neuem Namen und Pfad speichern
27.10.2016 08:55:52
Fabian
Hallo Zusammen,
ich suche nen kleines Marko, das mit erlaubt eine Datei in einem immer festen Dateinpfad anzusprechen, und diese in einem neuen Dateienpfad - ein Ordner "tiefer" erneut zu speichern und mit "Alter Name" & "sent." als neuen Namen zu speichern.
Kennt da einer eins?
Vielen Dank!
Fabian

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - andere Datei, neuem Namen und Pfad speichern
27.10.2016 09:15:37
UweD
Hallo Fabian
meinst du das so?
Sub dhfhf()
    On Error GoTo Fehler
    Dim fso, AltPfad$, NeuPfad$, Nam$
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    AltPfad = "C:\Temp\"
    NeuPfad = AltPfad & "sent\"
    Nam = "Muster.xlsx"
    
    If Dir(NeuPfad, vbDirectory) = "" Then MkDir NeuPfad 'Pfad anlegen 
    fso.CopyFile AltPfad & Nam, NeuPfad & Nam, True
Fehler:
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub
LG UweD
Anzeige
AW: VBA - andere Datei, neuem Namen und Pfad speichern
27.10.2016 10:32:15
Fabian
Hi UweD,
ja das und dann muss sich aber auch der Dateiname ändern und zwar:
"Alter Dateiname" & "P" & Monat(also zum Beispiel P9 für September) & Jahr (2016)
Hab dafür verschiedene Codes im Internet gefunden aber alle haben irgendwie Fehler drin gehabt...
Gruß,
Fabian
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
Anzeige

355 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige