Problem nach QueryTables.Add
16.07.2015 13:35:40
Björn
ich habe folgende Funktion erstellt, um diverse Textdateien nach Excel zu importieren. Den Pfad zum Importieren habe ich dann immer manuell erfasst. Bei dem letzten Import habe ich versehentlich eine Datei/Pfad angegeben, der nicht existierte. Nun habe ich im Anschluss ständig eine Fehlermeldung beim Aufruf von Excel bekommen, dass diese Datei nicht existiert. Um nicht ständig eine Fehlermeldung zu erhalten habe ich nun die Datei unter dem entsprechenden Pfad erstellt. Jetzt bekomme ich zwar keine Fehlermeldung mehr allerdings wird die Datei nun jedes Mal geöffnet.
Die Datenverbindungen habe ich unter Daten / Verbindungen bereits gelöscht - hier steht nix drin.
Ich weiß nicht mehr weiter. Kann jemand helfen?!? Und wie kann ich das Problem in Zukunft verhindern?
Gruß Björn
Sub Daten_Import()
Dim Pfad As String, Datei
Dim Tab1 As Object, DatenTXT
Datei = "TEST"
Pfad = Application.ThisWorkbook.Path & "\Daten\2015"
Pfad = Pfad & ".txt"
Set Tab1 = ThisWorkbook.Sheets(1)
Tab1.Rows("1:" & Tab1.Cells(1, 1).SpecialCells(xlLastCell).Row).ClearContents
Set DatenTXT = Tab1.QueryTables.Add(Connection:="TEXT;" & Pfad, Destination:=Tab1.Cells(1, 1))
With DatenTXT
.Name = Datei
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.TextFileParseType = xlFixedWidth
.TextFileFixedColumnWidths = Array(2, 7, 17, 18, 16, 11, 8, 7, 20, 19, 19, 16, 21)
.TextFileColumnDataTypes = Array(xlGeneralFormat, xlTextFormat, xlTextFormat, xlTextFormat, _
xlGeneralFormat, xlGeneralFormat, xlGeneralFormat, xlGeneralFormat, xlTextFormat, _
xlGeneralFormat, xlGeneralFormat, xlGeneralFormat, xlGeneralFormat)
.Refresh BackgroundQuery:=False
End With
End Sub