ich wollte um eine kleine Unterstützung bitten und zwar erstelle ich mit der folgenden Excel Routine automatisch eine Liste der PDF Dateien die in einem definierten
Pfad liegen. Mein Wunsch währe es wenn in der liste der bei uns typische dateiname des pdfs (983.00806_01-00-Support Plate) so aufgespitted würde, das der numersiche Teil in Spalte A mit Hyperlink eingetragen würde und der Name in Spalte B lade würde. Ist dieses möglich, kann mir einer von euch da weiter helfen?
Sub Hyperlink()
'Excel Dateien mit HyperlinkAuflisten
Const PFAD As String = "C:\Import VBA"
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(PFAD)
Range("A2:A" & Rows.Count).ClearContents
For Each objFile In objFolder.Files
If Left(Right(objFile.Name, Len(objFile.Name) _
- InStrRev(objFile.Name, ".") + 1), 4) = ".pdf" Then
ActiveSheet.Hyperlinks.Add Anchor:=Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0), Address:=objFile.Path, _
TextToDisplay:=objFile.Name
End If
Next 'objFile
Set objFile = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
End Sub
Ich bedanke mich jetzt schon mal im voraus für alle HilfeDanke
MFG