.xls nehmen, enthaltene Makro ausführen, speichern

• .xls nehmen, enthaltene Makro ausführen, speichern von Toralf vom 04.12.2003 13:04:03
  • AW: .xls nehmen, enthaltene Makro ausführen, speichern - von Karl-Otto Reimann am 04.12.2003 13:20:29

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

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