Microsoft Excel

Herbers Excel/VBA-Archiv

pdf öffnen

Betrifft: pdf öffnen von: rene
Geschrieben am: 03.09.2004 08:35:20

guten morgen zusammen


ich lese mit einem button alle pdf dateien in eine combobox
aber wie kann ich eine davon nun über einen klick öffnen

bis jetzt muss ich den dateinamen noch in zellen geben
das macht die schöne combobox ja überflüssig

hat jemand ne idee

hier mein bisher (zusammengesuchter) code

Option Explicit
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
Declare 
Function GetActiveWindow Lib "user32.dll" () As Long


Sub pdfÖffnen(dateiname As String)
  Dim hwnd As Long
  hwnd = GetActiveWindow()
  ShellExecute hwnd, "open", dateiname, "", "", 1    '3 statt 1 bedeutet Maximiert-öffnen
End Sub


Sub öffne()
Dim a As String
Dim b As String

a = Worksheets("menü").Cells(1, 5).Value
b = Worksheets("Menü").Cells(1, 6).Value
pdfÖffnen ThisWorkbook.Path & "\out\" & a & "_" & b & ".pdf"
End Sub


danke schon mal

gruß rene aus LE
  


Betrifft: danke! erledigt oT von: rene
Geschrieben am: 03.09.2004 09:55:06

ot