把ACCESS的数据导入EXCEL中

Question

以下是一个把MsFlexGrid网格数据导入到Excel的例子。当然也可是其他数据源,变动一下程序就可以了。Public Sub OutDataToExcel(Flex As MsFlexGrid)    '导出至Excel
    Dim s As String
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    On Error GoTo Ert
    Dim Excelapp As Excel.Application
    Set Excelapp = New Excel.Application
    On Error Resume Next
    DoEvents
    Excelapp.SheetsInNewWorkbook = 1
    Excelapp.Workbooks.Add
    Excelapp.ActiveSheet.Cells(1, 3) = s
    Excelapp.Range("C1").Select
    Excelapp.Selection.Font.FontStyle = "Bold"
    Excelapp.Selection.Font.Size = 16
    With Flex
        k = .Rows
        For i = 0 To k - 1
            For j = 0 To .Cols - 1
               DoEvents
               Excelapp.ActiveSheet.Cells(3 + i, j + 1) = "'" & .TextMatrix(i, j)
            Next j
        Next i
    End With
Ert:
    If Not (Excelapp Is Nothing) Then
        Excelapp.Quit
    End If
End Sub

Answer 1

http://expert.csdn.net/Expert/topic/1480/1480469.xml?temp=.9837152