SHFlexGrid의 질의 결과를 excel로 내보내기

'충전 기록 조회'창을 두드릴 때, 데이터를 excel로 내보낼 수 있도록 요구합니다. 이 부분에서 제가 익숙하지 않았던 순환 문장을 만났습니다.
그러나 다행히도 마침내 끊임없는 시도에서 기본적으로 파악되었다.지금은'충전 기록 조회'창을 예로 들어 나의 이번 성장을 기념한다.

Private Sub cmdExcel_Click()
    Dim newxls As excel.Application, newbook As excel.Workbook, newsheet As excel.Worksheet
    Dim i As Integer, j As Integer
    
    strSQL = "select * from Recharge_Info where CardNo='" & Trim(txtCardNo.Text) & "'"
    Set ObjRs = ExecuteSQL(strSQL, MsgText)
     
    If ObjRs.RecordCount = 0 Then
        MsgBox " ！", , " "
        Exit Sub
        
    End If
    
    Set newxls = CreateObject("Excel.Application") ' excel ， excel
    Set newbook = newxls.Workbooks.Add   ' 
    Set newsheet = newbook.Worksheets(1) ' 
    
    With newxls
        .Rows(1).Font.Bold = True
    
    End With
    On Error Resume Next         ' 
    
    For i = 0 To MSHFlexGrid1.Rows
        For j = 0 To MSHFlexGrid1.Cols
            newsheet.Cells(i + 1, j + 1) = "'" & MSHFlexGrid1.TextMatrix(i, j)
        Next j
    Next i
     
    newxls.Visible = True
   
    Set newxls = Nothing
    
End Sub

newsheet에서.Cells(i + 1, j + 1) = "' "& MSHFlexGrid1.TextMatrix (i, j) 에서 구분 기호 (') 를 추가하는 이유는 때때로 학번이 0으로 시작하기 때문입니다. 추가하지 않으면 excel을 내보내면 자동으로 제거됩니다. 추가한 후에는 문자열 형식으로 내보내기 때문에 데이터 내보내기에 부족함이 없습니다.
저자 정보 + 원문