-PR-
締切済み

VBscriptでEXCELを起動

  • すぐに回答を!
  • 質問No.99109
  • 閲覧数4504
  • ありがとう数4
  • 気になる数0
  • 回答数2
  • コメント数0

お礼率 72% (8/11)

今、非常に悩んでいる問題があります。
VBscriptでEXCELを起動したいのですがうまく行きません。
(Web画面であるボタンを押下すると、Webサーバ上のEXCELが開くというものです)

プログラム的には
(1)
Dim excel

Set excel = GetObject("", "Excel.Application")
excel.Visible = True
excel.Workbooks.Open "http://ホスト名/フォルダ名/ファイル名.xls"

Set WK_excel = Nothing

(2)
Dim excel

Set excel = CreateObject("Excel.Application")
excel.Visible = True
excel.Workbooks.Open "http://ホスト名/フォルダ名/ファイル名.xls"

Set WK_excel = Nothing

の二通り(他いろいろ)を試したのですが、何もおきずに終了します。

同じことをVB6.0でするとうまく行くのですが・・・

はっきり言うとVBscriptに関して知識がなく
質問内容も説明が分かりにくいかもしれませんが
よろしくお願いいたします。
通報する
  • 回答数2
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全2件)

  • 回答No.1
レベル7

ベストアンサー率 57% (12/21)

こんにちは。

>...何もおきずに終了します。

とはどういうことでしょうか?
EXCELをどうしたいのでしょうか?
EXCELファイルを操作をしても何も変わらないということでしょうか?
環境はWindowsNTServer+IIS+ASPであると思いますが、
VBでうまくいくのであればActiveXDLLを作成して、VBScriptから
コールするのはいかがでしょうか?
お礼コメント
wansada1

お礼率 72% (8/11)

ご回答、誠にありがとうございます。
説明不足で申し訳ありません。

したいこととは、
空のEXCELを単純に開くという処理です。
しかし実行しますと、EXCELは起動せず(開かず)に処理は終了してしまいます。
そしてタスクマネージャーを見てみると、EXCEL実行中となったままになります。
(どこにもエクセルが開かれていないのに)

ASP等をもっと勉強して解決していきたいです。
しかしそれでもわからなかったら、ご教授いただいたように
ActiveXDLLをコールする方法で対策を練っていこうと思います。

それでは失礼いたします。
投稿日時 - 2001-07-05 11:56:27


  • 回答No.2
レベル11

ベストアンサー率 49% (139/279)

WSHで、下記ようなソースをKickXL.VBSとして保存して、実行してみたところ、ちゃんと動作しました。

Dim excel
On Error Resume Next
Set excel = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Set excel = CreateObject("Excel.Application")
End If
excel.Visible = True
excel.Workbooks.Open "http://xxxxxx/yyyyyy.xls"

若干変えたのは、GetObjectのところとGetObjectでエラーが起きたらCreateObjectするようにしたところです。
このQ&Aのテーマ
このQ&Aで解決しましたか?
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,500万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


専門家があなたの悩みに回答!

-PR-

ピックアップ

-PR-
ページ先頭へ