Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
248to252
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

PDF-Datein öffnen

PDF-Datein öffnen
28.04.2003 11:10:03
Sandra K.
Hallo!

Wollte über eine ComboBox PDF-Datein öffnen. ComboBox hab ich und funktioniert soweit auch. Mein Problem ist es, die PDF-Datein zu öffnen. Ein Acrobat Reader ist vorhanden.

MfG Sandra

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: PDF-Datein öffnen
28.04.2003 12:36:40
Willie

Ich hoffe das klappt so:

Sub pdf()
Set wshshell = CreateObject("WScript.Shell")
wshshell.Run "C:\Temp\Mein.pdf"
End Sub

Gruß Willie

Re: PDF-Datein öffnen
28.04.2003 12:39:47
Michael Scheffler

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


Sub pdfAufruf(strDatei As String)
'========================================================================================
'2002-02-20, Michael Scheffler, IMA
' Ruft PDF-Datei auf
'========================================================================================
Dim strTemp
strTemp = Space(Len(strDatei))
strTemp = strDatei
ShellExecute 0, "Open", strDatei, "", "", SHOWMAXIMIZED
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige