Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

46151 / 76732

←次へ　｜　前へ→


	【35559】Excel2000のプロダクトID取得について

こば。 - 06/3/7(火) 19:41 -


	引用なし

	パスワード

Excel2000のプロダクトIDがうまく取れなくて困っております。
XP、2003では下記の記述でうまくいけるのですが、
2000ですとProductIDのある前のProductCodeIDの値が全く違った値で
取得されます。どこを読めば確実にとれるのか、ご存知の方教えていただけますでしょうか？

Sub license()

On Error Resume Next

Dim ProductVersion As String
Dim ProductCodeID As String
Dim ExcelPath As String

　　Set wsh = CreateObject("WScript.Shell")

　　'Excelのバージョン情報、プロダクトコード取得
　　ProductVersion = Application.Version
　　ProductCodeID = Application.ProductCode
　　
　　'レジストリ読み込みキーの作成
　　ExcelPath = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\" & ProductVersion & "\Registration\" & ProductCodeID & "\ProductID"
　　
　　'ExcelのプロダクトID取得
　　Range("I2") = wsh.Regread(ExcelPath)
　　'ユーザ名セット
　　Range("I3") = Application.UserName

Set wsh = Nothing

End Sub

5 hits

▼

【35559】Excel2000のプロダクトID取得について こば。 06/3/7(火) 19:41

≪