2017년 8월 17일 목요일

DB-output

Sub OutputFile()

flagD = gettagval("save_start")
ST = gettagval("시작시간")
ET = gettagval("종료시간")

if flagD = 1 then '시작시간 저장
start_time$ = ST
'start_time$ = now()
settagval "start_time", start_time$
else
start_time$ = gettagval("start_time")
'end_time$ = ET
end_time$ = now()

'시작시간에서 몇 초가 경과 되었는지 계산
intval = DateDiff("s",start_time$, end_time$)
settagval "interval", cstr(intval)

'엑셀파일 경로
FileName$ = "D:\DB\NEW\" & TimeStr(44) & ".xlsx" '생성될 파일
'FileName$ = "D:\" & TimeStr(44) & ".xlsx" '생성될 파일
FileOld$ = "D:\DB\Ex.xlsx" '양식 파일

If FileExists(FileName$) Then
Else
'양식 파일에서 복사해 새로운 파일을 만든다
FileCopy FileOld$, FileName$
End If

Set XelApp = CreateObject("Excel.Application")
Set XelFile = XelApp.Workbooks.Open(FileName$)
Set ws = XelFile.sheets.item("sheet1")

Cell_Cnt = 1

ws.Cells(Cell_Cnt,1) = "시간" '첫 행
ws.Cells(Cell_Cnt,2) = "좌표DB"
ws.Cells(Cell_Cnt,3) = "입고DB"
ws.Cells(Cell_Cnt,4) = "출고DB"
ws.Cells(Cell_Cnt,5) = "재고DB"

for i = 1 to intval

setDate$ = DateAdd("s", i, start_time$)

hh$ = hour(setDate$)
mm$ = minute(setDate$)
ss$ = second(setDate$)

nowTime$ = hh$ & "시" & mm$ & "분" & ss$ & "초"

'행,열
ws.Cells(Cell_Cnt+i,1) = nowTime$
ws.Cells(Cell_Cnt+i,2) = Dlogval("좌표DB", nowTime$)
ws.Cells(Cell_Cnt+i,3) = Dlogval("입고DB", nowTime$)
ws.Cells(Cell_Cnt+i,4) = Dlogval("출고DB", nowTime$)
ws.Cells(Cell_Cnt+i,5) = Dlogval("재고DB", nowTime$)

next i
ws.Calculate
XelFile.Save
XelApp.Quit

end if


End Sub

댓글 없음:

댓글 쓰기