Textimport
Heinzman
Ich muss eine Textdatei in Excel10 laden, umformatieren und weiter verarbeiten.
Da es sich jedes Mal um eine andere Textdatei handelt wollte ich diese mit
einer UserForm benennen.
Es tritt aber ein Laufzeitfehler 1004 mit der Meldung auf:
Excel kann die Textdatei für die Aktualisierung des externen Datenbereichs nicht finden.
Vergewiisern Sie sich, dass die Textdatei nicht verschoben oder umbenannt wurde. Wiederholen Sie anschließend die Aktualisierung.
Habt Ihr für mich einen Rat?
Schönen Dank schon mal im Voraus
Der Heinzman
Private Sub CommandButton1_Click()
Dim File As String
Dim Path As String
Path = TextBox1.Text
File = TextBox2.Text
Sheets("Tabelle1").Select
Range("A1").Select
Unload UserFormImport
TextImport ' Modul2
'Formatieren ' Modul3
'KopierenUndLöschen ' Modul4
End Sub
Sub TextImport()
With ActiveSheet.QueryTables.Add(Connection:="TEXT;Path + File", _
Destination _
:=Range("A1"))
.Name = "File"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = False
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(9, 1, 1, 1, 1, 1, 1, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Columns("A:E").Select
Selection.NumberFormat = "0.00"
Selection.NumberFormat = "0"
Selection.NumberFormat = "0.000"
Columns("A:A").Select
Selection.NumberFormat = "0"
Range("A1").Select
Selection.NumberFormat = "000000-00000"
Range("A15").Select
End Sub
Anzeige