גישה ל Registry מאקסל

[שלמה 077]

@dovid כתב בגישה ל Registry מאקסל:

Dim val as String

תודה על העזרה מה יכולה להיות הסיבה שאני מקבל הודעת שגיאה זו

[dovid]

תנסה לגשת לערך שבCurrentUser, יש גם שגיאה?
אם כן תנסה סתם לעשות CreateObject בלי הRegRead, גם יש שגיאה?

[שלמה 077]

אם התכוונת ל - T = Application.CurrentUser אז זה אמנם עובד באקסס אבל לא באקסל
לעומת זאת הפקודה WshShell = WScript.CreateObject("WScript.Shell") מחזירה אותה שגיאה גם באקסס

[dovid]

לא הבנת אותי, התכוונתי ערך ברגיסטרי של CurrentUser, אבל נניח לזה, תגיד אם הקוד הבא עובד:

Dim o As Object
Set o = CreateObject("WScript.Shell")

[שלמה 077]

ניסיתי גם את זה,
ראיתי גם מאמר בנושא ב https://learn.microsoft.com/he-il/archive/blogs/ericlippert/whats-the-difference-between-wscript-createobject-server-createobject-and-createobject אם כי לא הבנתי את הרעיון

[dovid]

אני כן הבנתי את זה, ולא ענית לי אם נכשל אצלך.
שים לב שאצלי עובד באקסל.

[שלמה 077]

לא עובד

[שלמה 077]

סליחה! לא הצהרתי על משתנה לכן זה לא עבד
בכל אופן אני עדיין לא יכול לקבל נתונים

[dovid]

@שלמה-077
נתתי לך קוד שלא עבד לך, אז ניסיתי לבודד את הבעיה, וכמעט דיברתי לקיר...
למרבה המזל צירפת תמונה בה רואים שיצירת האובייקט לא נכשלת אלא שיש שגיאה בפתיחת המפתח, שכנראה לא קיים.
אני מבין מבין שיטי הקוד שאתה רוצה לקבל את הנתיב של הדפדפן כרום, הנה קוד שעושה זאת:

Dim chromePath As String
chromePath = CreateObject("WScript.Shell").RegRead("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\chrome.exe\")
MsgBox chromePath

[שלמה 077]

שיגעתי אותך יותר מדי אבל עוד קצת...
קודם כל מצאתי את הבעיה שלי פשוט היה חסר לי "" בסוף...
מה שכן, המפתח שאני כתבתי קיים אצלי במחשב

והמפתח שאתה כתבת לא קיים אצלי

זה אומר שהנתיבים ברישום לא קבועים? יש משתנים מסוג %SYTEMROOT% לרישום?

[dovid]

אכן שמונה, אולי זה תלוי אם הכרום מותקן ברמת משתמש או מערכת.

[dovid]

אבל השגיאה שלך מדברת על שורש לא קיים, אני לא מבין.

[שלמה 077]

אצלי המפתח currntversion לא נמצא ב windows