Makros aus allen XLS u. XLA-Dateien in Textdatei
23.09.2003 16:34:00
Reinhard
im Laufe der Zeit sammelten sich sehr viele Exceldateien bei mir an.
Nun hätte ich gern alle makros daraus in einer Textdatei um mal einen Überblick zu haben was wo steht.
Ich kopiere mir alle xl?-Dateien in ein einziges Verzeichnis und lasse mir dann nacheinander alle Dateien öffnen und nach Kopieren der Makrocodes in eine Textdatei wieder schliessen.
Mit Hilfe vom Euren Beiträgen und dem Archiv von Hans krieg ich das Öffnen und Schliessen hin.
Welchen Code brauche ich um folgendes zu tun:
(jeweilige Datei ist geöffnet, Textdatei mit Open for output as #1 auch)
Sub Code_Kopieren( ByVal Dateiname As String)
For each Tab in Tabellen
Print #1, Dateiname & Tabellenname
Print #1, Tabellencode
Next Tab
For Each Mod in Module
Print #1, Dateiname & Tabellenname
Print #1, Modulcode
Next Mod
For each Ver in Verweise
print #1, Verweis
Next Ver
End Sub
Vielen Dank für das Interesse und eventuelle Lösungsansätze *hoff*
Gruß
Reinhard