Hallo VBA-Kenner,
ich habe ein kleines Problem, das ich trotz Recherche in der Forum-Suche nicht gelöst bekomme.
In einem Verzeichnis (der Pfad ist feststehend) befinden sich mehrere pdf-Dateien, deren Dateiname sich aus einem feststehenden Namen (TestA_ , TestB_ , TestC_ , usw.) und einer veränderlichen Datumsangabe in der Schreibweise "20151021" zusammensetzt ( also z.B. TestA_20151021.pdf , usw.).
Zur Zeit öffne ich die betreffenden pdf-Dateien aus einer Userform mit einem Commandbutton heraus, in dem ich einen Hyperlink, der in einer Zelle im Tabellen steht, anspreche.
Bsp.: Sheets("Testdaten").Cells(4, 4).Hyperlinks(1).Follow
( In der Zelle "D4" steht als Hyperlink "Messreihe1\Testdaten\TestA_20151021.pdf )
Das funktioniert auch sehr gut. Da sich aber der Dateiname ständig ändert (Datum), möchte ich jetzt irgendwie erreichen, dass der Anfang des Dateinamens reicht, um die Datei als solche zu erkennen und dann direkt zu öffnen, ohne irgendeinen "Öffnen-Dialog".
Hier mein Versuch, das umzusetzen ...
Option Explicit
Public Pub TestdatenAnzeigen()
Dim Testdaten As Workbook
Dim Pfad As String
Dim TestA As String
Dim TestB As String
Dim TestB As String
TestA = "TestA_"
TestB = "TestB_"
TestC = "TestC_"
On Error Goto err
Set Testdaten = ActiveWorkbook
Pfad = ThisWorkbook.Path
Msgbox Pfad & "\TestdatenFiles\" & TestA, vbInformation 'nur zum Testen der Pfadangabe
Msgbox Pfad & "\TestdatenFiles\" & TestB, vbInformation
Msgbox Pfad & "\TestdatenFiles\" & TestC, vbInformation
'und hier fehlen mir jetzt die passenden Ideen ...
Exit Sub
err:
Application.ScreenUpdating = True
Call Msgbox ("Prüfen, ob Testdaten vorhanden sind", vbExclamation, "Fehler")
End Sub