|
▼かとちゃん さん:
>
>>>>1.ブックBでApplication.Runメソッドを使用する
>>>これは MsgBox Application.Run("ブックA!get_basedir")
>>この方法は、私は、何度となく使用していますから、OKのはずなんですが?
>>エラーの内容は何でしょうか?
>>それから、Excelのバージョンは?
>>私は、Excel2000で確認しています。
>
>メッセージが出ずに、VBAのこの行が黄色く反転されるだけなんですよ。
>何がまずいんでしょうねぇ
>EXCEL2000で検証しています。
エラーメッセージが出ないんですか?
何度かテストしたんですが、再現できませんでした。
例えば、
Application.Run("ブックA!get_basedir")
のブック名又は、Function名に誤りがあった場合は、
「'Run' メソッドは失敗しました: '_Application' オブジェクト--1004」
とか、
「マクロ 'ブック A!get_basedir' が見つかりません。--1004」
なんていうメッセージが表示されるんですけどねえ!!
細かく調べて環境を一致させるしかないと思いますが・・・。
ちなみにブックB側で
'=========================================================
Sub test()
On Error Resume Next
Dim ans
ans = Application.Run("'ブックA'!get_basedir")
If Err.Number <> 0 Then
MsgBox Error(Err.Number) & "--" & Err.Number
Else
MsgBox ans
End If
End Sub
としたらどうでしょうか?(なんかこれでは駄目なような気がしますが)
それから再度環境確認ですが・・・、
Win98+Excel2000(SP-3)です。
エラーメッセージが表示されないのが気になります・・。
|
|