Excel VBA質問箱 IV

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

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


20313 / 76732 ←次へ | 前へ→

【61840】Re:Application.Run で他のブックのfunctionを呼び出したい
発言  tsgross  - 09/6/9(火) 11:36 -

引用なし
パスワード
   すばやいご回答、ありがとうございます。とても助かります。

▼イブX さん:
>>■■Book1.xls
>>Private Sub Command_Button1_Click()
>> Workbooks.Open("C:\Documents and Settings\First-Last\My Documents\excel\Book2.xls")
> ファイルを開いてから↑、フルパスで指定した↓ファイルの
> マクロを実行すると、別のファイルとして扱われます。
> 開いてからなら、パスの記述は必要ありません。
>
> 開いていないのなら、↓のコードだけで自動でファイルが
> 開きます。必要なら閉じる事も忘れずに。
>> dim x as Long
>> x = Application.Run( "C:\Documents and Settings\First-Last\My Documents\excel\Book2.xls!Test )
>>End Sub

……そうだったんですか! 早速試してみました…が、うまくいきませんでした。

(1) ファイルを開いてからファイル名だけで指定
Workbooks.Open("C:\Documents and Settings\First-Last\My Documents\excel\Book2.xls")
dim x as Long
x = Application.Run( "Book2.xls!Test" )

→結果×「実行時エラー 1004 マクロ 'Book2.xls!Test'が見つかりません」

(2) ファイルを開かないでフルパスでいきなり application.run()
dim x as long
x = Application.Run( "C:\Documents and Settings\First-Last\My Documents\excel\Book2.xls!Test")

→結果×「実行時エラー 1004 マクロ 'C:\Documents and Settings\First-Last\My Documents\excel\Book2.xls!Test'」が見つかりません
---

モジュール名が違うのかと思って確認してみましたが、Book2.xls!Test() は(General)と表示されるモジュール(=多分「標準モジュール」ってことですよね?)にあります。

何がいけないのかなぁ…orz
0 hits

【61835】Application.Run で他のブックのfunctionを呼び出したい tsgross 09/6/9(火) 11:05 質問
【61836】Re:Application.Run で他のブックのfuncti... イブX 09/6/9(火) 11:17 発言
【61839】Re:Application.Run で他のブックのfuncti... イブX 09/6/9(火) 11:29 発言
【61840】Re:Application.Run で他のブックのfuncti... tsgross 09/6/9(火) 11:36 発言
【61838】Re:Application.Run で他のブックのfuncti... つん 09/6/9(火) 11:24 回答
【61841】Re:Application.Run で他のブックのfuncti... tsgross 09/6/9(火) 12:00 発言
【61842】Re:Application.Run で他のブックのfuncti... つん 09/6/9(火) 12:18 発言
【61851】Re:Application.Run で他のブックのfuncti... tsgross 09/6/9(火) 13:59 発言
【61852】Re:Application.Run で他のブックのfuncti... Yuki 09/6/9(火) 14:05 発言
【61853】Re:Application.Run で他のブックのfuncti... tsgross 09/6/9(火) 14:16 発言
【61857】自己解決しました:Re:Application.Run で... tsgross 09/6/9(火) 14:34 お礼

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