Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
192to196
192to196
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Text import in Spalten mit Filter

Text import in Spalten mit Filter
13.12.2002 13:39:20
UWE
Hallo,
ich will eine Datenbank-Textdatei einlesen, die einer Zeile eine bestimmte Artikelnummer hat. Die Spalten sind durch „; „ getrennt.

Textdatei sieht so aus:
49000;Artikel1;Lager1;9;0,5;;18;26.11.01;;10529
49011;Artikel2;Lager2;9;0,5;;18;26.11.01;;10529
47015;Artikel3;Lager3;9;0,5;;18;26.11.01;;10529

Es sollen aber nur bestimmte Artikel importiert werden und dann wieder in Spalten
eingelesen werden.
Ich habe eine Routine gefunden- diese liest aber nicht in Spalten ein.
Wer kann mir sagen wie ich die Fundstellen in Spalten einlesen kann?
Danke
Gruss Uwe

Sub import1()
Dim fs As FileSearch
Dim lRow As Long, lFile As Long
Dim iCounter As Integer
Dim sDir As String, sTxt As String, sBegriff As String
Application.ScreenUpdating = False
sDir = "c:\temp\"
‘Suchbegriff
sBegriff = "49011"


Columns("A").ClearContents
Set fs = Application.FileSearch
With fs
.LookIn = sDir
.Filename = "test.txt"
.Execute
intcol = 1
For iCounter = 1 To .FoundFiles.Count
lFile = lFile + 1
If lFile Mod 100 = 0 Then Application.StatusBar = _
"Bearbeite Datei " & lFile & "..."
Open .FoundFiles(iCounter) For Input As #1
Do Until EOF(1)
Line Input #1, sTxt
If InStr(sTxt, sBegriff) Then
lRow = lRow + 1
Cells(lRow, 1).Value = sTxt


End If


Loop
intcol = intcol + 1
Close
Next iCounter
End With
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Text import in Spalten mit Filter
13.12.2002 17:08:51
Nepumuk
Hallo Uwe,
ergänze dein Programm um folgendes:

Dim index As Integer, start As Integer


If InStr(sTxt, sBegriff) Then
lRow = lRow + 1
start = 1
For index = 1 To 10
If index < 10 Then
Cells(lRow, index) = Mid(sTxt, start, InStr(start, sTxt, ";") - start)
Else
Cells(lRow, index) = Mid(sTxt, start)
End If
start = InStr(start, sTxt, ";") + 1
Next index
End If

Re: Text import in Spalten mit Filter -Danke-
16.12.2002 08:25:46
Uwe
Danke,
Gruss Uwe
Anzeige

394 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige