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 ｂｙｋｉｎ 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でした。
ですが引数を付けたとたんエラーが返って来ます。
ボタンを押すと、メッセージボックスを出すだけなのですが、
１回目に押すと

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

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

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

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

呼び出し側は

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

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

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

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

理由も解決策も全然分かりません。
どなたかよろしくお願いします！
【8433】Re:実行時エラー1004と91
回答  INA  - 03/10/16(木) 20:02 -
引用なし
パスワード
   「ツール」「アドイン」から対象のアドインにチェックは入れてありますか？
【8434】Re:実行時エラー1004と91
回答  ｂｙｋｉｎ  - 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