Datum

Titel

25.04.2024 18:41:19

vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile

25.04.2024 18:22:55

Zeilen mit bestimmtem Datum in andere Mappe übertragen

25.04.2024 18:14:45

VBA - Excell - Kopie und "Diebstahl" Schützen

25.04.2024 17:49:39

Bedingte Formatierung

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1168to1172

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Registry auslesen, PDF in Reader Steuerelement?

Forumthread: Registry auslesen, PDF in Reader Steuerelement?
5 Beiträge zu diesem Forumthread
Anzeige
301 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Excel Dialoge
Top 100 Forumthreads

Kasimir

Hallo Leute,
ich hab da 2 Fragen, bei denen ich hoffe, Ihr mir weiterhelfen könnt.
1. Ich möchte in einem Adobe Reader ActiveX-Steuerelement (Name in Werkzeugsammlung: Adobe PDF Reader, Name des Steuerelements in Tabellenblatt: AcroPDF1) ein PDF anzeigen und weiß leider nicht, wie ich via VBA angebe, welches PDF dort angezeigt werden soll.
2. Ich prüfe in DieseArbeitsmappe mit der Zeile
.Range("ET2") = _
wsh.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Start.exe\")
in der Registry wo sich das Programm Start.exe befindet. Leider führt diese Zeile zu einem Fehler, wenn in der Registry der Eintrag nicht vorhanden ist. Wie kann ich diesen Fehler abfangen?
Ich hoffe Ihr könnt mir weiterhelfen und bedanke mich schon mal bei Euch,
Kasimir

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

In UserForm : AcroPDF1.LoadFile "C:\temp\test.pdf"

NoNet
Frage zu PDF gelöst, Registryfrage noch offen!

Kasimir
Registry auslesen

Anton
AW: Registry auslesen

Kasimir
Dim strValue as Variant '_oT

NoNet

In UserForm : AcroPDF1.LoadFile "C:\temp\test.pdf"

08.08.2010 16:37:48

NoNet

Hallo Kasimir,
in einem UserForm funktioniert das mit diesem Befehl :
AcroPDF1.LoadFile "C:\temp\test.pdf"
In einem Tabellenblatt funktioniert das scheinbar nicht, oder muss der Code z.B. per CommandButton "angestossen" werden !?!?
Wenn es automatisch geladen werden soll, kanns Du es auch einfach als DDE verknüpfen :
"Einfügen - Objekt - Aus Datei erstellen - (Datei auswählen) - Verknüpfen - OK"
Gruß, NoNet

Frage zu PDF gelöst, Registryfrage noch offen!

08.08.2010 20:08:59

Kasimir

Hallo NoNet,
danke Dir für Deine Antwort. Ich habe festgestellt, dass die Darstellung des PDF-Dokuments in dem Adobe Steuerelement genauso aussieht wie im Microsoft Web Browser Element. Ich werde es dann über das Web Browser Element realisieren.
Nun müsste ich nur noch wissen, wie ich den Fehler beim Auslesen der Registry abfangen kann. Jemand eine Idee?
Danke und Gruß,
Kasimir

Registry auslesen

08.08.2010 20:35:54

Anton

Hallo Kasimir,
probier's so:

Code:

Sub b()
Const HKEY_LOCAL_MACHINE = &H80000002
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Start.exe"
oReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath, "", strValue
If strValue <> "" Then
Range("A1") = strValue
Else
Range("A1") = "Start.exe nicht gefunden"
End If
End Sub

mfg Anton

AW: Registry auslesen

08.08.2010 21:16:47

Kasimir

Hallo Anton,
danke Dir für Deine Antwort. Funktioniert bestens. Eine Frage hätte ich allerdings noch. Die Variable "strValue" muss welchem Typ entsprechen? Ich habe diese als String deklariert, aber dann erhalte ich eine Fehlermeldung.
Schönen Restsonntag noch,
Kasimir

Dim strValue as Variant '_oT

09.08.2010 00:33:09

NoNet

_oT = "ohne Text"