Pdf in Excel öffnen
10.08.2006 09:58:39
Ceci
ich möchte mit folgendem Code den Auswaldialog öffnen und eine pdf-Datei im Acrobat öffnen. Leider weiß ich nicht was ich anstatt von "windows.application" schreiben muss.
Kann mir jemand helfen?
Private Sub CommandButton2_Click()
Dim b As Boolean
Dim fFile As Variant
Dim pfad As Variant
pfad = Worksheets("Eingabedefinitionen").Cells(2, 7).Value
ChDir (pfad)
fFile = Application.GetOpenFilename("Alle Dateien(*.*), *.*")
If fFile = False Then Exit Sub
CreateObject(Windows.Application).documents.Open(fFile).Application.Visible = True
End Sub
mfg Ceci
Anzeige