• 목록
  • 아래로
  • 위로
  • 0
  • 임꺽
  • 조회 수 3463
  
 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
 

공유

facebooktwitterpinterestbandkakao story
퍼머링크

댓글 0

권한이 없습니다.