Thema Datum  Von Nutzer Rating
Antwort
02.12.2015 16:59:16 joerg
NotSolved
02.12.2015 22:51:17 BigBen
NotSolved
Rot csv-dateien in einem Ordner in Text-dateien umbennen
 03.12.2015 06:28:12 Gast21372
NotSolved
03.12.2015 11:47:40 Gast22165
NotSolved
03.12.2015 15:36:32 joerg
NotSolved
03.12.2015 15:37:30 joerg
Solved

Ansicht des Beitrags:
Von:
Gast21372		 Datum:
03.12.2015 06:28:12		 Views:
769		 Rating:
     
Antwort:
  Ja
Thema:
csv-dateien in einem Ordner in Text-dateien umbennen

Hallo BigBen,

der Code läuft super!! Ich habe den Ordner in dem sich die CSV-Dateien befinden über Inputbox eingelesen. Jetzt versuche ich den Ordnerpfad über msoFileDialogFolderPicker auswählbar zu machen. Deswegen ist die Inputbox auskommentiert.

Leider bekomme ich es nicht hin.. Vielleicht kannst du nochmal schauen?

Über Hilfe würde ich mich sehr freuen!!

Gruß, Jörg

Sub RenameCSVFiles()
    Dim pfad As String
    Dim oldName As String, NewName As String
    Dim Struktur As Object
    Set Struktur = Application.FileDialog(msoFileDialogFolderPicker)
    'pfad = InputBox("Bitte geben Sie den Pfad von dem ORdner ein in dem sich die umzubenennenden CSVDateien befinden.")
    'If Right(pfad, 1) <> "\" Then pfad = pfad & "\"
    oldName = Dir(pfad & "*.csv")
    Do Until oldName = ""
        NewName = Left(oldName, Len(oldName) - 4) & ".txt"
        Name pfad & oldName As pfad & NewName
        oldName = Dir()
    Loop
End Sub

 

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
02.12.2015 16:59:16 joerg
NotSolved
02.12.2015 22:51:17 BigBen
NotSolved
Rot csv-dateien in einem Ordner in Text-dateien umbennen
 03.12.2015 06:28:12 Gast21372
NotSolved
03.12.2015 11:47:40 Gast22165
NotSolved
03.12.2015 15:36:32 joerg
NotSolved
03.12.2015 15:37:30 joerg
Solved