.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

Beiträge aus den Excel-Beispielen zum Thema " .xls nehmen, enthaltene Makro ausführen, speichern"