| |
みなさま：
こんにちは。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=31272;id=excel
こちらのレスを見て以前うまくいかなかったコードを思い出し、見直してみました。
Function DBOPEN1()
Dim Refs As References
Dim xlsGUID As String
Dim Majo As Long
Dim Mino As Long
Dim i As Long
xlsGUID = "{00020813-0000-0000-C000-000000000046}"
Set Refs = Application.References
For i = Refs.count To 1 Step -1
If Refs(i).IsBroken Then
Debug.Print Refs(i).Guid
Application.References.Remove Refs(i)
Else
If Refs(i).Guid = xlsGUID Then Application.References.Remove Refs(i)
End If
Next
Set Refs = Nothing
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
Excel 以外であっても全ての「参照不可」外し、
Access のバージョンにあった Excel の参照設定を張りなおすコードです。
一応全バージョンをチェックしたつもりですが、
何か問題があるようでしたら御教示願います。
※ 問題がないようでしたら今度こそ目安箱に…
|
|
