| |
こちらには初の投稿となります。
主にACCESS質問箱を閲覧させて頂いてますが、
EXCELとの連動を行っている方が結構いらっしゃるように
見受けられます。
そこでACCESSから自動でエクセルの参照設定をできるよう、
コードを考えさせて頂きました。
Function DBOPEN()
Dim Ref As Variant
Dim xlsGUID As String
Dim Majo As Long
Dim Mino As Long
For Each Ref In Application.References
If Ref.BuiltIn Then
If Ref.Name = "EXCEL" Then Application.References.Remove Ref
Else
Application.References.Remove Ref
End If
Next
xlsGUID = "{00020813-0000-0000-C000-000000000046}"
Select Case SysCmd(acSysCmdAccessVer)
Case 8: Majo = 1: Mino = 2 'AC97
Case 9: Majo = 1: Mino = 3 'AC2000
Case 10: Majo = 1: Mino = 4 'AC2002
Case 11: Majo = 1: Mino = 5 'AC2003
Case Else: GoTo ErrExe
End Select
Application.References.AddFromGuid xlsGUID, Majo, Mino
Exit Function
ErrExe:
MsgBox "エクセルの参照設定を手動で行ってください"
End Function
当方の環境でAC97、AC2002で作動確認を済ませておりますが、
AC2000、AC2003で確認ができる方がいらっしゃいましたら
お手数ですが結果を教えて頂きたいと思っております。
…目安箱にあります、Jakaさんの汎用性のあるコードには
お世話になっております。
自分のコードは稚拙ではありますが、動作的に問題がなければ
目安箱に載せさせて頂こうと思っております。
※管理人様、内容が不適切でしたらお手数ですが削除をお願いします。
|
|
