vb에서 검색한 기록을 Excel로 내보내는 방법
다음 코드를 입력하십시오.
' Excel
Private Sub ExcelCmd_Click()
Dim Introws As Integer ' ， MSHFlexGrid
Dim Intcols As Integer ' ， MSHFlexGrid
Dim XlsApp As Excel.Application ' Excel
Dim XlsSheet As Excel.Worksheet ' Excel
Dim XlsBook As Excel.Workbook ' Excel
Set XlsApp = CreateObject("Excel.Application") ' Excel
Set XlsBook = XlsApp.Workbooks.Add '
Set XlsSheet = XlsBook.Worksheets(1) '
' ， MSHFlex1 Excel
For Introws = 0 To MSHFlex1.Rows - 1
For Intcols = 0 To MSHFlex1.Cols - 1
If Intcols = 0 Then ' ， ， 0
XlsSheet.Cells(Introws + 1, Intcols + 1) = "'" & MSHFlex1.TextMatrix(Introws, Intcols)
Else
XlsSheet.Cells(Introws + 1, Intcols + 1) = MSHFlex1.TextMatrix(Introws, Intcols)
End If
Next Intcols
Next Introws
'
XlsApp.Visible = True
Set XlsApp = Nothing한 대상을 사용할 때
우선 이런 것들, 즉 성명, 인용 또는 어떤 대상을 찾아내는 것이다
그 다음에 이 물건을 실제로 꺼내면, 그것이 일정한 기능을 행사할 수 있게 하는 것이다. 즉, 이와 같은 실례적인 말이다
마지막에 다 썼으니 돌려보내면 바로 이 대상을 방출한다
예를 들어 Excel, 보고서, API,Active 컨트롤 등은 모두 이 사고방식에 따른 것이기 때문에 우리는 다른 컨트롤을 사용할 때도 이 순서에 따라 조작할 수 있다
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 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에 따라 라이센스가 부여됩니다.
좋은 웹페이지 즐겨찾기
