Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

.xls nehmen, enthaltene Makro ausführen, speichern

.xls nehmen, enthaltene Makro ausführen, speichern
04.12.2003 13:04:03
Toralf
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!!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: .xls nehmen, enthaltene Makro ausführen, speichern
04.12.2003 13:20:29
Karl-Otto Reimann
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige