Thema Datum  Von Nutzer Rating
Antwort
Rot Konvertierung csv zu xls - Formatierung beibehalten
 10.05.2014 14:37:18 Simon1710
NotSolved
10.05.2014 14:58:30 Gast54706
NotSolved
10.05.2014 15:44:10 Simon1710
NotSolved

Ansicht des Beitrags:
Von:
Simon1710		 Datum:
10.05.2014 14:37:18		 Views:
1189		 Rating:
     
Antwort:
  Ja
Thema:
Konvertierung csv zu xls - Formatierung beibehalten

Hallo zusammen!

 

Ich möchte mehrere csv Dateien über einen Makro in xls Dateien umwandeln. Mit dem folgenden Code funktioniert dies perfekt, doch wird die richtige Formatierung in der csv Datei falsch in die xls Datei übertragen. Leider finde ich keinen passenden Code, der diesen Fehler behebt. Wäre sehr dankbar, wenn mir jemand von euch da helfen könnte:

 

Sub convertCSVtoXLS()
  Dim strVerzeichnis As String
  Dim strDatei As String
  Dim strTyp As String
  Dim strDateiname As String
  strTyp = "*.csv"
  Application.ScreenUpdating = False
  strVerzeichnis = "C:\Ordner1\"
  strDateiname = Dir(strVerzeichnis & strTyp)
  Do While strDateiname <> ""
      Workbooks.Open Filename:=strVerzeichnis & strDateiname
      ActiveWorkbook.SaveCopyAs Application.Substitute(strDateiname, ".csv", "") & ".xls"
      ActiveWorkbook.Close
      strDateiname = Dir
  Loop
  Application.ScreenUpdating = True
End Sub

 

 

 

Liebe Grüße,

Simon

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 Konvertierung csv zu xls - Formatierung beibehalten
 10.05.2014 14:37:18 Simon1710
NotSolved
10.05.2014 14:58:30 Gast54706
NotSolved
10.05.2014 15:44:10 Simon1710
NotSolved