Thema Datum  Von Nutzer Rating
Antwort
27.09.2021 10:11:56 Testercsv
NotSolved
Blau CSV konvertieren in XLSX mit jedem Dateinamen
 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:
Werner		 Datum:
27.09.2021 12:22:31		 Views:
538		 Rating:
     
Antwort:
  Ja
Thema:
CSV konvertieren in XLSX mit jedem Dateinamen

Hallo,

Option Explicit

Sub Convert_CSV()
Dim strFile As String, wb As Workbook
  
Const strFolder = "C:\Users\s.sari.dksgmbh\Downloads\PDF-JOB3\"

Application.ScreenUpdating = False

strFile = Dir(strFolder & "*.csv")
Do While strFile <> ""
    Set wb = Workbooks.Open(strFolder & strFile, local:=True)
    wb.SaveAs strFolder & strFile & ".xlsx", FileFormat:=xlOpenXMLWorkbook
    wb.Close False
    strFile = Dir
  Loop
End Sub

Gruß Werner

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
27.09.2021 10:11:56 Testercsv
NotSolved
Blau CSV konvertieren in XLSX mit jedem Dateinamen
 27.09.2021 12:22:31 Werner
NotSolved
28.09.2021 11:51:40 Testercsv
NotSolved
28.09.2021 15:10:32 Werner
NotSolved