Dateien auflisten, die Makros enthalten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub ScanDir() Const Pfad As String = "D:\Eigene Dateien\" Dim irow As Long, icounter As Long Dim icol As Integer irow = 1 icol = 1 With Application.FileSearch .LookIn = Pfad .FileName = "*.xls" .SearchSubFolders = True .Execute For icounter = 1 To .FoundFiles.Count irow = irow + 1 If irow = 65537 Then irow = 2 icol = icol + 1 End If Cells(irow, icol).Value = .FoundFiles(icounter) Cells(irow, icol).Hyperlinks.Add Cells(irow, icol), .FoundFiles(icounter) Cells(irow, icol + 1).Value = FileDateTime(.FoundFiles(icounter)) Next icounter End With Columns.AutoFit End Sub

Sub ShowFileList(folderspec) 'Argumentübergabe z.B "C:\excel\Arbeitsdateien" Dim fs, f, f1, fc Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each f1 In fc If f1.Type = "Microsoft Excel-Arbeitsblatt" Then Debug.Print f1.Name End If Next End Sub

Hi Rolf,
...wäre doch aber zu schön (um wahr zu sein?) ;-)
Ansonsten ist mir mit dem vbc.Type allein ja auch nicht geholfen, da ja in den Klassenmodulen durchaus Code stehen kann.
Ins Unreine gesprochen:
Alle Dateien des vorgegebenen Pfades z.B. mit FileSearch (oder auch FSO) ermitteln, dann öffnen, dann in einer Schleife alle VB.Vomponents abgrasen, innerhalb der Schleife jedes Component auf sowas wie "CountOfLines" überprüfen (dabei die Standardanweisung "Option Explicit" außen vor lassen), wenn Ergebnis Null, dann ne Boolsche Variable auf TRUE setzen, Datei wieder schließen, Dateinamen in das Tabellenblatt schreiben und daneben den Wert der Boolschen Variable. Und dann die nächste Datei öffnen usw. usw...
Geht´s nur so?
Grüße Boris

Dim vorh As Boolean Sub tt() vorh = False With Workbooks("testmitArbeitsmappe.xls") anzahl = .VBProject.VBComponents.Count If anzahl > 1 + .Sheets.Count Then vorh = True GoTo gefunden End If Zeilen = 0 For n = 1 To anzahl Zeilen = Zeilen + .VBProject.VBComponents(n).CodeModule.CountOfLines Next n If Zeilen > 0 Then vorh = True 'If Zeilen > 1 + 4 * n Then vorh = True 'bei Option explicit gefunden: MsgBox "Datei " & .Name & " hat Makros ist " & vorh End With End Sub

Hi K.Rola,
tja - da war der "Auftraggeber" etwas ungenau - es heisst nur: "Überprüfe alle Dateien darauf, ob Makros enthalten sind". Das lässt natürlich Interpretationsspielraum.
Da es sich dabei aber um meine eigenen Dateien handelt, kann ich sagen, dass die Dateien weder echte Klassenmodule enthalten noch ausschließlich aus Userforms bestehen.
Daher sollte jeder von mir programmierte Code auch beim Öffnen zu einer Makrowarnung führen.
Ich war jetzt so weit, dass ich alle Dateien in eine Spalte eingelesen habe. Den hatte ich hier https://www.herber.de/forum/messages/500609.html schon gepostet.
Jetzt hab ich das Ganze um ne weitere Routine ergänzt:


Sub Makro_ja_oder_nein()
Dim Wb As Workbook
Dim Vbc As Object
Dim Bol As Boolean
Dim C As Range
For Each C In Selection 'hier steht immer der FullName
On Error Resume Next
Set Wb = GetObject(C)
For Each Vbc In Wb.VBProject.VBComponents
If Vbc.codemodule.countoflines > 2 Then
Bol = True
C.Offset(0, 3) = "m"
Exit For
End If
Next Vbc
Wb.Close
Next C
End Sub

Also zunächst einfach mal die Überprüfung, ob es irgendein Modul gibt, welches mehr als 2 Zeilen beinhaltet (in Mappen ohne Code steht immer nur Option Explicit genau in der ersten Zeile).
Das funktioniert auch soweit (ist wohl nicht sehr schnell) - allerdings bleiben alle Projekte der mit GetObject geöffneten Dateien im Editor sichtbar. Warum nur?
Zudem hab ich bei vielen Dateien im Open-Ereignis ein Userform eingebunden - und der obige Code stoppt dann immer, bis ich das Userform wegklicke. Ist halt nervig.
Also: Ich denke, dass es so klappen wird - aber es interessiert mich schon, wie man es eleganter lösen kann.
Danke und Grüße
{Boris}

Sub test() Dim s$, b as Boolean Open "c:\dummy\test\mit.xls" For Input As #1 Do While Not EOF(1) Line Input #1, s If InStr(1, s, "Name=""VBAProject""") Then b = 1 Exit Do End If Loop Close #1 if b then MsgBox "yeps" End Sub

Beliebteste Forumthreads (12 Monate)

Dateien auflisten, die Makros enthalten

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dateien auflisten, die Makros enthalten

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread