Arbeitsmappen m. VBA-Routinen
28.02.2005 13:19:29
Karsten
ich möchte gerne in einem Verzeichnis alle Excel-Dateien in ein Array schreiben, was soweit auch mit nachstehender Routine funktioniert...
Sub DateiListe()
Dim arrDateien() As String
Dim intCounter As Integer
Dim strDatei As String
strDatei = Dir("*.xls")
Do While strDatei <> ""
intCounter = intCounter + 1
ReDim Preserve arrDateien(1 To intCounter)
arrDateien(intCounter) = strDatei
strDatei = Dir()
Loop
End Sub
Nun hätte ich aber noch den Wunsch, daß ich nur die Dateien aufgelistet bekomme, welche VBA-Routinen enthalten. Geht soetwas überhaupt prinzipiell, daß man -automatisiert- feststellen kann, ob eine Excel-Datei VBA-Makros enthält.
Hintergrund meiner Frage ist schlicht und ergreifend, daß wir eine Migration von Office 97 auf Office 2003 planen und ich mir vorstelle, daß ich alle die Excel-Arbeitsmappen mit VBA-Routinen besonders im Hinblick auf die Lauffähigkeit unter Office 2003 prüfen muss, während alle Arbeitsmappen ohne VBA-Routinen -wahrscheinlich- problemlos konvertiert werden können.
Vielen Dank und Gruß,
Karsten