CSV mit VBA öffnen, Problem mit Trennzeichen
21.09.2015 09:50:41
Klaus
Ich versuche gerade mittels VBA eine CSV Datei zu öffnen, die aus einem Magento-Export stammt.
Hierbei habe ich das Problem, dass die Tabellen total verschoben sind weil die Separationszeichen nicht so erkannt werden wie ich das gerne möchte.
Wenn ich die csv vor dem VBA-Zugriff mit dem Windows Texteditor öffne und in die oberste Zeile sep=, schreibe, funktioniert alles tadellos.
Da das VBA Makro aber für Kollegen gedacht ist, die sich nicht so sehr mit dem Hintergrund des Ganzen beschäftigen, möchte ich diesen Schritt gerne mithilfe des VBA Codes vorwegnehmen.
Kann mir hierbei bitte jemand helfen?
Mein Code sieht so aus:
Dim varZielDatei As Variant
Dim varMagento As Variant
Dim WorkbookMagento As Workbook
Dim WorkbookZiel As Workbook
Dim WSMagento As Worksheet
Dim WSMagentoZiel As Worksheet
Public Sub Magento_Export_bearbeiten()
MsgBox ("Nun bitte die Magento-Exportdatei auswählen.")
Application.ScreenUpdating = False
'Open GetOpenFilename with the file filters.
varMagento = Application.GetOpenFilename( _
Title:="Magento-Exportdatei auswählen", _
MultiSelect:=False)
If varMagento = False Then
MsgBox "Abbruch durch Benutzer. Es wurde keine Datei ausgewählt.", vbInformation
Exit Sub
Else
MsgBox "Folgende Magento-Exportdatei wurde ausgewählt:" & vbCrLf & varMagento
End If
Workbooks.Open Filename:=varMagento
Set WorkbookMagento = Workbooks.Open(varMagento)
Set WSMagento = WorkbookMagento.Sheets(1)
Set WSMagentoZiel = WorkbookZiel.Sheets(3)
WSMagento.Cells.Select
Selection.Copy
WSMagentoZiel.Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
WorkbookMagento.Close Savechanges:=False
Ich habe versucht
Set WorkbookMagento = Workbooks.Open(varMagento, , , , , , , , , , , , , True)
zu verwenden weil ich gelesen habe, dass Local = True helfen soll, aber leider trifft das bei meinem Problem (oder zumindest meiner Anwendung) nicht zu.
Könnt ihr mir bitte weiterhelfen?