pdf öffnen
03.09.2004 08:35:20
rene
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
Anzeige