SHFlexGrid의 질의 결과를 excel로 내보내기
1579 단어 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 Subnewsheet에서.Cells(i + 1, j + 1) = "' "& MSHFlexGrid1.TextMatrix (i, j) 에서 구분 기호 (') 를 추가하는 이유는 때때로 학번이 0으로 시작하기 때문입니다. 추가하지 않으면 excel을 내보내면 자동으로 제거됩니다. 추가한 후에는 문자열 형식으로 내보내기 때문에 데이터 내보내기에 부족함이 없습니다.
저자 정보 + 원문
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
Excel Grep toolExcel Grep tool ■히나가타 ■ 시트 구성 ExcelGrep.cls...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.
좋은 웹페이지 즐겨찾기
