[기관실 요금 시스템 - Excel 가져오기]

2166 단어 데이터베이스vb
기계실 요금 시스템에서 vb와 EXCEL의 교환은 새로운 지식이라고 할 수 있다. 이전에 우리는 학생이 되었을 때 접촉한 적이 없지만 이 EXCEL의 도출은 이전 보고서와 비교하면 매우 간단할 것이다.이 블로그에서는 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)으로 실현하면 대량의 중복 코드를 사용하지 않습니다.이 두 가지 방법을 통해 독자들이 이 기능을 쉽게 해결할 수 있을 것이라고 믿습니다!

좋은 웹페이지 즐겨찾기