Okay, ich glaube ich hab das Problem soweit gelöst, dass ich keine Fehlermeldung bekomme und ich die Datei selber auswählen kann.
Allerdings scheint die Angabe "Abfragedefinition nicht speichern" nicht umgesetzt zu werden. Wenn ich den eingelesenen Bereich lösche kriege ich nämlich die Nachricht "Der gelöschte Bereich ist mit einer Abfrage verknüpft...".
So schaut mein Code aus:
Sub Einlesen()
'
' Einlesen Makro
'
'
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
Dim path As Variant
With Application.FileDialog(msoFileDialogOpen)
.Show
path = .SelectedItems(1)
End With
MsgBox ("Open: " & path)
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & path _
, Destination:=Range("$A$1"))
.Name = "WIWHEAT_1081_1999_613"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
.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, 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, 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, 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, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Gibt es hier eine Möglichkeit das so zu verändern, dass die Abfragedefinition wirklich nicht gespeichert wird?
Grüße
Mara
|