Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
996to1000
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

PDF in Userform

PDF in Userform
24.07.2008 14:43:59
Gregor
Hallo Leute,
Ich habe eine Userform gebaut, ein CommandButton öffnet ein Pdf. Auf meinem anderen Rechner kriege ich das Pdf nichtauf weil mein acrobat reade in einem anderem Verzeichnis drin steckt. Gibt es eine Möglichkeit, das ich meine Userform nicht sage mit welchem rogramm ich das pdf öffnen muss. sondern das er nur die datei öffnet ala hyperlink?
Danke
Beste Grüße
Gregor

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PDF in Userform
24.07.2008 14:54:32
Kawensmann
Hallo,
folgendes habe ich mir mal im Netz zusammengesucht um den Reader-Pfad zu finden:

Private Const HKEY_LOCAL_MACHINE As Long = &H80000002
Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" ( _
ByVal hKey As Long, _
ByVal lpSubKey As String, _
ByVal dwReserved As Long, _
ByVal samDesired As Long, _
phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" ( _
ByVal hKey As Long, _
ByVal lpValueName$, _
ByVal lpdwReserved As Long, _
lpdwType As Long, _
lpData As Any, _
lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32" ( _
ByVal hKey As Long) As Long
Function GetRegistryStr(hRegRoot As Long, ByVal sSubKey As String, ByVal sKey As String) As  _
String
Dim hSubKey As Long, regType As Long, sRet As String, ret As Long, n As Long
ret = RegOpenKeyEx(hRegRoot, sSubKey, 0, &H3F, hSubKey)
If ret  0 Then Exit Function
n = 255
sRet = String(n, 0)
ret = RegQueryValueEx(hSubKey, sKey, 0, regType, ByVal sRet, n)
If ret = 0 And regType = 1 Then
GetRegistryStr = Left$(sRet, n - 1)
End If
ret = RegCloseKey(hSubKey)
End Function
Function PDFViewer() As String
PDFViewer = GetRegistryStr(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\ _
App Paths\AcroRd32.exe", "Path")
If PDFViewer  "" Then PDFViewer = PDFViewer + "\AcroRd32.exe"
End Function


Gruß
Kawensmann

Anzeige
AW: PDF in Userform
24.07.2008 15:28:13
Gregor
Hallo Kawensmann,
Fehler beim kompilieren:
Nach end sub, ..... können nur kommentare stehen. Bring ich den code falsch ein oder was passiert da.
danke
best
gregor

AW: PDF in Userform
25.07.2008 10:41:00
Kawensmann
Die Deklarationen gehören an den Anfang des Moduls.

AW: PDF in Userform
24.07.2008 22:10:00
Jürgen
Hallo Gregor,
wie wäre es mit
Shell "cmd /C""d:\temp.pdf"""
bzw.
Shell "cmd /C""" & DateiPfadUndName & """"
wenn der Dateiname in der Variablen "DateiPfadUndName" gespeichert ist.
Gruß, Jürgen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige