Hallo zusammen,
ich schleppe seit einiger Zeit ein VBA Problem mit mir rum, das ich gerne mal gelöst haben möchte. Ich hoffe jemand von euch kann mir mit einem Tip weiterhelfen:
In meinen Excelzellen steht z.B. das Folgende:
a,b,c,d,e
1,2.5,3,a,5
1.5,2,b,4,5
Wenn ich die Daten per VBA dann als csv speichere, dann kriege hat dieses allerdings Hochkommas als Anfang und Ende wenn ich das File mit dem Editor öffne.
"a,b,c,d,e"
"1,2.5,3,a,5"
"1.5,2,b,4,5"
Da ich das csv regelmässig an jemanden schicken muss, der es ohne " haben will stehe ich auf dem Schlauch. Kennt jemand von euch das Problem? Wie kann ich die " da rauskriegen?
Der folgende Codeausschnitt kopiert die Daten in ein neues Excel und speichert das ganze dann als csv.
' Select the range
Range(StartCell, EndCell).Select
' Copy range
Selection.Copy
' Open a new workbook
Workbooks.Add
' Paste selection
Range("A1").Select
ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteValues
' Go to current path
ChDir CurrentPath
' Save file as csv
ActiveWorkbook.SaveAs Filename:= _
Filename, FileFormat:=xlCSV, _
CreateBackup:=False
Application.Wait (Now + TimeValue("0:00:01"))
' Close xls
Range("A1").Select
ActiveWindow.Close True
Herzliche Grüsse und danke schon mal für die Hilfe,
Florian
|