エクセルの変数をアクセスでも使いたい。

質問

エクセルの標準モジュールには

Option Explicit
Public 文字列 As String
Public アクセス As Object

Public Sub エクセル側テスト()
文字列 = "あ"
Set アクセス = GetObject("C:\db1.mdb")
If Not アクセス Is Nothing Then
アクセス.Run "アクセス側テスト"
End If
Set アクセス = Nothing
End Sub

アクセス（db1.mdb）の標準モジュールには
Option Compare Database
Option Explicit
Public 文字列 As String

Sub アクセス側テスト()
MsgBox 文字列
End Sub

という風にコードを書きましたが
やはりアクセスではエクセルで指定した変数が受け継がれません。
これを「アクセス側テスト」のマクロでもmsgboxで「あ」と表示させるにはどうすればいいのでしょうか？
よろしくお願いします。

回答No.1

mitarashi · ベストアンサー

Access2000のVBAのHELPから、RUNメソッドの使用例をみると、引数が渡せる様なので、受け継ぎたい値を引数でわたしてはいかがでしょうか。
下記は、CopyRight Microsoft
Sub Greeting(strName As String)
MsgBox("ようこそ, " & strName & "さん")
End Sub
上記の操作手順を完了したら、Excel や Visual Basic で次のコードを実行します（中略）
Sub RunAccessSub()
（中略）
' Sub プロシージャを実行します。
appAccess.Run "Greeting", "山田"
Set appAccess = Nothing
End Sub

お礼

早速試してみたらできました。
大変参考になりました。
ご回答ありがとうございます。