Excel VBA について教えて下さい

質問

Excel VBA でAccess接続します

今までは

Sub aaa()
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=aaa.mdb;"

End Sub

のように使っていましたが（単一プロシージャ）

Set cn = CreateObject("ADODB.Connection")

の部分をパブリックにして

Sub bbb()
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=aaa.mdb;"

End Sub

別のプロシージャからも、使えるためには

パブリックにするための方法を教えて下さい

回答No.3

sora1515 · ベストアンサー

回答１の補足です。

その場合は
メニューの挿入→標準モジュール
で標準モジュールに以下を書きます。
Option Explicit
Public cn As Object

すると他のシートや追加モジュールからも使えます。
シートモジュールに上記を書いても他のモジュールでは使えないですね。

お礼

ありがとうございます

助かりました

回答No.2

hallo-2007

単に、何度も
Set cn = CreateObject("ADODB.Connection")
を記述する必要を簡略化したいということですよね

同じモジュールでまとめてあるとします。
Option Explicit
Dim cn As New ADODB.Connection
Const CONNECT1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Const CONNECT2 = "aaa.mdb;"
Const CONNECT3 = "bbb.mdb;"

Sub aaa()
cn.Open CONNECT1 & CONNECT2
・・・・
End Sub

Sub bbb()
cn.Open CONNECT1 & CONNECT3
・・・・
End Sub

動作までは確認していません。
Option Explicitで検索してみてください。

お礼

ありがとうございます

回答No.1

sora1515

これでいかがでしょう。

Option Explicit
Dim cn As Object

Sub aaa()
Set cn = CreateObject("ADODB.Connection")
End Sub

Sub bbb()
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=aaa.mdb;"
End Sub

補足

ありがとうございます

同一モジュール内の関数aaa(),bbb()

で可能でした

さらに教えてもらえるのなら

関数aaa(),bbb()が別モジュールにある場合でも

cn を共通に使える方法をお教えください