Herbers Excel-Forum - das Archiv
.xls nehmen, enthaltene Makro ausführen, speichern
Betrifft: .xls nehmen, enthaltene Makro ausführen, speichern
von: Toralf
Geschrieben am: 04.12.2003 13:04:03
Hallo, ich habe ein Problem und hoffe das Ihr mir helfen könnt!
Ich möchte in einem Excel Sheet verschiedene .xls Files als Liste angeben.
C:\a.xls
C:\b.xls
C:\c.xls
Dann soll ein makro den Pfad auslesen, das entsprechende File nehmen, das darin enthaltene Makro ausführen und unter einem angegebenen Pfad abspeichern.
Hab Ihr da Lösungsvorschläge?
DANKE!!
Betrifft: AW: .xls nehmen, enthaltene Makro ausführen, speichern
von: Karl-Otto Reimann
Geschrieben am: 04.12.2003 13:20:29
Hallo Toralf
Folgender Vorschlag sucht nach "sonstwas":
Sub Import_test()
Dim sWord As String, sPath As String, sSearchPath As String, FileName As String, InputData
Dim AnzFound As Integer
AnzFound = 0
sWord = "sonstwas"
sSearchPath = "c:\blabla\*.xls"
sPath = "c:\blabla\"
FileName = Dir(sSearchPath)
If FileName <> "" Then
Do While FileName <> ""
Open sPath & FileName For Input As #1
Do While Not EOF(1)
Line Input #1, InputData
If InStr(1, InputData, sWord) > 0 Then
AnzFound = AnzFound + 1
Sheets("Tab1").Cells(AnzFound, 11) = FileName
Sheets("Tab1").Cells(AnzFound, 10) = InputData
End If
Loop
Close #1
FileName = Dir
Loop
End If
End Sub
mfG KO