Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


68734 / 76738 ←次へ | 前へ→

【12533】Re:何度もありがございます
発言  ichinose  - 04/4/7(水) 0:02 -

引用なし
パスワード
   ▼かとちゃん さん:

>
>>>>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)です。

エラーメッセージが表示されないのが気になります・・。
0 hits

【12478】ファイル間の変数の受け渡し かとちゃん 04/4/5(月) 18:06 質問
【12480】Re:CellsのSelect範囲の問題について shousuke 04/4/5(月) 22:53 回答
【12488】ありがとうございました かとちゃん 04/4/6(火) 12:03 お礼
【12482】Re:ファイル間の変数の受け渡し ichinose 04/4/6(火) 0:53 回答
【12489】2 ができました かとちゃん 04/4/6(火) 12:13 お礼
【12529】Re:2 ができました ichinose 04/4/6(火) 22:39 発言
【12531】何度もありがございます かとちゃん 04/4/6(火) 22:49 回答
【12533】Re:何度もありがございます ichinose 04/4/7(水) 0:02 発言
【12571】週末に・・・ かとちゃん 04/4/7(水) 19:16 発言
【13062】Re:何度もありがございます かとちゃん 04/4/22(木) 12:01 発言
【13086】Re:何度もありがございます ichinose 04/4/22(木) 18:33 発言
【13092】Re:何度もありがございます かとちゃん 04/4/22(木) 23:05 お礼

68734 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free