Infos per variable finden, rauskopieren und einfüg
16.08.2005 10:33:15
Darren
wie sieht der Script unten aus, wenn ich aus einer Excel-Datei a.xls Informationen rauslesen muss und diese soll dann in der weirere Excel-Datei b.xls ausgegeben werden.
Die Zeile bzw. das Wort das ich suche ist "car" und muss wahrs. per variable gesucht werden, da die Zeilen und Spalten sich immer wieder verändern.
Wenn er es gefunden hat, soll er die Komplette Zeile kopieren und in der Datei b.xls kopieren.
Freue mich sehr um Eure Hilfe!
Visual Basic 6
Sub dateisuchen()
Dim sFile As String
Dim FNr As Long
Dim sWort As String
Dim sText As String
' Die zu durchsuchende Datei
sFile = "U:\eigene dateien\a.xls"
' Das zu suchende Wort
sWort = "car"
' Datei auslesen
FNr = FreeFile
Open sFile For Binary Access Read As #FNr
sText = Space$(LOF(FNr))
Get #FNr, , sText
Close #FNr
' Wort suchen
FNr = InStr(1, sText, sWort, vbTextCompare)
' Ergebnis ausgeben
If FNr <> 0 Then
MsgBox "Die Datei '" & sFile & "' enthält das Wort '" & sWort & "'"
Else
MsgBox "Das Wort '" & sWort & "' konnte nicht in der Datei '" & sFile & "' gefunden werden."
End If
End Sub