AW: CSV Datei in aktives Sheet einlesen
14.03.2006 12:43:05
Hoffi
Hallo Heinz,
versuch dies mal:
Code in ein Modul:
Sub CSV()
Dim fn
Dim rng As Range
fn = "C:\Test.csv" 'Pfad ggf. anpassen
Workbooks.Open Filename:=fn
Range("A:A").TextToColumns , DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, Semicolon:=True, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
Cells.Copy
Workbooks("Mappe2").Sheets("Test").Activate 'Mappenname ggf.anpassen
Cells.PasteSpecial
End Sub
Grüße
Hoffi
P.S. Rückmeldung wäre nett...