石鹸箱 IV

VBA研究所に集まる方々の憩いの場です。みなさん自由にお使いください。
ここでは VBA の質問は厳禁。

4932 / 5126 ツリー ←次へ | 前へ→

【1433】動作確認にご協力願いたいのですが… 小僧 05/4/12(火) 16:13

【1437】Re:動作確認にご協力願いたいのですが… 小僧 05/4/14(木) 9:31
【1754】Re:動作確認にご協力願いたいのですが… 小僧 05/11/16(水) 16:54

【1437】Re:動作確認にご協力願いたいのですが…
 小僧  - 05/4/14(木) 9:31 -

引用なし
パスワード
   ▼谷さま
  ありがたいお言葉ありがとうございます。

ichinose さん、こうちゃんさん
  動作確認をして頂いてありがとうございます。

>AC2000で確認しました。
>Excelへの参照設定は出来ていましたる
>ちょっと気になった点ですが・・・、
>
>>If Ref.BuiltIn Then
>>If Ref.Name = "EXCEL" Then Application.References.Remove Ref
>
>となっていますが、BuiltInプロパティがTrueで削除って出来ましたっけ?

エクセルの参照設定をONにした後、
Application.References.AddFromGuid xlsGUID, Majo, Mino

をコメントブロックして実行したところ、
参照設定が外れていたので出来ていると思われたのですが…。

>それと既存の参照設定が削除されてしまうのが気になりましたが・・・。

既存のエクセルの参照設定を削除して、ACCESSのバージョンにあった
エクセルの参照を再設定しているので大丈夫だと思ったのですが…。

当方の浅い知識で作成したコードのため思い違い等あると思われますので、
他にも問題点がありましたら挙げていただけたら幸いです。

【1754】Re:動作確認にご協力願いたいのですが…
 小僧  - 05/11/16(水) 16:54 -

引用なし
パスワード
   みなさま:
こんにちは。

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 の参照設定を張りなおすコードです。
一応全バージョンをチェックしたつもりですが、
何か問題があるようでしたら御教示願います。

※ 問題がないようでしたら今度こそ目安箱に…

4932 / 5126 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
219927
(SS)C-BOARD v3.8 is Free