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