- 0
- 임꺽
- 조회 수 3390
1초당 데이더를 엑셀로 저장시켜주는 스크립트
Set Cell = Sheet1.Range("B"+CSTR(i+1))
Cell.Value = TimeStr(44)
Set Cell = Sheet1.Range("C"+CSTR(i+1)) '온도1
Cell.Value = GetTagVal("온도.온도_1")
Set Cell = Sheet1.Range("D"+CSTR(i+1)) '온도2
Cell.Value = GetTagVal("온도.온도_2")
Set Cell = Sheet1.Range("E"+CSTR(i+1)) '온도3
Cell.Value = GetTagVal("온도.온도_3")
Set Cell = Sheet1.Range("F"+CSTR(i+1)) '온도4
Cell.Value = GetTagVal("온도.온도_4")
Set Cell = Sheet1.Range("G"+CSTR(i+1)) '온도5
Cell.Value = GetTagVal("온도.온도_5")
Set Cell = Sheet1.Range("H"+CSTR(i+1)) '온도6
Cell.Value = GetTagVal("온도.온도_6")
Set Cell = Sheet1.Range("I"+CSTR(i+1)) '온도7
Cell.Value = GetTagVal("온도.온도_7")
Set Cell = Sheet1.Range("J"+CSTR(i+1)) '압력1
Cell.Value = GetTagVal("압력.압력_1")
Set Cell = Sheet1.Range("K"+CSTR(i+1)) '압력2
Cell.Value = GetTagVal("압력.압력_2")
Set Cell = Sheet1.Range("L"+CSTR(i+1)) '압력3
Cell.Value = GetTagVal("압력.압력_3")
Set Cell = Sheet1.Range("M"+CSTR(i+1)) '압력4
Cell.Value = GetTagVal("압력.압력_4")
Set Cell = Sheet1.Range("N"+CSTR(i+1)) '압력5
Cell.Value = GetTagVal("압력.압력_5")
Set Cell = Sheet1.Range("O"+CSTR(i+1)) '전력량
Cell.Value = GetTagVal("전력량")
Set Cell = Sheet1.Range("P"+CSTR(i+1)) '플로어값
Cell.Value = GetTagVal("플로어메타값")
i = i+1
interval = Gettagval("주기설정")
Sleep(interval*1000) ' 변경가능값 요기 값을 변경하면 시간 설정 가능
Wend
Sheet1.Calculate
DayRpt.Save
ExcelApp.Quit
Set ExcelApp = Empty
End Sub
댓글 0
권한이 없습니다.