CSV-Export

Ein kleines VB-Script um ein Arbeitsblatt als CSV-Datei mit Hochkomma zu speichern.

Excel speichert CSV-Dateien nur, ohne die einzelnen Felder in Hochkommata einzuschließen. Dieses Skript von www.office-loesung.de macht das anders.

Excel-CSV

Hans,Müller,Weidenweg 12,12345,Hintertupfingen
Angela,Knuts,Wassergasse 8A,11122,Bin Schnellweg

CSV mit Hochkomma

"Hans","Müller","Weidenweg 12","12345","Hintertupfingen"
"Angela","Knuts","Wassergasse 8A","11122","Bin Schnellweg"

Skript

Sub SaveCSV() 

Dim Bereich As Object, Zeile As Object, Zelle As Object 
Dim strTemp As String 
Dim strDateiname As String 
Dim strTrennzeichen As String 
Dim strMappenpfad As String 

strMappenpfad = ActiveWorkbook.FullName 
strMappenpfad = Replace(strMappenpfad, ".xls", ".csv") 

strDateiname = InputBox("Wie soll die CSV-Datei heißen (c:test.csv)?", "CSV-Export", strMappenpfad) 
If strDateiname = "" Then Exit Sub 

strTrennzeichen = InputBox("Welches Trennzeichen soll verwendet werden?", "CSV-Export", ",") 
If strTrennzeichen = "" Then Exit Sub 

  Set Bereich = ActiveSheet.UsedRange 

  Open strDateiname For Output As #1 

  For Each Zeile In Bereich.Rows 
    For Each Zelle In Zeile.Cells 
      strTemp = strTemp & """" & CStr(Zelle.Text) & """" & strTrennzeichen 
    Next 
    If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1) 
    Print #1, strTemp 
    strTemp = "" 
  Next 

  Close #1 
  Set Bereich = Nothing 
  MsgBox "Export erfolgreich. Datei wurde exportiert nach" & vbCrLf & strDateiname 

End Sub

Hier der Link zum kompletten Thread: http://www.office-loesung.de/ftopic14862_0_0_asc.php

image_pdfimage_print

Leave a Comment