txt dateien in tabellenblatt einfügen (newbie)



Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: txt dateien in tabellenblatt einfügen (newbie)
von: Brandon
Geschrieben am: 05.06.2002 - 14:21:03

hallo

muss mehrere *.txt dateien in ein tabellenblatt einfügen. in den txt files sind neun durch strichpunkte getrennte werte. mein problem ist, dass ich keinen fixen dateinamen im makro haben will, sondern ein dialogfenster um die datei auszuwählen. excel will das nicht und bricht mit laufzeitfehler ab. hier mein code

Sub Makro1()
'
'
'variablenbestimmung
Dim fname As String

'dialogbox
fname = Application.GetOpenFilename("Text Files (*.txt),*.txt")

With ActiveSheet.QueryTables.Add(Connection:= _
fname, _
Destination:=Range("A1"))
.Name = "test"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 932
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 5, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
ActiveWindow.SmallScroll Down:=-3
End Sub

denke, dass problem ist diese zeile QueryTables.Add(Connection:=...).

für jeden tipp dankbar

lg

b.

nach oben   nach unten

Re: txt dateien in tabellenblatt einfügen (newbie)
von: brandon
Geschrieben am: 05.06.2002 - 16:52:51

gar niemand?

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "txt dateien in tabellenblatt einfügen (newbie)"