평균재원환자수 구하는 스크립트

네오 소프트의 환자정보로부터 평균재원환자수를 구하는 스크립트.
개발에 집중할 수 있는 시간상... 우선은 엑셀화일로의 기동까지만...

Option Explicit

Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")

objWshShell.Run "C:\ChartPlus\CHAM_INFO.exe"

WScript.Sleep 1000

objWshShell.AppActivate "환자 조회 및 검색 기능"
WScript.Sleep 100 '0.1초 기다림

objWshShell.SendKeys "%V"
WScript.Sleep 100

objWshShell.SendKeys "{DOWN}"
WScript.Sleep 100

objWshShell.SendKeys "~" '{ENTER}와 같은 의미
WScript.Sleep 100

objWshShell.SendKeys "{TAB}"
WScript.Sleep 100

objWshShell.SendKeys "{TAB}"
WScript.Sleep 100

objWshShell.SendKeys "{TAB}"
WScript.Sleep 100

objWshShell.SendKeys "20081101"
WScript.Sleep 100

objWshShell.SendKeys "{TAB}"
WScript.Sleep 100

objWshShell.SendKeys "20081130"
WScript.Sleep 100

objWshShell.SendKeys "{TAB}"
WScript.Sleep 100

objWshShell.SendKeys "{TAB}"
WScript.Sleep 100

objWshShell.SendKeys "{TAB}"
WScript.Sleep 100

objWshShell.SendKeys "{TAB}"
WScript.Sleep 100

objWshShell.SendKeys "{TAB}"
WScript.Sleep 100

objWshShell.SendKeys "{TAB}"
WScript.Sleep 100

objWshShell.SendKeys "{TAB}"
WScript.Sleep 100

objWshShell.SendKeys "{TAB}"
WScript.Sleep 100

objWshShell.SendKeys "{TAB}"
WScript.Sleep 100

objWshShell.SendKeys "~" '{ENTER}와 같은 의미
WScript.Sleep 100

objWshShell.SendKeys "~" '{ENTER}와 같은 의미
WScript.Sleep 100