Thema Datum  Von Nutzer Rating
Antwort
Rot CSV konvertieren in XLSX mit jedem Dateinamen
27.09.2021 10:11:56 Testercsv
NotSolved
27.09.2021 12:22:31 Werner
NotSolved
28.09.2021 11:51:40 Testercsv
NotSolved
28.09.2021 15:10:32 Werner
NotSolved

Ansicht des Beitrags:
Von:
Testercsv
Datum:
27.09.2021 10:11:56
Views:
155
Rating: Antwort:
  Ja
Thema:
CSV konvertieren in XLSX mit jedem Dateinamen

Hallo Leute ,

 

ich möchte bitte bei dem unteren Skript das er alle .csv Datein im Ordner in xlsx konvertiert, im Momment akzeptiert er nur mappe1.csv Dateinamen.

Könnt ihr den Code so anpassen dass er alle .csv Datein im Ordner konvertiert ohne einen bestimmten Dateinamen davor. Danke sehr

____________________________________________________________________________________________
Sub convertCSV()
   
    Dim wb As Workbook
    Dim pfad As String, dateien
    Dim datei

    ' Anpassen:
    pfad = "C:\Users\s.sari.dksgmbh\Downloads\PDF-JOB3\" ' auf \ am Ende achten
    dateien = Array("mappe1") ' Dateinamen ohne Endung


    Application.ScreenUpdating = False
    For Each datei In dateien
        Set wb = Workbooks.Open(pfad & datei & ".csv", local:=True)
        wb.SaveAs pfad & datei & ".xlsx", FileFormat:=xlOpenXMLWorkbook
        wb.Close
    Next
    Set wb = Nothing
    Application.ScreenUpdating = True
    MsgBox "Fertig"
   
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
Rot CSV konvertieren in XLSX mit jedem Dateinamen
27.09.2021 10:11:56 Testercsv
NotSolved
27.09.2021 12:22:31 Werner
NotSolved
28.09.2021 11:51:40 Testercsv
NotSolved
28.09.2021 15:10:32 Werner
NotSolved