オフィス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設定をいじってい...
-
WAKWAKメールのIMAP設定方法を...
-
Googleナビで高速に乗って遠出...
-
これなんですか? 緊急通報のみ...
-
日米合同委員会が、横田空域や...
-
K-9 MAIL 設定のインポート
-
DBMS_STATSのdegree句について
-
クライシス2、BF3のお勧め...
-
「設定してほしい」と「設定さ...
-
ボタンが2つだけのデジタル時...
-
Eclipseの環境変数PATHの設定場所
-
c# Main 関数に STAThreadAt...
-
ワードの原稿調整について
-
PACサーバーとは?
-
親がAndroidで子がiPhoneで子供...
-
アウトルックですが、既読なの...
-
PUBGモバイルについてです。 最...
-
jw-cadの使い方
-
Wordの文字数設定
-
振動試験の掃引の条件設定について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ボタンが2つだけのデジタル時...
-
AndroidのAPN設定をいじってい...
-
親がAndroidで子がiPhoneで子供...
-
Googleナビで高速に乗って遠出...
-
振動試験の掃引の条件設定について
-
VARDIA,デジタル受信設定の暗証...
-
WINDOWS PCとスマホについて
-
ワードの原稿調整について
-
APNがApplicationになっている
-
「設定してほしい」と「設定さ...
-
WAKWAKメールのIMAP設定方法を...
-
OLYMPUSの日付について教えて欲...
-
JCOM利用で、TVを買い替えする...
-
このPCのスペックではあと何年...
-
セルスター ARG10A
-
ウーバーイーツで楽天ペイで支...
-
QRコードって無限に作れるんで...
-
時刻を自動で設定するができない
-
X-R管理図 管理限界線の更新頻...
-
honeyviewの質問
おすすめ情報