Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


20916 / 76732 ←次へ | 前へ→

【61224】Re:VBAでVBSのMSGBOX表示みたいな
お礼  ON  - 09/4/17(金) 11:01 -

引用なし
パスワード
   n さん こんにちは
いつもお世話になっています m(_ _)m

>>ブックを閉じるときに、vbsのメッセージを出したいと思っています
>これはUserFormの替わりにしたいという事なのでしょうか?
>それとも現状のコードに加える?
>加えるとしたら、そもそもUserFormがPopUpの替わりなので必要性に疑問が。

一連のQ アドバイスありがとうございました

全体の動作のイメージは

・入力途中等、勝手に閉じられてしまうと頭にくるので
 警告フォームを出す
 この時、いつ閉じられるか不明だと心臓によくないので
 カウントダウンを表示する
 離席等で上記のまま放置されると自動上書き終了する

・離席後、戻ってみるとエクセルが閉じていたり
 別ブックがになっていると??みたいになることがあるので
 当該ブックは閉じました メッセージを表示しておく

みたいになりました


コードのご提示ありがとうございました
勉強になります

下記のようにしてみましたが
test1()は、msgboxのボタンが押されるまで、ブックが閉じませんでした
やはり、test2()のように外部VBS等をキックしないといけないような
気がしてきました

時間をおいたとき
いつも、このVBSて何だっけ? みたいになることが多いので
不要で済ますことが出来ればいいな の質問でした

ちなみに
自PCにWindowsのMessengerが使えそうな気がしましたが
サービスが無効になっていましたのでそこから先は何も試してみません
でした


なにかあればよろしくお願い致します

--------------------------------------------------------------
'ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)

  Application.Quit

End Sub

--------------------------------------------------------------
'Module1

Sub test1()

  'CreateObject("WScript.Shell").PopUp "3秒後に閉じる予定だけど...", 3
  CreateObject("WScript.Shell").PopUp "無操作のためブックは閉じました"
  
  ThisWorkbook.Save
  ThisWorkbook.Close

End Sub


Sub test2()

  Const f = "C:\CP\2009\200904\test2\msg.vbs"
  'Const s = "CreateObject(""WScript.Shell"").PopUp ""3秒後に閉じます。"", 3"
  Const s = "CreateObject(""WScript.Shell"").PopUp ""無操作のためブックは閉じました"""
  
  Dim n As Long
 
  n = FreeFile
  Open f For Output As #n
  Print #n, s
  Close #n
  
  Shell "wscript.exe " & f, vbNormalFocus
  
  ThisWorkbook.Save
  ThisWorkbook.Close
  
End Sub

--------------------------------------------------------------
2 hits

【61222】VBAでVBSのMSGBOX表示みたいな ON 09/4/16(木) 18:43 質問
【61223】Re:VBAでVBSのMSGBOX表示みたいな n 09/4/16(木) 20:05 発言
【61224】Re:VBAでVBSのMSGBOX表示みたいな ON 09/4/17(金) 11:01 お礼
【61233】Re:VBAでVBSのMSGBOX表示みたいな neptune 09/4/17(金) 23:08 発言
【61234】Re:VBAでVBSのMSGBOX表示みたいな Abyss 09/4/18(土) 1:14 発言
【61235】Re:VBAでVBSのMSGBOX表示みたいな n 09/4/18(土) 2:32 発言
【61260】Re:VBAでVBSのMSGBOX表示みたいな ON 09/4/20(月) 17:33 質問
【61261】Re:VBAでVBSのMSGBOX表示みたいな n 09/4/20(月) 18:42 発言
【61262】Re:VBAでVBSのMSGBOX表示みたいな ON 09/4/20(月) 19:03 発言

20916 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free