Thema Datum  Von Nutzer Rating
Antwort
Rot Dateien mit Zeitstempel kopieren und Format ändern
05.08.2022 14:21:05 Agent_Smith
NotSolved
05.08.2022 19:24:05 Gast47051
*****
Solved

Ansicht des Beitrags:
Von:
Agent_Smith
Datum:
05.08.2022 14:21:05
Views:
96
Rating: Antwort:
  Ja
Thema:
Dateien mit Zeitstempel kopieren und Format ändern

Hallo zusammen,

aus einem Programm werden mehrfach wöchentlich eine oder mehrere Dateien exportiert. Diese Dateien im .dbf Format sollen gesucht und in ein anderes Verzeichnis kopiert werden. Idealerweise sollen die dbf dabei direkt in xlsx umgewandelt werden.

Die Bezeichnung der Dateien ist immer "Auftraege_tgl_YYYY_MM_DD_HHMMSS.dbf"

Meine VBA Kenntnisse sind rudimentär, ich bin nur in der Lage ohne Loop nach einer Datei von heute zu suchen und diese zu kopieren, da jedoch auch mehrere Dateien mit selben Datum (andere Uhrzeit) vorhanden seien können, komme ich nicht weiter. Der Code sieht wie folgt aus:

Sub Copy_files()

Dim FSO
Dim Dateiname, Pfad, teil As String

teil = "Auftraege_tgl_"
n = Format(Date, "YYYY_MM_DD")
Pfad = "G:\VS_EA\EXPORT\F01\"

Dateiname = Dir(Pfad & teil & n & "_??????.dbf")

Zielpfad = "P:\DUG_DATEN\"

Set FSO = CreateObject("Scripting.FileSystemObject")

If Not FSO.FileExists(Pfad & Dateiname) Then
    MsgBox "Datei nicht gefunden", vbInformation, "nicht gefunden"
    
ElseIf Not FSO.FileExists(Zielpfad & Dateiname) Then
    FSO.CopyFile (Pfad & Dateiname), Zielpfad, True
    MsgBox " Erfolgreich kopiert", vbInformation, "Done!"
Else
    MsgBox "Datei existiert bereits", vbExclamation, "existiert bereits"
End If

End Sub

 

Es muss also der Pfad nach den Dateien mit "Auftraege_tgl_" & heutiges Datum durchsucht werden, diese sollen dann in den Ziepflad in einem anderem Format wandern.

 

Ich hoffe mir kann jemand helfen.

 

Danke und beste Grüße

 

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Dateien mit Zeitstempel kopieren und Format ändern
05.08.2022 14:21:05 Agent_Smith
NotSolved
05.08.2022 19:24:05 Gast47051
*****
Solved