Office: (Office 365) Mit Command Button Link in Zelle öffnen

Hey Beverly,

anbei die Ergänzung mit den Hyperlinks und Sverweisen.

Danke! :-)
Gruß DuffBoy

 

Hi,

Spalte I mit der Hyperlinkformel benötigst du nicht, da die Datei nicht über den Link geöffnet werden kann. Du kannst es mal so versuchen:

Code:

Declare Function ShellExecute Lib "SHELL32.DLL" _
    Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

Sub Open_File(strFileName As String, windowType As Integer)
    ShellExecute 0, "Open", strFileName, "", "", windowType
End Sub

Sub Schaltfläche4_Klicken()
    Open_File Range("H2").Value, 1
End Sub

---

 

Hey Beverly,

danke hier vorab.
Es kommt folgende Fehlermeldung.
Hast du da ne Idee?

Gruß DuffBoy

 

Hi,

du verwendest offensichtlich eine 64bit-Excel-Version, dann müsstest du die Function so schreiben:

Code:

Declare PtrSafe Function ShellExecute Lib "SHELL32.DLL" _
    Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As LongPtr

Ich kann das nicht testen, da ich eine 32bit-Verion verwende.

---

 

Hey Beverly,

ein großes Dankeschön. Es funktioniert. :-) :-)
Kann ich beide Declare hintereinander setzten, sowohl 64 Bit als auch 32 Bit?

Gruß DuffBoy

 

Hi,

das müsste man dann über eine IF-Abfrage machen - so in der Art:

Code:

#If VBA7 Then
    Declare PtrSafe Function ShellExecute Lib "SHELL32.DLL" _
        Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
        ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As LongPtr
#Else
    Declare Function ShellExecute Lib "SHELL32.DLL" _
        Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
        ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As Long
#End If

---

 

Moin zusammen,

und wenn man ihn aus String-Segmenten zu einem Formula-String zusammensetzt ...
Grüße

 

Hi,

das Problem ist nicht, aus der Hyperlink-Formel den Pfad und den Dateinamen als String zu extrahieren - diese sind bekannt, stehen ja in der Nachbarspalte als normaler SVERWEIS. Oder man könnte umständlich mittels Range-Find-Methode in der anderen Tabelle den String zusammensetzen. Das Problem besteht jedoch darin, dass ein fixer Link in der Zelle benötigt wird, um ganz normal die Follow-Methode verwenden zu können. Wenn du eine Methode kennst, den Link auszuführen ohne dass er in einer Zelle steht, dann wäre ich sicher daran interessiert - man lernt ja nie aus.

Klar könnte man den Link per VBA ganz einfach als fixen Link in eine andere Zelle schreiben, die Follow-Methode ausführen und wieder löschen - das ist aber nicht unbedingt sinnvoll, wenn es auf einem anderem Weg möglich ist.
Wäre es eine Excel-Datei, die geöffnet wird, könnte man einfach die Wokbooks.Open-Methode verwenden. Es ist aber eine PDF-Datei - also bleibt anscheinend nur der Umweg über die API-Funktion (die übrigens den String für Pfad und Datei verwendet).

---