Excel Makro DE
From Wiki
Excel Makro DE - Beispiel
Will man Dateien im Format .csv (CSV = comma-separated values) erstellen für bspw. die Bearbeitung von Werbemitteln und/oder Transaktionen (Sales/Leads), so nutzen viele auch Excel von Microsoft dazu. Einige CSV-Dateien bei Awin benötigen innerhalb der Datei " (Anführungszeichen / DoubleQuotes).
Um bei Excel Dateien als CSV zu speichern, wo gleich die Anführungsstriche beim Spalten-Trennzeichen , (bei CSV standardmäßig Komma) mit drin sind, kann man sich mit einem sogenannten Makro helfen.
Evtl. hilft auch das nachfolgende Excel Makro weiter, wobei es natürlich für uns schwer ist irgendwelche Drittanbieter-Produkte (z.B. Excel von Microsoft) zu supporten. Daher bitten wir um Verständnis, wenn wir dazu keinen Support leisten können.
Excel Makro
Sub CSVFile()
Dim SrcRg As Range
Dim CurrRow As Range
Dim CurrCell As Range
Dim CurrTextStr As String
Dim ListSep As String
Dim FName As Variant
FName = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")
ListSep = Application.International(xlListSeparator)
If Selection.Cells.Count > 1 Then
Set SrcRg = Selection
Else
Set SrcRg = ActiveSheet.UsedRange
End If
Open FName For Output As #1
For Each CurrRow In SrcRg.Rows
CurrTextStr = ìî
For Each CurrCell In CurrRow.Cells
CurrTextStr = CurrTextStr & """" & CurrCell.Value & """" & ListSep
Next
While Right(CurrTextStr, 1) = ListSep
CurrTextStr = Left(CurrTextStr, Len(CurrTextStr) - 1)
Wend
Print #1, CurrTextStr
Next
Close #1
End Sub