Datei gemäß generiertem Pfad öffnen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Stephan,
also Punkt 1 (und damit auch Punkt 2) kann dir hier bestimmt niemand ohne weitere Infos beantworten. Hier meine Vorschläge zu Punkt 4.
Wenn der zu öffnende Dateityp standardmäßig mit DolgenLaser.exe verknüpft ist, dann sollte folgender Code in der entsprechenden Tabelle zum Ziel führen:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim strFilePath As String
Dim myShell As Object
If Target.Address  "$A$1" Then Exit Sub
strFilePath = Range("A2").Text
If strFilePath = strOldFile Then Exit Sub
strOldFile = strFilePath
If Dir(strFilePath) = Empty Then
MsgBox "Ungültiger Dateipfad: '" & strFilePath & "'.", vbExclamation
Exit Sub
Else
Set myShell = CreateObject("wscript.shell")
myShell.Run Chr(34) & strFilePath & Chr(34)
End If
End Sub

Falls der zu öffnende Dateityp NICHT standardmäßig mit DolgenLaser.exe verknüpft ist, dann solltest du folgenden Code verwenden und in der kursiv-gekennzeichneten Zeile den Dateipfad zur Anwendung DolgenLaser.exe anpassen:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strFilePath As String
Dim myShell As Object, strPathGoldenLaser As String
If Target.Address  "$A$1" Then Exit Sub
strFilePath = Range("A2").Text
If strFilePath = strOldFile Then Exit Sub
strOldFile = strFilePath
If Dir(strFilePath) = Empty Then
MsgBox "Ungültiger Dateipfad: '" & strFilePath & "'.", vbExclamation
Exit Sub
Else
strPathGoldenLaser = "C:\GoldenLaser.exe" 'Anwendungspfad anpassen!
Call Shell(strPathGoldenLaser & " """ & strFilePath & """", 1)
End If
End Sub

Viele Grüße
Martin

Option Explicit Dim strOldFile As String Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim strFilePath As String Dim myShell As Object, strPathGoldenLaser As String If Target.Address "$A$1" Then Exit Sub strFilePath = Range("A2").Text If strFilePath = strOldFile Then Exit Sub strOldFile = strFilePath If Dir(strFilePath) = Empty Then MsgBox "Ungültiger Dateipfad: '" & strFilePath & "'.", vbExclamation Exit Sub Else strPathGoldenLaser _ = "C:\Dokumente und Einstellungen\Zuschnitt\Eigene Dateien\LASER\release\GoldenLaser.exe" Call Shell(strPathGoldenLaser & " """ & strFilePath & """", 1) End If End Sub

Hallo Martin,
vielen dank für die schnelle Antwort - und sorry wegen meiner späten Rückmeldung, waren außer Haus. Habe nun das erste Skript inkl. der Definition des "strOldFile" mal in eine Excel auf meinem Rechner übernommen. Dann habe ich einfach mal in Tabelle 1 einen gültigen Dateipfad auf eine pdf in A2 kopiert und mit Return bestätigt (meiner Logik nach sollte das Skript nun dafür sorgen, dass die Datei, die standardmäig mit dem Adobe Reader geöffnet wird, nun aufgeht). Aber es passiert leider nichts...Kann natürlich daran liegen, dass ich das Skript am falschen Platz eingefügt habe. Die "strOldFile" Definition und den Rest des Skripts habe ich in einem neuen Modul abgelegt, der dortige Inhalt erscheint dann auch unter "Tabelle1".
Danke schon mal, VG
Stephan

Beliebteste Forumthreads (12 Monate)

Datei gemäß generiertem Pfad öffnen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread