VBA Code

Sub Test () Dim Datei As String With ActiveSheet.QueryTables.Add(Connection:= "TEXT;Datei = Application.GetOpenFilename (Title:="Wähle Datei aus...",FileFilter:="Dateien (*.txt; *.csv; *.jpg),*.txt;*.csv;*. _ xls")Set Datei = ActiveSheet.Datei.Insert(Datei)", _ Destination:=Range("A3")) .Name = "Datei" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 1252 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = True .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, _ 2, 2, 2, _ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, _ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2 _ , 2, 2, 2, 2, 2, 2, 2, 2) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Burghard,
ich habe mir zwar nicht die Mühe gemacht, die anscheinend bei Dir erscheinende Fehlermeldung zu reproduzieren, würde Dir aber den Rat geben, den Datenimport einmal festzulegen (also einmal per "Daten - Externe Daten importieren" manuell durchgehen) und anschließend das so erzeugte Querytable-Objekt (die Abfrage) per VBA zu aktualisieren. Ein mehrfacher Aufruf Deines Codes (so er denn liefe) würde nur stets neue Querytable-Objekte erzeugen, was mindestens überflüssig ist.
Das Querytable-Objekt kannst Du aktualisieren per
ActiveSheet.QueryTables(1).Refresh False
Das entspricht dem Rechtsklick in den Importbereich und Auswahl "Aktualisieren". Die Nachfrage nach dem Dateinamen kannst Du in den Datenbereichseigenschaften aktivieren.
Gruß, Jürgen

Hallo Burghard,
mit folgenden Anpassungen sollte der Import funktionieren.
Allerdings weiss ich nicht, was du mit
Set Datei = ActiveSheet.Datei.Insert(Datei)
erreichen willst. Ist eigentlich überflüssig.
Gruß
Franz


Sub Test()
Dim Datei As Variant
Datei = Application.GetOpenFilename( _
Title:="Wähle Datei aus...", _
FileFilter:="Dateien (*.txt; *.csv),*.txt;*.csv")
If Datei = False Then Exit Sub
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Datei, Destination:=Range("A3"))
.Name = "Datei"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, _
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, _
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread