admin menu ≫  image  writes  admin
スポンサーサイト 
--.--.--.-- 
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
備忘録(2)・・・VBスクリプトでメッセージ表示 
2009.05.02.Sat 
なんか、背景画像が無くなったみたいですね。まぁ?いいかぁ??(^^;

あぁ?今日は、良いお天気ですねぇ??!!
仕事が楽しいぞ!!ってのは大ウソです(^^;;
午前中、ちょっとだけ昨日の備忘録の続きを書いてました(^^;

■VBスクリプトの起動コマンドの引数を利用してメッセージを表示するには?
 VBスクリプトを使って指定した時間だけメッセージを表示することができたので、次はVBスクリプトの起動コマンドの引数にメッセージを渡して表示する方法を試してみたら上手く行った(^^

'VBA
Sub test()
Dim msg, sec, title
msg = Chr(34) & "メッセージ1行目" & vbCrLf & "メッセージ2行目" & Chr(34)
sec = Chr(34) & "5" & Chr(34) '5秒間表示する
title = Chr(34) & "タイトル" & Chr(34)
Vbs_Msg msg, sec, title
End Sub

Sub Vbs_Msg(msg, sec, title)
Dim CmdLine
CmdLine = "WScript.exe " & Chr(34) & _
ThisWorkbook.Path & "\PopUp_Msg.vbs" & Chr(34)
CmdLine = CmdLine & " " & msg & " " & sec & " " & title
Shell CmdLine
End Sub

'VBスクリプト
Option Explicit
Dim WSH, WSargs, msg, sec, title
Set WSH = CreateObject("WScript.Shell")
Set WSargs = WScript.Arguments
msg = WSargs.item(0) '1個目の引数
sec = WSargs.item(1) '2個目の引数
title = WSargs.item(2) '3個目の引数
WSH.Popup(msg),sec,title,vbInformation 'メッセージの表示
Set WSH = Nothing
set WSargs = Nothing

VBAのCmdLineには以下のような起動コマンドが設定される
WScript.exe "ブックのフルパス名\PopUp_Msg.vbs" "メッセージ1行目<改行>メッセージ2行目" "5" "タイトル"
また、VBスクリプト側で引数を代入せずに
WSH.Popup(WSargs.item(0)),WSargs.item(1),WSargs.item(2),vbInformation
としても何ら問題ない。

■追記
Chr(34)が無くても全く問題なかったのでVBAのコードを変更した。
Sub test()
Dim msg$, sec%, title$
msg = "メッセージ1行目" & vbCrLf & "メッセージ2行目"
sec = 5                
title = "タイトル"
Vbs_Msg msg, sec, title
End Sub

Sub Vbs_Msg(msg$, sec%, title$)
Dim CmdLine
CmdLine = "WScript.exe " & Chr(34) & _
ThisWorkbook.Path & "\PopUp_Msg.vbs" & Chr(34)
CmdLine = CmdLine & " " & msg & " " & sec & " " & title
Shell CmdLine
End Sub
VBAのCmdLineには以下のような起動コマンドが設定されていた。
WScript.exe "ブックのフルパス名\PopUp_Msg.vbs" メッセージ1行目<改行>メッセージ2行目 5 タイトル
VBスクリプトのファイル名だけを" "で囲みさえすれば引数のほうは囲まなくて良いみたい(^^

関連記事
スポンサーサイト
* スポンサーサイト備忘録(2)・・・VBスクリプトでメッセージ表示へのコメント *
   

台風画報


ナショジオニュース

降水短時間予報

RSSフィード

月別アーカイブ

ブログ内の検索

プロフィール


  • Designed by Il mio diario
  • Powered by FC2BLOG
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。