Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

68213 / 76734

←次へ　｜　前へ→


	【13062】Re:何度もありがございます

かとちゃん - 04/4/22(木) 12:01 -


	引用なし

	パスワード

こんにちは、ichinose さん
返事がすごく遅くなってしまいすみません。

>>>>>１．ブックＢでApplication.Runメソッドを使用する
>>>>これは MsgBox Application.Run("ブックＡ!get_basedir")
>エラーメッセージが出ないんですか？
>何度かテストしたんですが、再現できませんでした。
>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
>としたらどうでしょうか？（なんかこれでは駄目なような気がしますが）

で，できましたっ！！すごい！こんな記述は知りませんでした！
Dim ans As String　ではなく、Dim ans　とは何の定義なんですか？
　
>それから再度環境確認ですが・・・、
>Win98+Excel2000（SP-3)です。

WinEP+Excel2000(SP-3)です。

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

そうなんですよ、他のマクロではエラーが表示されます。これだけなんですよ。

0 hits

▼

【12478】ファイル間の変数の受け渡し かとちゃん 04/4/5(月) 18:06