Hallo VBA Gemeinde,
mit folgendem Code liste ich mir den Inhalt von PDF's in Excel.
Sub Dateinamen_auflisten()
Dim FSO As Object
Dim strPfad As String
Dim x As Integer
Dim strGef As Object
Application.ScreenUpdating = False
strPfad = "Y:\xx\xx\xx-xxx_xxxx\xxxxxxxxx\Archiv"
ActiveSheet.UsedRange.Clear
Set FSO = CreateObject("Scripting.FilesystemObject")
For Each strGef In FSO.GetFolder(strPfad).Files
Select Case LCase(FSO.getextensionname(strGef))
Case "pdf"
x = x + 1
ActiveSheet.Hyperlinks.Add Anchor:=Cells(x, 1), Address:= _
strGef, TextToDisplay:=strGef.Name
End Select
Next
Application.ScreenUpdating = True
End Sub
So, in diesen Ordner befinden sich aber mehr als 4000 Dateien und eigentlich benötige ich immer nur die Dateien die im DateLastModified das heutige Datum stehen haben. Wie und wo muss ich welchen Code setzen damit er das macht. Für Eure hilfe danke ich.
Beste Grüße
Roman |