스크립트:CIMON에서 EXCEL에 태그값 쓰기

[주인장]

'****************************************************************************************************
'엑셀파일에다가 CIMON태그내용 쓰기
'Notice
'1.엑셀쉬트지정규칙
' - 쉬트 이름에 관계없이 쉬트의 순서를 기준으로 읽음.
'2.엑셀파일이 이미 열려있을때
' - 파일을 갱신할건지 질문한다,따라서 파일이 열린 상태로는 사용하기 불편하다.
'****************************************************************************************************
Sub do_excel_writing_block()
 
Dim ExcelApp  As Object
Dim ExcelFile As Object
Dim Sheet1    As Object
Dim Cell      As Object

On Error Goto Errstep

'message
SetTagVal "EXCEL.MESSAGE","writing to excelfile start...!"

'확인:파일이름
If GetTagVal("EXCEL.FILENAME") = "" Then

      SetTagVal "EXCEL.MESSAGE", "엑셀파일을 입력한 후 다시하십시요."
      PlaySound "sound_fail"
      Exit Sub
End If

'설정:excel object
Set ExcelApp = CreateObject("Excel.Application")

'설정:파일경로
file_path$ = "C:\TEMP\"

 '설정:파일이름(format:YYYYMMDD)
 file_name$ = file_path$ + GetTagVal("EXCEL.FILENAME") + ".xls"
 
'점검:파일존재
If (FileExists(file_name$) = True) Then
 '열기:파일이 있을때
     Set ExcelFile = ExcelApp.Workbooks.Open(file_name$)
Else
 '엑셀파일생성:파일이 없을때
        Set ExcelFile = ExcelApp.Workbooks.Add
        '저장:엑셀파일 다른이름으로
        ExcelFile.SaveAs file_name$
End If

'message
SetTagVal "EXCEL.MESSAGE", file_name$ + ".xls open...!"
Sleep(1000)

'설정:엑셀쉬트
Set Sheet1 = ExcelFile.Worksheets(1)

'읽기:줄번호
row_no# = GetTagVal ("EXCEL.ROWNO_END")

'확인:줄번호없는경우
If row_no# = 0 Then row_no# = 1

'[Section:엑셀의 셀에 CIMON의 태그값 지정]
 
'지정:엑셀의 셀
Set Cell = Sheet1.Range("A" + CStr(row_no#)) 

For i = 1 to row_no#
   'A CELL지정:엑셀의 셀
   Set Cell = Sheet1.Range("A" + CStr(i))
   '쓰기할태그명생성
   UTag$ = "EXCEL.A.D" + Format (i,"000#")
   '값쓰기:엑셀의 셀에 CIMON의 태그값
   Cell.Value = GetTagVal(UTag$)

  'B CELL지정:엑셀의 셀
   Set Cell = Sheet1.Range("B" + CStr(i))
   '쓰기할태그명생성
   UTag$ = "EXCEL.B.D" + Format (i,"000#")
   '값쓰기:엑셀의 셀에 CIMON의 태그값
   Cell.Value = GetTagVal(UTag$)

  'C CELL지정:엑셀의 셀
  Set Cell = Sheet1.Range("C" + CStr(i))
  '쓰기할태그명생성
  UTag$ = "EXCEL.C.D" + Format (i,"000#")
  '값쓰기:엑셀의 셀에 CIMON의 태그값
   Cell.Value = GetTagVal(UTag$)

   'D CELL지정:엑셀의 셀
   Set Cell = Sheet1.Range("D" + CStr(i))
   '쓰기할태그명생성
   UTag$ = "EXCEL.D.D" + Format (i,"000#")
  '값쓰기:엑셀의 셀에 CIMON의 태그값
   Cell.Value = GetTagVal(UTag$)

Next i

'저장:엑셀
ExcelFile.Save

'종료:엑셀

ExcelApp.Quit

'삭제:메모리
Set ExcelApp = Empty

'message
SetTagVal "EXCEL.MESSAGE", file_name$ + ". Excel file writing success...!"
PlaySound "sound_success"
 
'exit
Exit Sub

Errstep:
'message
SetTagVal "EXCEL.MESSAGE", "엑셀파일 쓰기도중 오류가 발생되었습니다....!"
PlaySound "sound_fail"

End Sub