[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間:2006/12/06(Wed) 14:04
投稿者名:ru
Eメール:
URL :
タイトル:
Excel2003でのApplication.Run
環境
OS  :XP
VB  :VB6.0
Office:Excel2003

こんにちは。
VB6.0上で

Call ○○.Application.Run("マクロ.xls!マクロ名", CSV出力ファイル, Excel出力ファイル名, CSV出力ファイルパス, Excel出力ファイルパス, レコードセット変数)

と記載してあるものをExcel2003上で動かすと、
オフィスのセキュリティが強化されたとかで、
Application.Runを実行できないのですが、
この場合、どのように記載すれば宜しいのでしょうか?

投稿時間:2006/12/07(Thu) 12:33
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: Excel2003でのApplication.Run
> Call ○○.Application.Run("マクロ.xls!マクロ名",
> Application.Runを実行できないのですが、
何方からも回答がないようなので、
私は、Excel 2003 を持っていないので確認しておりませんが、引数のない簡単な
マクロを実行しても同じですか?

貴方が仰る通りなら、WEB で検索すればみつかりそうなのですが....。?
Excelのセキュリティレベルはどのようになっているのでしょうか? 高には
なっていないでしょうね。
(多分、高のままになっているのでは。)

又、実行できないとは具体的にどのような状況でしょうか?
エラーメッセージ等が表示されるのでしょうか?表示されるなら、内容を詳しく。
同じコードでExcel2002 等なら問題なく実行できるのでしょうか?

提示されたコードの○○. の部分等はどのようになっているのでしょうか?
VBからなら、xlApp.Run ("マクロ名") のような書き方になると思うのですが。

下記コードを試しても同じですか?
http://hanatyan.sakura.ne.jp/vbhlp/excel09.htm#xl_7

投稿時間:2006/12/09(Sat) 00:16
投稿者名:ru
Eメール:
URL :
タイトル:
Re^2: Excel2003でのApplication.Run
花ちゃん様

ご回答ありがとうございます。

私が調べてみた結果、Excel2003での規制が入っているみたいです。
www.projecta.co.jp/migration/vbamigration02.pdf

マクロのセキュリティレベルは、低にしています。
同じコードを、Excel2002だとうまくいきます。

エラーメッセージの内容ですが、
「実行時エラー'450'
引数の数が一致していません。または不正なプロパティを指定しています。」
と表示されます。

○○の部分は、GetObject(App.Path & "\" & "macro.xls")と記述しております。

投稿時間:2006/12/09(Sat) 00:32
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re^3: Excel2003でのApplication.Run
> エラーメッセージの内容ですが、
> 「実行時エラー'450'
> 引数の数が一致していません。または不正なプロパティを指定しています。」
> と表示されます。
だったら、コードが間違っているだけで、セキュリティとは関係ないと思いますが。
先に指示しました、コードを参考にマクロを動かして見て下さい。

又は、キチンとした動作を確認できるコードを投稿して下さい。
そしてどの部分でそのエラーがでているとか。
最初の質問とも違うようですし、さっぱり要領を得ません。

投稿時間:2006/12/09(Sat) 00:42
投稿者名:ru
Eメール:
URL :
タイトル:
Re^4: Excel2003でのApplication.Run
花ちゃん様

ご返答ありがとうございます。

愚問で申し訳ございませんでした。。。

リンク張ってくださっていますソースを貼り付けたいのですが、
VBを実行させるPCが外部ネットワークにつながっておらず、
また、今、ここにアクセスしているPCは、セキュリティソフトの影響で、
外部ドライブに書き込みすることができません。

明日、リンクを張ってくださったソースを
実行させてみたいと思います。

お手数おかけして申し訳ございませんでした。