|
VB 4/6- und VBA-Forum - Beitragsübersicht - |
|
Von |
Daniel Friedrich |
E-Mail |
Dfriedrich69@gmail.com |
Datum |
23. März 2018 um 19:33:28 |
Frage |
Kann mir ieman helfen mit den folgenden, Mein Acrobat Reader wurde heute durch Acrobat Reader 2017 ersetzt und ich kan den VBA code niet meer ausfuren kan ier mir iemand vielecht helfen?
Option Explicit Option Compare Text
'System-Konstanten für Acrobat Reader Private Const iHKCU = &H80000001 Private Const iHKLM = &H80000002
Private Const sRegKey = "Software\Adobe\Acrobat Reader\" Private Const sExeValue = "\Adobe\Reader %1\Reader\AcroRd32.Exe"
Private Const sExeSql = "Select * from Win32_Process Where Name='AcroRd32.Exe'" Private Const sWinMan = "winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2" Private Const sWinReg = "winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv"
'Diese Function ermittelt den Programm-Pfad vom AcrobatReader Public Function GetAcroReaderPath() As String Dim intHKey As Variant, aValues As Variant, sValue As String, strAcroPath As String
With GetObject(sWinReg) For Each intHKey In Array(iHKCU, iHKLM) .EnumKey intHKey, sRegKey, aValues If IsArray(aValues) Then If IsNumeric(aValues(0)) Then sValue = aValues(0) End If Next End With
If sValue <> "" Then strAcroPath = Environ("ProgramFiles") & Replace(sExeValue, "%1", sValue)
With CreateObject("Scripting.FileSystemObject") If .FileExists(strAcroPath) = False Then strAcroPath = "" End With
GetAcroReaderPath = strAcroPath End If End Function
'Diese Function schließt den AcrobatReader Public Sub CloseAcroPdfFiles() Dim objProcess As Object
For Each objProcess In GetObject(sWinMan).ExecQuery(sExeSql) objProcess.Terminate Next End Sub |
|
[ Antwort schreiben | Zurück zum VB 4/6- und VBA-Forum | Forum-Hilfe ] |
|
Letzte Aktualisierung: Sonntag, 13. Dezember 2015 |
|