|
Hallo,
ich arbeite mit einem CAD-Programm, dass nach jedem speichern den Suffix ändert. Zum Beispiel das Suffix 53 bei der Datei:
00132-00135_00565-00567.drw.53
Jetzt will ich in Excel eine Liste erstellen mit verschiedenen Artikelnummern und beim Anklicken dieser Artikelnummer soll ein Viewer starten und mir diese Datei öffnen.
Sub Creo()
Dim myShell As Object
Set myShell = CreateObject("WScript.Shell")
myShell.Run """C:\Program Files (x86)\PTC\Creo 3.1\View Express\bin\pvexpress.exe"" ""C:\Users\Andrej Dinner\Desktop\Excel_Test\w07579_p_3407a.drw.50"""
End Sub
Da nicht jeder diesen Viewer hat, hier eine Variante mit der sich die Datei im Explorer finden lässt:
Sub Explorer_und_Datei()
Shell "Explorer.exe /select, Q:\CAD\Normteile\00132-00135_00565-00567.drw.53", vbNormalFocus
End Sub
Wenn sich jedoch jetzt das Suffix auf 54 ändert, dann geht das Makro kaputt. Wie lässt sich ein Platzhalter einbauen, um die 53 zu ignorieren.
Mein momentaner Ansatz ist:
Sub Explorer_und_Datei()
Dim pfad As String
pfad = "Q:\CAD\Normteile\"
Shell "Explorer.exe /select, Q:\CAD\Normteile\00132-00135_00565-00567.drw.53", vbNormalFocus
End Sub
Jedoch wird hierbei mit Excel die Datei geöffnet was mir nichts bringt. Ich habe leider kA von VBA und konnte mir mein bissheriges Wissen nur "ergoogeln".
Für jeden Tipp bin ich dankbar.
Gruß
Andrej
|