csv Export per VBA für SAP
27.03.2013 11:51:51
Andreas
ich habe aus dem Internet einen VBA Code in Verwendung der soweit auch gut funktioniert. Es wird der Inhalt eines Tabellenblattes als csv Datei exportiert.
Die Besonderheit ist an dieser Stelle das Trennzeichen |_|
Die Datei wird für die Weiterverarbeitung nach SAP importiert.
Das Programm das die Datei verarbeitet hat aber ein Problem, weil an jedem Zeilenende ein # steht und steigt daher aus. Wie kann ich das Program anpassen das dies dort nicht mehr vorhanden ist.
Vielen Dank
Gruß
Andreas
Sub Export()
' Speichert den Inhalt eines Arbeitsblatts als CSV-Datei
' mit wählbarem Trennzeichen und Maskierung von Einträgen
' überarbeitet von Andreas Dempewolf, 27.02.2013
' Ohne Gewähr!
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
Sheets("ZEPP_KM_RESPONSE_UPLOAD").Select
strMappenpfad = ActiveWorkbook.Path & "\Export\ZEPP_KM_RESPONSE_UPLOAD.csv"
' strMappenpfad = Replace(strMappenpfad, ".xls", ".csv")
strDateiname = strMappenpfad
' If strDateiname = "" Then Exit Sub
strTrennzeichen = "|_|"
Set Bereich = ActiveSheet.UsedRange
Open strDateiname For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
If InStr(1, Zelle.Text, strTrennzeichen) > 0 Then
'Zellen, die ein Trennzeichen beinhalten in Anführungsstriche setzen
strTemp = strTemp & """" & CStr(Zelle.Text) & """" & strTrennzeichen
Else
strTemp = strTemp & CStr(Zelle.Text) & strTrennzeichen
End If
Next
If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1)
Print #1, strTemp
strTemp = ""
Next
Close #1
Set Bereich = Nothing
MsgBox "Datei wurde exportiert nach" & vbCrLf & strDateiname
End Sub
