Page 223 - 3-3

' 소켓 닫기
socket.Close()

' 예외 발생 시
Catch ex As Exception
' 에러 메시지 출력
MsgBox(ex.ToString())
End Try
End Sub

' 엑셀로 데이터 보내기
Private Sub SendToExcel()
' 예외 처리
Try
'50m 달리기 행 변수
'50m 달리기 시트에 현재 데이터가 있는 행보다 하나 아래 행 선택
Dim RowRun50_ts As Integer =
xlsSheet50m_ts.Range("A3").CurrentRegion.Rows.Count + xlsSheet50m_ts.Range("A3").Row
Dim RowRun50_hr As Integer =
xlsSheet50m_hr.Range("A3").CurrentRegion.Rows.Count + xlsSheet50m_hr.Range("A3").Row
Dim RowRun50_je As Integer =
xlsSheet50m_je.Range("A3").CurrentRegion.Rows.Count + xlsSheet50m_je.Range("A3").Row
' 팔굽혀펴기 행 변수
' 팔굽혀펴기 시트에 현재 데이터가 있는 행보다 하나 아래 행 선택
Dim RowPushUp_ts As Integer =
xlsSheetPushUp_ts.Range("A3").CurrentRegion.Rows.Count +
xlsSheetPushUp_ts.Range("A3").Row
Dim RowPushUp_hr As Integer =
xlsSheetPushUp_hr.Range("A3").CurrentRegion.Rows.Count +
xlsSheetPushUp_hr.Range("A3").Row
Dim RowPushUp_je As Integer =
xlsSheetPushUp_je.Range("A3").CurrentRegion.Rows.Count +
xlsSheetPushUp_je.Range("A3").Row
' 체공시간 행 변수
' 체공시간 시트에 현재 데이터가 있는 행보다 하나 아래 행 선택
Dim RowFlex_ts As Integer =
xlsSheetFlex_ts.Range("A3").CurrentRegion.Rows.Count + xlsSheetFlex_ts.Range("A3").Row
Dim RowFlex_hr As Integer =
xlsSheetFlex_hr.Range("A3").CurrentRegion.Rows.Count + xlsSheetFlex_hr.Range("A3").Row
Dim RowFlex_je As Integer =
xlsSheetFlex_je.Range("A3").CurrentRegion.Rows.Count + xlsSheetFlex_je.Range("A3").Row

'RF 라는 문자열을 수신했거나
' 에러 박스 텍스트가 Go Excel 이면
If Mid(rtbError.Text, 1, 2) = "RF" Or rtbError.Text = "Go Excel" Then

- 223 -