このVBSを使用したいのですがエラーが出ます・・

質問

お初にお目にかかります

過去の質問を見ていて
http://okwave.jp/qa/q8633081.html
この方の質問と同じことを私もやりたいと思い
NO2の方の回答と同じVBSファイルを作成して
起動しましたが

失敗しました
-2147417848

とエラーが表示されてしまいます。

環境はwin7 64bitとExcel2007です。
なんとか私の環境でも動くようにならないでしょうか？
よろしくお願いいたします。

回答No.3

NotFound404 · ベストアンサー

となると・・・。以下推測にすぎませんが

ファイル出力のソフトが別のユーザーで実行されている。
Excelが立ち上がっていたらすべて閉じる。
Excel出力を行って閉じずにタスクマネージャを開き
プロセスタブのExcel.exeのユーザー名が
あなたのアカウント名か確認してみてください。

ファイル出力が『管理者として実行』されている。
ExcelでAlt + F11 → Ctrl + G でイミディエイトウィンドウで
shell "cmd /k" としてEnter
コマンドプロンプトが立ち上がります。
タイトル部分が、管理者:c:\windows\・・・となっていたら
『管理者として実行』されています。

どちらにも当てはまらない場合と
前者の場合はどうしようもないです。。。
後者の場合は、あなたがローカルPCのAdministratorsグループに
属していればナントカなるかも（出来なさそうな）しれませんが
-2147417848 のエラーの再現が出来ないのがネックです。
何かにVBSの処理がブロックされているのは間違いないとは思いますけど。。。

お礼

何度もありがとうございます。
プロセスタブのExcel.exeのユーザー名は自分のアカウント名で
コマンドプロンプトも管理者として実行されていました。

この回答をいただいたあと、
コントロールパネルのユーザーアカウント
ユーザーアカウント制御設定の変更で
プログラムがコンピュータに変更を加えようとする場合のみ通知する（暗転しない）
から
以下の場合でも通知しない（左側にある４段階の項目のうちの一番した）
に変更したところ、
右クリックメニューから出力したファイルがVBSで動くようになりました。
結局、私の設定が悪かったみたいです・・

プログラムがコンピュータに変更を加えようとする場合のみ通知する（暗転しない）だと
普通のエクセルファイルなら大丈夫で
右クリックメニューから出力したファイルだと動かないものなんですかねえ・・・

明日のお昼ごろにベストアンサーをつけさせていただいて
締め切ろうと思います。
何度もご回答いただき、本当にありがとうございました。

回答No.4

NotFound404

手詰まりなのでGoogleと
http://masahiror.hatenadiary.jp/entry/20111201/vbs_admin_run
あのVBSの行頭に、Call runasCheck()
とし、

Private Function saveXL(ByRef BookCount)
中略
End Function
の後にリンク先の、Function runasCheck() ・・・をつなげ保存。
セキュリティレベルは元に戻して
VBSを実行してみてください。
『管理者として実行』出来ているのは確認できましたが、
これでダメなら降参です。

お礼

こんにちは。遅くなってしまってすいません。
今日上記のことを試してみましたが
-2147417848エラーが出てしまい出来ませんでした・・・
セキュリティレベルを下げた状態で
使っていこうと思います。
何度もご回答いただき
本当に感謝しています。
ありがとうございました！

補足

何度もありがとうございます。
XPから乗り換えたのですが
色々と細かくなっているのですね・・・

非常に申し訳ありませんが
ソフトが入ったノートPCを会社に忘れてきてしまったので
月曜日に新たに教えていただいたことを試し、
その結果を書き込み、ベストアンサーを
付けさせていただこうと思います。

回答No.2

NotFound404

確認です。
Excelを立ち上げておいてから
Wordなどで
?GetObject(, "Excel.Application").name していますよね？

>VB Error -2147417848
のもう少しマシなメッセージが出るかと期待していたのですが。

あと、
Excelを立ち上げておいて
件のVBSをもう一度実行して結果を教えてもらえますか？
Excelをバージョン違いで複数インストールしていますか？
していたらインストールした順番は古い方からですか？

補足

こんにちは。
お世話になっています。

http://oshiete.goo.ne.jp/qa/8633081.htmlの方と同じように
右クリックメニューからエクセルで出力する　で
ファイル出力（エクセルを起動）した後、

>Word を立ち上げて、Alt + F11 キーを押す。
>VBEに切り替わるので、Ctrl + G を押す。
>イミディエイトウィンドウが出ますからそこに
>?GetObject(, "Excel.Application").name
>と入力しEnterキー

とすると先ほどのエラー（実行時エラー　'429':）が表示されました。

スタート→すべてのプログラムからエクセルを開き
ワードを立ち上げてAlt + F11 キーを押し
（中略）
と入力しEnterキーを押すと
イミディエイトウィンドウにMicrosoft Excelと表示されました。

試しに保存したエクセルファイルを開いた後に
件のVBSを動かすときちんと動作するのですが
私の使っているソフトの右クリックメニューからエクセルで出力するを
押して出てきたエクセルファイルを件のVBSを使って保存使用とすると

失敗しました
-2147417848

のメッセージになります。

使用しているソフトの方に問題がある感じですかね・・

エクセルは2007のみインストールしています。

回答No.1

NotFound404

あの回答をしたものです。
Excel2007は持ち合わせていませんので少しだけ。
タスクマネージャのプロセスタブでExcelが一覧に無いことを確認。
Excelを立ち上げる（ファイルを開く必要はありません）。

Word か Accessを立ち上げて、Alt + F11 キーを押す。
VBEに切り替わるので、Ctrl + G を押す。
イミディエイトウィンドウが出ますからそこに
?GetObject(, "Excel.Application").name
と入力しEnterキーで、Microsoft Excel と出ますか？
エラーメッセージが出たらその内容を知らせてください。

試しにWinXP & Excel2002、Win8.1 & Excel2013
で行ったのですがエラーにはなりませんでした。
『VB Error -2147417848』でGoogleっても発見できず。
なんとなくですが、OS か Excelに問題を抱えているような気がします。

お礼

お待たせいたしました。

頂いた回答の通りやってみたところ
エンターキーを押した後、
以下のエラーが表示されました。

実行時エラー　'429':
ActiveXコンポーネントはオブジェクトを作成できません

何か必要な物が足りていないのでしょうか・・？

補足

ありがとうございます。
あの回答の方に直々見ていただけるとは
思ってもみませんでした。

申し訳ありませんが現在出張中でして
戻り次第、回答していただいたことをやってみようと思います。
明日のお昼ごろにはやってみて書き込みできるので
そのときまたよろしくお願いいたします・・・