Thema Datum  Von Nutzer Rating
Antwort
12.02.2009 11:12:51 Andreas
NotSolved
Blau Aw:pdf aus Excel-vba aufrufen
 12.02.2009 11:32:37 jh
NotSolved
12.02.2009 12:50:16 Andreas
NotSolved

Ansicht des Beitrags:
Von:
jh		 Datum:
12.02.2009 11:32:37		 Views:
882		 Rating:
     
Antwort:
  Ja
Thema:
Aw:pdf aus Excel-vba aufrufen
Hallo,

so einfach ist das leider nicht, das würde ja voraussetzen, dass man
auf das Objektmodell des Adobe Readers in derselben Weise zugreifen
kann wie auf das von Excel. Das ist aber nicht der Fall.

Füge folgendes im Codebereich des Objektes ein, wo sich dein
CommandButton befindet (UserForm oder Worksheet):

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 du deinen Button auf einem Tabellenblatt hast, ersetzt du
Me.Caption durch Application.Caption.

Gruß Jürgen

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
12.02.2009 11:12:51 Andreas
NotSolved
Blau Aw:pdf aus Excel-vba aufrufen
 12.02.2009 11:32:37 jh
NotSolved
12.02.2009 12:50:16 Andreas
NotSolved