환자 리스트 추출 스크립트

이전 평균재원환자수를 계산하는 스크립트의 UpDate판.
앞으로의 수정계획: 엑셀에서 VBA를 통하여 평균재원환자수를 구할 수 있도록.

기간별환자리스트.vbs-------------------------

Option Explicit

Dim objWshShell, DC, Msg, STR_DATE, ED_DATE
Set objWshShell = WScript.CreateObject("WScript.Shell")

'--------------------------------------------

STR_DATE = InputBox("개시날짜를 입력해 주십시요.", "시작날짜" , "20081101")
ED_DATE = InputBox("종료날짜를 입력해 주십시요.", "종료날짜" , "20081131")

'--------------------------------------------

Msg = MsgBox("재원환자 리스트는 ""예""를, 퇴원환자 리스트는 ""아니오""를 클릭해 주세요.", vbQuestion + vbYesNo, "재원환자 또는 퇴원환자 선택")
If Msg = vbYes Then
DC = 0
Else
DC = 1
End If

'----------------------------------------------------------------------------

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

If DC Then
objWshShell.SendKeys "{UP}"
WScript.Sleep 100
objWshShell.SendKeys "{LEFT}"
WScript.Sleep 100
objWshShell.SendKeys "+{TAB}"
WScript.Sleep 100
Else
objWshShell.SendKeys "{TAB}"
WScript.Sleep 100
End If

objWshShell.SendKeys STR_DATE
WScript.Sleep 100

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

objWshShell.SendKeys ED_DATE
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

If DC Then
objWshShell.SendKeys "{TAB}"
WScript.Sleep 100
End If

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