AW: Textdatei in Excel über VBA starten
06.04.2011 09:53:14
Timo
Hallo Giuseppe,
vielleicht reicht deine Problembeschreibung nicht aus.
Ist es z.B. immer wieder die gleiche Datei? - Oder soll diese jedes mal ausgewählt werden?
Hier ein Beispiel, wenn es die gleiche Datei ist:
Sub Makro1()
Dim strDatei As String
strDatei = "C:\Liste.txt" ' an Namen und Pfad anpassen
Workbooks.OpenText Filename:=strDatei, Origin:= _
1250, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
End Sub
Hier eine Variante mit Abfrage der Datei:
Sub Mappe_oeffnen()
Dim vFile As Variant
vFile = Application.GetOpenFilename
If vFile = False Then Exit Sub
Workbooks.OpenText Filename:=vFile, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1)), _
TrailingMinusNumbers:=True
End Sub
Gruß
Timo