臥龍の自分メモ

投稿

ラベル（VBS）が付いた投稿を表示しています

VBS でアプリを操作

4月 16, 2020

Option Explicit main() sub main() dim aa set aa = new AutoApp aa.FileName = "CMD" aa.exec() aa.writelnStdIn("dir") aa.waitt(1) aa.quit() msgbox(aa.readStdOut()) aa.FileName = "notepad.exe" aa.exec() aa.waitApp() aa.ActivateAndSendKeys "TEST",100 aa.waitt(3) aa.quit() end sub Class AutoApp dim objShell dim objExec Private m_FileName Private m_ProcessId Public Property Get FileName FileName = m_FileName End Property Public Property Let FileName(vData) m_FileName = vData End Property Public Property Get ProcessId m_ProcessId = objExec.ProcessId ProcessId = m_ProcessId End Property Private Sub Class_Initialize() Set objShell = WScript.CreateObject("WScript.Shell") End Sub Public Function exec() Set objExec = objShell.Exec(m_FileName) End Function Public Function readStdOut() readStdOut = objExec.StdOut...

VBSのSendKeysを使用して、アプリを自動操作して動作確認した

4月 14, 2020

VBSのSendKeysを使用して、アプリを自動操作して動作確認した Option Explicit dim objShell dim objExec main() sub main() logPrint("[START]" & date & " " & time) allInitialize() init() startApp1() setLot "20200414","100" serSend "dummy_data.csv",1 AppQuit() startApp2() setLot "20200414","100" serSend "dummy_data.csv",2 AppQuit() msgbox("END") logPrint("[END]" & date & " " & time) end sub sub setLot(shipdate,shipcount) WScript.Sleep 500 objShell.SendKeys "%fs" WScript.Sleep 500 objShell.SendKeys shipdate WScript.Sleep 500 objShell.SendKeys "{ENTER}" WScript.Sleep 500 objShell.SendKeys shipcount WScript.Sleep 500 objShell.SendKeys "{ENTER}" end sub sub AppQuit() WScript.Sleep 500 objShell.SendKeys "%fq" WScript.Sleep 500 end sub sub serSend(filename,mode) dim datafile dim x set datafile = new clsTex...

複数のWORDを一括置換

3月 10, 2020

複数のWord文書に対して文字列置換こちらのサイトのマクロを使ってみた WORDにマクロとして登録したら動いた Sub 複数文書連続処理_文字列置換() '置換文字列の指定 mae = InputBox("置換前の文字列を入力してください。", "置換前") If mae = "" Then Exit Sub ato = InputBox("置換後の文字列を入力してください。", "置換後") If ato = "" Then Exit Sub 'フォルダの選択 With Application.FileDialog(msoFileDialogFolderPicker) .Title = "フォルダを選択" .AllowMultiSelect = False If .Show = -1 Then mypath = .SelectedItems(1) & "\" Else MsgBox "終了します。" Exit Sub End If End With '実行 res = MsgBox(mypath & "のフォルダ内のWord文書について「" & mae & "」を「" & ato & "」に置換します。よろしいですか。", vbOKCancel) If res = vbCancel Then Exit Sub myfile = Dir(mypath & "*.doc*") Do While myfile "" Documents.Open FileName:=mypath & myfile Call 文書全体を...