オフィス2010なのですが、
VBAで参照設定を行いたいのですが
GUIDというのはどうやって調べればいいのでしょうか?
例えばエクセルに参照設定したいのですが
レジストリエディタを立ち上げて、
HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Excel
のどの部分を見れば、GUIDがわかりますか?
http://www.moug.net/tech/acvba/0010004.html
を参考にvbaコードを作っていますが、
Public Function SetGUID()
On Error GoTo Err_Check:
Dim Ref As Reference
'Microsoft Excel 9.0 Objects Library (Excel2000)
Const strExcel As String = "{00020813-0000-0000-C000-000000000046}"
'参照設定
Set Ref = References.AddFromGuid(strExcel, 1, 3)
Func_Exit:
Set Ref = Nothing
Exit Function
Err_Check:
If Err.Number = 32813 Then
Resume Next
Else
MsgBox "Error Number : " & Err.Number & vbCrLf & Err.Description
GoTo Func_Exit:
End If
End Function
やはりこれだと、参照設定できません。
もちろんオフィスのバージョンが違うからだと思いますが。
あと、AddFromGuidメソッドの引数Major、Minorも、どの値を設定してあげればいいのかわかりません。
ご教授よろしくお願いします。
No.1ベストアンサー
- 回答日時:
そこまで近づいておきながら・・・。
一番下に、
タイプライブラリのGUIDやバージョンを取得する
http://www.moug.net/tech/acvba/0020002.html
がありますよ。
参照設定を自動的に行う (AddFromFileメソッド)
http://www.moug.net/tech/acvba/0010005.html
も一緒に調べてみたほうが吉。
なお、両方ともAccessを対象としているので
Excelの場合は、
http://oshiete.goo.ne.jp/qa/7648287.html
のようになるのかな?と思います。
ヒント有難うございます。
もしエクセルの参照設定がされてないならする・・・ができました!
Sub SetGUID()
Dim Ref As Reference
Dim strExcel As String
Dim flg As Boolean
strExcel = "{00020813-0000-0000-C000-000000000046}"
For Each Ref In References
If Ref.Guid = strExcel Then
flg = True
Exit For
End If
Next
If flg = False Then
Set Ref = References.AddFromGuid(strExcel, 1, 7)
End If
Set Ref = Nothing
End Sub
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
推しミネラルウォーターはありますか?
推しミネラルウォーターがあったら教えてください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
ExcelのVBAによる参照設定について
Visual Basic(VBA)
-
実行時エラー48発生時のDLL特定方法。
Visual Basic(VBA)
-
エクセル(複数インスタンス)より任意のWorkBookを取得したい
Visual Basic(VBA)
-
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Googleナビで高速に乗って遠出...
-
AndroidのAPN設定をいじってい...
-
ボタンが2つだけのデジタル時...
-
振動試験の掃引の条件設定について
-
「設定してほしい」と「設定さ...
-
時刻を自動で設定するができない
-
LogMeIn Hamachi について質問...
-
OMRON PLC CP2Eのプログラム
-
VBAで参照設定を行いたい GUID...
-
親がAndroidで子がiPhoneで子供...
-
これなんですか? 緊急通報のみ...
-
3DSのwi-fiコネクション設定...
-
JTableの列の幅設定
-
薄桜鬼の公式の年齢設定について
-
Plextools の設定方法について
-
JCOM利用で、TVを買い替えする...
-
ExcelのVBAによる参照設定について
-
GDBである変数に条件を設定して...
-
デジカメで炭火を撮影すると、...
-
プレステ2のパレンタルロックっ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Googleナビで高速に乗って遠出...
-
AndroidのAPN設定をいじってい...
-
ボタンが2つだけのデジタル時...
-
「設定してほしい」と「設定さ...
-
ネットワークのルーティング設...
-
親がAndroidで子がiPhoneで子供...
-
JCOM利用で、TVを買い替えする...
-
振動試験の掃引の条件設定について
-
Googleカレンダーで祝日に予定...
-
最低賃金
-
【Town of Host】
-
セルスター ARG10A
-
固定電話の留守電設定について
-
ウーバーイーツで楽天ペイで支...
-
時刻を自動で設定するができない
-
ペイントのページ設定を保存したい
-
QRコードって無限に作れるんで...
-
A4判40文字×35行、フォントサイ...
-
WAKWAKメールのIMAP設定方法を...
-
ワードの原稿調整について
おすすめ情報