Thema Datum  Von Nutzer Rating
Antwort
25.02.2008 17:20:48 Dias Lucia
NotSolved
Blau Aw:Öffnen einer Datei über ein Steuerelement
26.02.2008 07:18:47 jh
NotSolved

Ansicht des Beitrags:
Von:
jh
Datum:
26.02.2008 07:18:47
Views:
1027
Rating: Antwort:
  Ja
Thema:
Aw:Öffnen einer Datei über ein Steuerelement
Hallo,

je nachdem ob du den Button in einer UserForm oder auf einem
Tabellenblatt hast, fügst du folgendes im Codebereich der
Form oder des Worksheets ein:

Private 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

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal ClassName As String, ByVal WindowName As String) As Long

Private Sub CommandButton1_Click()
Dim strPDF As String
strPDF = "C:\Test.pdf" ' Beispiel
ShellExecute FindWindow(vbNullString, Me.Caption), "Open", strPDF, _
vbNullString, vbNullString, 1
End Sub

Wenn der Button auf einem Tabellenblatt ist, ersetzt du Me.Caption
durch Application.Caption. Voraussetzung für die Funktion ist, dass
auf dem Zielsystem der Acrobat Reader installiert und der Dateityp
PDF mit ihm verknüpft ist (das geschieht normalerweise bei der
Installation).

Gruß


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.02.2008 17:20:48 Dias Lucia
NotSolved
Blau Aw:Öffnen einer Datei über ein Steuerelement
26.02.2008 07:18:47 jh
NotSolved