Hi,
Ich hab mir jetzt in VBA ein kleines Programm geschrieben, welches mir Daten aus einem *.txt-File importiert und die Importierten Werte dann an eine andere Stell (bzw auf einem Anderen Sheet) hin kopiert.
Das ganze hat am Anfang auch ganz wunderbar funktioniert. Nur jetzt funktioniert es nicht mehr. Will ich das Programm starten, schreibt er mir einen Fehlermeldung (Nummer: 1004 und noch eine ganz andere nummer :-)) und springt im code, bei dem Importieren der Daten, an die Stelle:
Application.Sheets("Sheet2").Select
Application.Sheets("Sheet2").Activate
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & replace_file_name, Destination:=Application.Worksheets("Sheet2").Range("A1"))
'.Name = "CLD_sbond_C547_VCO33_001"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False '<---- Hier ist der Fehler?!
End With
Und wirft mir eben die Fehlermeldung entgegen.
Hin und wieder Funktioniert es.. aber dann importiert er mir die Daten nicht an die richtige Position sondern hängt sie bei den zuvor importierten Daten an.
Wenn ich jetzt zu dem Bereich gehe, wohin ich die Daten importiere und alles markiere und löschen will kommt folgender hinweis:
"The range you deleted is associated with a query that retrieves data from an external source. dou you want to delete the query in addition to the range? ..."
Was könnte es da haben? Und könnte mir jemand erklären, wie das mit dem Query funktioniert?
Kann es sein, dass der Fehler daher kommt, dass ich das Importieren der Daten öfters im Programm verwende?
mfg Schoasch |