Herbers Excel-Forum - das Archiv

Datenimport aus Textdatei - Filtern

Bild

Betrifft: Datenimport aus Textdatei - Filtern
von: Wolfgang

Geschrieben am: 08.01.2007 20:52:44
Hallo,
in einer Arbeitsmappe wird unter anderem der Import von Datensätzen bzw. Teilen von Datensätzen aus einer Textdatei vorgenommen. Gibt es eine Möglichkeit die zu importierenden Daten (Lieferantennummern) bereits vorab -im Grunde in der Textdatei- zu filtern ? - Das heißt, z.B. anhand markierter Postleitzahlen, die in einem Listenfeld (mit Mehrfachmarkierung) innerhalb des Tabellenblattes angezeigt werden, nur die Lieferantennummern zu den jeweils gehörigen Postleitzahlen importiert werden. Der Code für den Datenimport steht unten. Ich müßte dabei auch eine Wahlmöglichkeit einbauen, ob ich vorab nach Postleitzahlen filtern möchte oder ob alle Daten (Lieferantennummern) importiert werden sollen.
Die Überschrift für die Postleitzahl innerhalb der Textdatei lautet "Haus_PLZ", der Trenner ist |
Danke schon jetzt Allen für die Rückmeldung.
Herzliche Grüße
Wolfgang
Sub Import1(Datei As String, wks As Worksheet, Ziel As String)
wks.Select
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Datei, Destination:=Range(Ziel))
.Name = "KundeA"
.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 = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "|"
.TextFileColumnDataTypes = Array(9, 1, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, _
9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

Bild

Betrifft: Geschlossen
von: Schließer
Geschrieben am: 12.01.2007 07:45:49
https://www.herber.de/forum/messages/836426.html
 Bild
Excel-Beispiele zum Thema "Datenimport aus Textdatei - Filtern"
400 leere Textdateien anlegen Daten aus Textdatei gezielt in Zellen übernehmen
Textdatei als externe Datei per VBA einbinden Textdatei mit vorgegebenen Feldlängen anlegen
Textdateien verbinden Variablen in einer temporären Textdatei zwischenspeichern
In importierter Textdatei englische Werte in deutsche wandeln Textdatei in Tabellenblatt importieren
Export in Textdatei mit festen Feldlängen Zellinhalte in Verbindung mit Variablen in Textdatei schreiben