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.