Excel VBA質問箱 IV

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

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


12826 / 13646 ツリー ←次へ | 前へ→

【8432】実行時エラー1004と91 michiko 03/10/16(木) 19:12 質問
【8433】Re:実行時エラー1004と91 INA 03/10/16(木) 20:02 回答
【8434】Re:実行時エラー1004と91 bykin 03/10/16(木) 21:15 回答
【8436】Re:実行時エラー1004と91 michiko 03/10/16(木) 22:28 お礼
【8435】Re:実行時エラー1004と91 michiko 03/10/16(木) 22:24 お礼

【8432】実行時エラー1004と91
質問  michiko  - 03/10/16(木) 19:12 -

引用なし
パスワード
   再び質問させて下さい!

今回、アドインというのを初めてやってみたのですが、うまくいきません。
Excelファイルを開いた時に、アドインファイル?も開いているのですが、
最初、アドインにメッセージボックスを出す関数を引数なしで作ってみて、
ちゃんと読み込めているかやってみたら、その時はOKでした。
ですが引数を付けたとたんエラーが返って来ます。
ボタンを押すと、メッセージボックスを出すだけなのですが、
1回目に押すと

実行時エラー1004
アドインファイル名!関数名が見つかりません

となり、続けて2回目に押すと

実行時エラー91
オブジェクト変数およびWithブロック変数が設定されていません

というエラーが返ります。

呼び出し側は

Set xlAPP = Application
Set obWBK = ThisWorkbook
※標準モジュール内でPublic変数で宣言しています

xlAPP.Run "'aaa.xla!SHOW_MSG", X,Y,Z,obWBK.Name
※ユーザフォームから

となっていて、2回目の91のエラーでは
xlAPPやobWBKがNULLかNothingになってしまっています。

引数が悪いのでしょうか?(データ型は全てStringです)
引数を付ける前はちゃんとメッセージボックスが出ていたのですが・・・
文字列が長いとダメというのを読んだのですが、
X,Y,Zは1文字で、ファイル名も10文字足らずです。

理由も解決策も全然分かりません。
どなたかよろしくお願いします!

【8433】Re:実行時エラー1004と91
回答  INA  - 03/10/16(木) 20:02 -

引用なし
パスワード
   「ツール」「アドイン」から対象のアドインにチェックは入れてありますか?

【8434】Re:実行時エラー1004と91
回答  bykin  - 03/10/16(木) 21:15 -

引用なし
パスワード
   こんばんわ。

>xlAPP.Run "'aaa.xla!SHOW_MSG", X,Y,Z,obWBK.Name

の中のファイル名の先頭についてる ' (シングルクォーテーション)が
いらんのとちゃいまっか?

xlAPP.Run "aaa.xla!SHOW_MSG", X,Y,Z,obWBK.Name
ってこと。

はずしてたらかんにんな。
ほな。

【8435】Re:実行時エラー1004と91
お礼  michiko  - 03/10/16(木) 22:24 -

引用なし
パスワード
   ▼INA さん:
>「ツール」「アドイン」から対象のアドインにチェックは入れてありますか?

いいえ・・・いれていません(--;
今、手元にないので出来ないのですが、それをやってみます。
お返事ありがとうございました!

【8436】Re:実行時エラー1004と91
お礼  michiko  - 03/10/16(木) 22:28 -

引用なし
パスワード
   >>xlAPP.Run "'aaa.xla!SHOW_MSG", X,Y,Z,obWBK.Name
>
>の中のファイル名の先頭についてる ' (シングルクォーテーション)が
>いらんのとちゃいまっか?
>
>xlAPP.Run "aaa.xla!SHOW_MSG", X,Y,Z,obWBK.Name
>ってこと。
コピーしなかったので、後ろにもシングルクォーテーションを付けていたかも
しれないのですが・・・(--;
でも、はずして試してみます。
先の方のお礼にも書いたのですが、今、手元にないので、明日やってみます。

>はずしてたらかんにんな。
いいえ!とんでもないです。
本当に、何を試してみれば良いのかもサッパリ分からなかったので
お返事、とても嬉しいです。
ありがとうございました!

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