• ベストアンサー

EXCEL　VBAをＷＥＢ上で実行した場合の終了方法

EXCEL VBAをWEB上で実行し終了する（EXCELを表示しているブラウザを閉じる）方法はありますか？ ローカルでEXCELを直接実行した場合は、以下の方法で出来るのですが、Web上では動作しません。 Application.DisplayAlerts = False Application.Quit また、×ボタンでブラウザを閉じようとすると「変更を保存しますか・・・」の確認ウィンドウが表示されてしまいます。 内容を参照させるだけなので、終了ボタンを押したら、変更を保存せずに終了したいのですが、ご存知の方いらっしゃいましたらご教授お願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • kiki_s
  • ベストアンサー率59% (147/248)
回答No.2

Application.Quitはエクセルを終了するメソッドです。 ブラウザが何か書かれていませんが、 IEオブジェクトのQuitメソッドではどうでしょう？ objIE.Quit 試した事がありませんので、後はご自分でお調べ下さいm(__)m

その他の回答 (1)

  • pulsa
  • ベストアンサー率57% (34/59)
回答No.1

やった事ないんでなんともですが、読み取り専用のファイルを表示に使ったらいかがでしょう？

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • WebブラウザからExcelを実行して終了させるには

    Webブラウザ(InternetExplorer)からExcelを実行し、VBAでExcelを終了させてWebブラウザに戻るにはどうすればできるのでしょうか？ Applicatio.QuitではExcelを終了できなくて困っています。

  • EXCELブックを保存しないで終了

    EXCEL2000で"A"というブックから"B"というブックを マクロのVBAから開きます。 両方のシートが開いた状態から,"B"のマクロより 両方のブック共に保存しないで、EXCEL自体終了するマクロ を"B"側に下のような感じで作成しました。 -------- EXCEL終了処理 ------------------ Application.DisplayAlerts = False ThisWorkbook.Saved = False Application.Quit ---------------------------------------- これで終了しようとすると、「"B"のブックを保存しますか？」というメッセージが表示されてしまいます。終了前のマクロ処理の中で"B"ブックを変更しているので、このようなメッセージが表示されると思うのですが、 Application.DisplayAlerts = False 命令は利かないのですか？ どなたか教えて下さい。宜しくお願い致します。

  • フォームのボタンからのみexcelを終了したい

    おねがいします。 都合上、フォームのボタンからだけexcelを終了したのです。 Private Sub CommandButton1_Click() Application.DisplayAlerts=False Application.Quit End Sub それに伴い、 右上のexcelのｘボタン、シートのxボタンを無効化または非表示にしたいです。 Private Sub Workbook_BeforeClose(Cancel As Boolean) 　　 　　If CloseMode = 0 Then 　　　　Cancel = 1 　　End If End Sub これで、エクセルｘボタンは無効になりましたが、 フォームからの終了も出来なくなってしまいました。 フォームからのみ終了する方法を教えてください。

  • Excel VBAでのシートの削除について

    Excel VBAで、シート上に配置されたボタンをクリックすることで、メッセージを出さずにそのシートの削除をしたいと思っています。 サンプルとして、シート上（例えばSheet1）にボタンを１個配置し、 ------------------------------------------------------- Private Sub CommandButton1_Click() Application.DisplayAlerts = False Delete Application.DisplayAlerts = True End Sub ------------------------------------------------------- のようにすると、オートメーションエラーが起きます。 そこで、 Application.DisplayAlerts = True をコメントアウトしてやれば実行はできるのですが、その後別のシートで処理を行う場合には、再度メッセージを表示してほしいと思っています。 ためしに、Sheet1削除後にアクティブになるSheet2に次のようなコードを記述しました。Sheet1同様、シート上にボタンを１個配置しています。 ------------------------------------------------------- Private Sub CommandButton1_Click() MsgBox Application.DisplayAlerts End Sub Private Sub Worksheet_Activate() MsgBox "次に出るメッセージはアクティブ直後のDisplayAlerts設定。" MsgBox Application.DisplayAlerts Application.DisplayAlerts = True MsgBox "次に出るメッセージは変更後のDisplayAlerts設定。" MsgBox Application.DisplayAlerts End Sub ------------------------------------------------------- こうすれば、Sheet1削除後、アクティブになった直後はDisplayAlertsがFalse。その後設定変更してTrueになるかとおもったのですが、結果はFalseでした。しかしその後、ボタンをクリックするとTrueが返ってきました。 いろいろ調べましたが、なぜこのような結果になるのかわかりません。よろしくお願いいたします。

  • マクロ実行後エクセルを閉じたい

    ２つの別々のファイルを開いて片方からもう片方にコピーして 保存して終了する。（両方とも閉じる） というマクロを作ったのですが コピー終了後に実行したマクロ付きのエクセルも閉じてデスクトップ上には何も開いていない状態にしたいのですがworkbookのところに 下記の命令を記述してもうまくいきません。 Application.Run "ＸＸＸＸＸＸ" ThisWorkbook.Save ThisWorkbook.Saved = True If Workbooks.Count <= 1 Then Application.Quit ThisWorkbook.Close False マクロ付きのエクセルも一旦は閉じるのですがその後に 別の白紙のブックが開いてしまうのです。 続けて他のマクロをスケジュールで実行したいのですが実行時に 「既にエクセルが開いています」みたいな警告が表示され 実行できません。 エクセルを完全に閉じるようにするにはどうしたらいいのでしょうか？

  • VBA 起動時にエクセルの画面が表示されてしまう

    VBA 起動時にエクセルの画面が表示されてしまう こんにちは、ＶＢＡ初めて1週間ぐらいの初心者です よろしくお願いします 動作環境として、OS:XP excel:excel2007 を使用しています まずはじめに、エクセルを開いて内容変更セーブして終了するというマクロを組んだのですが 別のプログラムから、 そのエクセルファイルに起動をかけて マクロを実行し終了するよう作りました。 　/*** コード ***/ ThisWorkbook 0　 Private Sub Workbook_Open() 1　　　Application.Visible = False　　　　　　　　　　//エクセル画面を消す 2　　　 3　　　call 内容変更し保存する関数（）　　　　　　　　// 標準モジュール内　SUB 関数 4　　　 5　　　ThisWorkbook.Saved = True　　　　　　　　　　　// セーブしたことにする 6　　　If Workbooks.Count <= 1 Then Application.Quit　// 他のエクセルが開いてない場合のみ終了する 7　　　ThisWorkbook.Close False　　　　　　　　　　　 // エクセル終了 8　 End Sub 　/*** コード ***/ 質問１ ・１行目にエクセルの画面を消す関数を、プログラムの先頭に来ると思われる部分に入れて実行してみたのですが、 どうしても、起動してから画面を消す処理が始まるまでに、一瞬だけexcelのファイルが表示されてしまうのですが これを回避する方法はありますでしょうか？ ＶＢＡを使ってマクロの処理をするのですが、 使う方にエクセルを使っているという事を悟られたくないのです 質問２ ・６行目、開いてるエクセルが自分だけの場合のみエクセルを終了すると組んだつもりなのですが、 処理を流すとエクセルで開いているファイルがすべて閉じてしまいます。 記述を間違えていたりしますか？ 以上 ご教授お願いいたします <<検索ワード>> VBA ＶＢＡ 起動画面表示 起動画面非表示 起動画面を出さない 起動画面を消す

  • エクセルで保存しますか？のメッセージを表示しない

    皆さんこんにちは　教えてください、読み取り専用でエクセルファイルを開いて閉じるボタンを使って閉じるときに「保存しますか？」のメッセージを出さないで閉じたいのですが、Workbook_BeforeClose イベントに Application.DisplayAlerts = False としてもメッセージは表示されます 読み取り専用で開いているにもかかわらず Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True とすれば　メッセージが表示されずに閉じますが　保存しますか？→いいえ　として閉じるよりも時間がかかります　読み取り専用で開いているのに保存されるのでしょうか？同じファイルを再び開くと変更した部分は保存されていません　しかし、タイムスタンプは閉じた時間に更新されています　これは普通なのでしょうか？ この方法以外で保存しますか？のメッセージを出さないで保存しないで閉じる方法はないでしょうか？よろしく御願いします

  • WorkSheetの終了時にVBAを実行する方法

    WorkSheetの終了時にVBAを実行する方法を教えて ください。 また、ボタンで表示されるメニューバーの「標準」を消す方法を 教えてください。

  • エクセルVBA　10分後にエクセル自動終了＆カウン

    どなたかご教授お願い致します。 ・エクセルの当該ブックを、起動10分後に自動終了（保存しない）させる ・開いている間は、10分のカウントダウンを「分：秒」でA1セルに表示する 以上を実行したいのですが、VBAは全く素人ですので、うまくいきません。 見よう見まねで、以下のようなことをしましたが、結局ダメでした。 何卒、よろしくお願い致します。 ThisWorkbook Workbook Open Private Sub Workbook_Open() test01 Application.OnTime Now + TimeValue("00:10:00"), "終了" End Sub 標準モジュール　Module1 Sub 終了() ThisWorkbook.Close Savechanges:=False Application.Quit End Sub Sub test01() With Sheets("バックアップ").Range("A1") .Value = Time .NumberFormatLocal = "mm:ss" End With Application.OnTime Now + TimeValue("0:00:01"), "test01" End Sub

  • エクセルの終了

    お世話になります。 ＶＢＡでエクセルを終了する時、下記の様な記述をして 終了するのですが、エクセルのブラウザは残ります。 エクセル毎終了する記述方法についてご教授頂きたく 何卒、宜しくお願い申し上げます。 　　　　　　　記 Workbooks("---.xls").Close savechanges:=False

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する