オフィス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で質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) エクセルのマクロとシートの保護について教えてください。 1 2022/10/18 08:36
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 09:25
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) VBAでファイル名を指定して保存するとき 4 2023/03/26 21:55
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) モードレスでユーザーフォームが開け(表示)ません。 4 2022/09/09 11:05
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ゴールデンカムイのアシリパち...
-
AndroidのAPN設定をいじってい...
-
親がAndroidで子がiPhoneで子供...
-
Amazonの欲しいものリストを公...
-
JCOM利用で、TVを買い替えする...
-
WAKWAKメールのIMAP設定方法を...
-
[オートフィルタ]の適用範囲の...
-
ボタンが2つだけのデジタル時...
-
アウトルックですが、既読なの...
-
アウトルック2019ですがIMAPで...
-
LogMeIn Hamachi について質問...
-
薄桜鬼の公式の年齢設定について
-
無線LANルーターはリチウム電池...
-
DBMS_STATSのdegree句について
-
このPCのスペックではあと何年...
-
VBAで参照設定を行いたい GUID...
-
CHDK
-
「設定してほしい」と「設定さ...
-
振動試験の掃引の条件設定について
-
Googleフォームで作成したアン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
親がAndroidで子がiPhoneで子供...
-
ボタンが2つだけのデジタル時...
-
AndroidのAPN設定をいじってい...
-
東横線のQシート、供給過多なの...
-
WAKWAKメールのIMAP設定方法を...
-
JCOM利用で、TVを買い替えする...
-
OLYMPUSの日付について教えて欲...
-
叶姉妹って本当に金持ちなんで...
-
アウトルックですが、既読なの...
-
振動試験の掃引の条件設定について
-
「設定してほしい」と「設定さ...
-
字数÷400=枚数ではないんです...
-
群像新人賞は原稿用紙設定から...
-
Googleナビで高速に乗って遠出...
-
固定電話の留守電設定について
-
LINEのバックアップでGoogleを...
-
PUBGモバイルについてです。 最...
-
パナソニックポータブルテレビ...
-
トレイルカメラの説明書で分か...
-
セルスター ARG10A
おすすめ情報