Guten Morgen,
sitze gerade vor folgendem Problem.
Ich habe einen Ordner mit mehreren tausend unterordnern. Die Namen dieser ordner sollen ausgelesen und in eine Excel-Liste gepackt werden.
Dies klappt soweit.
In jedem Ordner befindet sich eine .pdf-Datei mit demselben Namen wie der Ordner. Bsp: Ordnername: 12345 PDF-Name: 12345.pdf
Nun soll durch einen Klick auf die ausgelesene Liste in Excel ein Hyperlink zur entsprechenden .pdf Datei erstellt werden, sodass diese Datei sich öffnen.
Heisst also, wenn ich z.b. in der Excel-liste auf den Ordnername 12345 klicke, soll sich die darin befindliche Datei 12345.pdf öffnen.
Ist das machbar?
Zum auslesen der Ordnernamen benutze ich folgenden Code:
Option Explicit
Sub GetSubFolders(strPath)
'Variablen Deklarieren
Dim objFSO As Object
Dim objFolder As Object
Dim objSubFolder As Object
Dim objSubFolders As Object
Dim i As Long
i = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPath)
Set objSubFolders = objFolder.SubFolders
'Fügt Name in Zelle i, 1. i um Eins erhöhen
For Each objSubFolder In objSubFolders
ActiveSheet.Cells(i, 1).Value = objSubFolder.Name
i = i + 1
Next
End Sub
Sub x()
Call GetSubFolders("C:\Ordner")
End Sub
Über jegliche Hilfe würde ich mich sehr freuen :)
Viele Grüße
Tim
|