AW: Datei Importieren
27.05.2013 17:24:04
fcs
Hallo Dirk,
Ich würde gern eine Datei Importieren... Typ Beliebig...
Beliebig ist wohl etwas viel verlangt!
Wenn du Tabs als Trennzeichen in den Textdateien hast, dann solltest du die die anderen trennzeichen auf False setzen für den Import.
Den Parameter "ConsecutiveDelimiter" sollte man nur auf True setzen, wenn direkt auf einander folgende Trennzeichen beim Import keine Spalten erzeugen sollen.
Makro-Anpassung:
Sub aatest()
Dim lres
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = "*.txt"
If .Show = -1 Then
lres = .SelectedItems(1)
Workbooks.OpenText Filename:=lres, Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, otherchar:=False, _
FieldInfo:=Array(Array(0, 2), Array(1, 2))
End If
End With
End Sub
Mit welchen Einstellungen werden Daten Importiert welche ich einfach direkt in ein Excel Workbook ziehe?
Das Trennzeichen scheint dann das TAB zu sein. Semicolon/Komma in der Textdatei lösten bei mir keine Spaltentrenung aus. Was von Excel als Datum interpretiert werden kann wird in ein Datum umgewandelt. Was als Zahl interpretiert werden kann wird in eine Zahl umgewandelt. Das Ergebnis hängt dabei von Einstellungen für Dezimaltrennzeichen/1000er-TrennZeichen in der Systemsteuerung bzw. den Excel-Optionen ab.
Gruß
Franz