[기관실 요금 시스템 - Excel 가져오기]
준비:
우리가 vb와 EXCEL의 상호작용을 성공시키려면 컴퓨터에 오피스가 설치되어 있다는 것을 보증해야 한다. 그리고 우리가 해야 할 일은 바로 프로젝트--속성--Microsoft Excel 14.0 Object Library이다.
방법 1:
보통 우리 모두가 매우 좋아하는 것 중 하나는 바로 그 창이 필요하다. 나는 그 창에서 코드를 작성하고 두 번째 창이 필요할 때 우리는 직접 복사해서 붙여넣는다. 전체 창의 코드를 보면 자랑스럽다.
Dim xlsapp As Excel.Application
Dim xlsbook As Excel.Workbook
Dim xlssheet As Excel.Worksheet
Dim i, j As Long
Dim mrc As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
Set xlsapp = CreateObject("excel.application") ' execel
Set xlsbook = xlsapp.Workbooks.Add '
Set xlssheet = xlsbook.Worksheets(1) '
With xlsapp
.Rows(1).Font.Bold = True '
End With
On Error Resume Next
' MSHFlexgrid
For i = 0 To MyFlexGrid.Rows
For j = 0 To MyFlexGrid.Cols
xlssheet.Cells(i + 1, j + 1) = "'" & MyFlexGrid.TextMatrix(i, j)
Next
Next
xlsapp.Visible = True '
Set xlsapp = Nothing ' Excel
방법2:우리가 많은 창에서 이 기능을 필요로 할 때, 우리는 모듈의 기능을 잊어서는 안 된다. 같은 코드를 반복해서 복사해서는 안 된다. 그러면 우리의 코드에 기술적 함량이 없는 것처럼 보인다. 그러면 우리가 모듈에서 함수를 작성해야 한다. 그러면 엑셀을 도출하기 위해 우리가 필요로 할 때 직접 호출하면 된다. 다음은 내가 이 함수의 코드 작성 과정을 소개한다.
' Excel
Public Sub toexcel(grid1 As MSHFlexGrid)
Dim i, j As Integer
Dim xl As Object
Dim xlwbook As Object
Dim xlsheet As Object
Set xl = CreateObject("excel.application")
Set xlbook = xl.Workbooks.Add
xl.Visible = True
Set exsheet = xlbook.Worksheets("sheet1")
For i = 1 To grid1.Rows
For j = 1 To grid1.Cols
xlsheet.Cells(i, j) = grid1.TextMatrix(1 - 1, j - 1)
Next j
Next i
End Sub
우리가 필요로 할 때 직접call(myflexgrid)으로 실현하면 대량의 중복 코드를 사용하지 않습니다.이 두 가지 방법을 통해 독자들이 이 기능을 쉽게 해결할 수 있을 것이라고 믿습니다!
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
SQLite의 query로 망설임이것은 내가 처음 안드로이드 응용 프로그램 개발에서 망설이고, 그 후 해결 된 방법을 비망록으로 철자하고 있습니다. java에서 SQLite를 이용한 애플리케이션을 작성하는 동안 EditText에 입력된 item이 ...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.