Herbers Excel-Forum - das Archiv

.xls nehmen, enthaltene Makro ausführen, speichern

Bild

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!!

Bild

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
Bild
Excel-Beispiele zum Thema " .xls nehmen, enthaltene Makro ausführen, speichern"
Adressen aus Adresstabelle übernehmen, bearbeiten, eintragen Zelleingaben speichern
Die "personl"-Arbeitsmappe ausgeblendet speichern Formeln mit Zelladressen speichern
Bestätigung beim Speichern unterdrücken. Arbeitsmappe unter dem Text eines Zelleintrags speichern
Einzelnes Tabellenblatt speichern Mappe unter Zelldatum speichern
Arbeitsmappe doppelt speichern Arbeitsmappe unter Namen speichern