Microsoft Excel

Herbers Excel/VBA-Archiv

Excel als CSV mit Trennzeichen Semikolon speichern


Betrifft: Excel als CSV mit Trennzeichen Semikolon speichern von: Filippos
Geschrieben am: 30.06.2017 11:31:02

Hallo,

hier ein Auszug von meinem Makro. Ich speichere eine xlsm als eine CSV Datei.
Alles funktioniert. Ich möchte das als Trennzeichen ein Semikolon verwendet wird.

Das LOCAL:TRUE/FALSE liefert immer ein Komma

neueCSV.SaveAs Filename:="xxx.csv", FileFormat:=xlCSV, Local:=True

Gibt es eine Funktion welche das Semikolon als Trennzeichen angibt?

  

Betrifft: AW: Excel als CSV mit Trennzeichen Semikolon speichern von: Daniel
Geschrieben am: 30.06.2017 11:56:50

Hi
Local:=True verwendet die Einstellung enstprechend der Ländereinstellung und wenn das bei dir nicht Deutschland ist, wird's schwierig.

ein möglicher Workaround wäre, dass du die Daten in einem neuen Tabellenblatt zeilenweise in eine Zelle zusammenfasst und dann dieses Blatt als CSV speicherst.
Da alle Werte in einer Zelle stehen, wird das "offizelle" Trennzeichen nie verwendet, beim Zusammenfassen der Zellen hast du natürlich freie Wahl.

Gruß Daniel


  

Betrifft: AW: Excel als CSV mit Trennzeichen Semikolon speichern von: Rudi Maintaire
Geschrieben am: 30.06.2017 12:28:43

Hallo,
z.B.

Sub aaa()
  Dim arrIn, strOut As String, i As Long, j As Long
  arrIn = Cells(1, 1).CurrentRegion
  For i = 1 To UBound(arrIn)
    For j = 1 To UBound(arrIn, 2)
      strOut = strOut & ";" & arrIn(i, j)
    Next j
    strOut = strOut & vbCrLf
  Next i
  strOut = Mid(strOut, 2)
  Open "n:\test.csv" For Output As #1
  Print #1, strOut
  Close #1
End Sub

Gruß
Rudi


Beiträge aus den Excel-Beispielen zum Thema "Excel als CSV mit Trennzeichen Semikolon speichern"