Page 226 - 3-3

' 에러 박스 텍스트 지우기
rtbError.Text = ""
End Sub

' 엑셀 띄우기 버튼
Private Sub btnGoExcel_Click(sender As Object, e As EventArgs) Handles
btnGoExcel.Click
' 엑셀 상태를 참으로 변환
Excel = True
' 새로운 엑셀 어플리케이션 객체 생성
xlsApp = New Microsoft.Office.Interop.Excel.Application
' 무인체력장 엑셀 워크북 오픈
xlsWB = xlsApp.Workbooks.Open("D:\mooinExcel.xlsm")

'50m 달리기 시트 생성 - 통신
xlsSheet50m_ts = xlsWB.Sheets("50m_ 통신")
'50m 달리기 시트 생성 - 회로
xlsSheet50m_hr = xlsWB.Sheets("50m_ 회로")
'50m 달리기 시트 생성 - 제어
xlsSheet50m_je = xlsWB.Sheets("50m_ 제어")

' 팔굽혀펴기 시트 생성 - 통신
xlsSheetPushUp_ts = xlsWB.Sheets(" 팔굽혀펴기 통신_ ")
' 팔굽혀펴기 시트 생성 - 회로
xlsSheetPushUp_hr = xlsWB.Sheets(" 팔굽혀펴기 회로_ ")
' 팔굽혀펴기 시트 생성 - 제어
xlsSheetPushUp_je = xlsWB.Sheets(" 팔굽혀펴기 제어_ ")

' 유연성 시트 생성 - 통신
xlsSheetFlex_ts = xlsWB.Sheets(" 유연성 통신_ ")
' 유연성 시트 생성 - 회로
xlsSheetFlex_hr = xlsWB.Sheets(" 유연성 회로_ ")
' 유연성 시트 생성 - 제어
xlsSheetFlex_je = xlsWB.Sheets(" 유연성 제어_ ")

' 엑셀 창 띄우기
xlsApp.Visible = True

' 에러 박스에 Go Excel 텍스트가 출력되어 있으면
If rtbError.Text = "Go Excel" Then
' 엑셀로 데이터 전송 메서드 호출
SendToExcel()
End If
End Sub

- 226 -