Makro: Werte aus *.csv importieren

Sherman123

Fleet Admiral
Dabei seit
Nov. 2002
Beiträge
12.323
Hallo Zusammen,

mein *.csv sieht so aus:
COORDINATES
1; 3.2661751e-001; 4.5421269e-002; -4.5612040e-003;


Code:
Mein Excel-Makro:
fi = Array( _
    Array(1, xlGeneralFormat), _
    Array(2, xlGeneralFormat), _
    Array(3, xlGeneralFormat), _
    Array(4, xlGeneralFormat))
    
    
Workbooks.OpenText Filename:="C:\5_kenics_export_excel\trajectories_0.csv", Origin:=xlWindows, fieldinfo:=fi, DataType:=xlDelimited, consecutiveDelimiter:=True, semicolon:=True

Range("A20:D20").Select 'Als Beispiel Zeile 20'
Selection.Copy
Windows("Positions Import.xlsm").Activate
Sheets("Tabelle1").Activate
Range("A1").Activate
ActiveSheet.Paste
Application.CutCopyMode = False

Workbooks("trajectories_0.csv").Close SaveChanges:=False
Mein Makro schreibt die 3 Koordinaten in eine Zelle. (statt in drei)
Bitte um schnelle Hilfe. Wo liegt der Hund begrabeb? ^^
Ergänzung ()

Des Rätsels Lösung: In der OpenText Methode vergaß ich Local:True einzugeben.
Ohne den Befehl findet Excel keine Semicolons
 
Zuletzt bearbeitet:
Top