Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
124to128
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
124to128
124to128
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

txt dateien in tabellenblatt einfügen (newbie)

txt dateien in tabellenblatt einfügen (newbie)
05.06.2002 14:21:03
Brandon
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.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: txt dateien in tabellenblatt einfügen (newbie)
05.06.2002 16:52:51
brandon
gar niemand?
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige