利用vba 从excel到access中导入与导出表

Option Compare Database

Private Sub Command0_Click()
MsgBox "hello"
End Sub

Private Sub Command1_Click()
    DoCmd.Beep
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "table1", "c:myexcel", True, "ruix"
End Sub

Private Sub Command2_Click()

'导入一个excel文件到指定表格
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
    "Employees", CurrentProject.Path & " est.xls", True

End Sub

Private Sub Command3_Click()
 '导出所有表到一个excel文件
 ExportTableToOneXls CurrentProject.Path & " empExEg.xls"
End Sub


Public Function ExportTableToOneXls(ByVal XlsPath As String)
    
    '这里用 ADO 来获取所有的表名，当然，你完全可以用查询系统表的方法来实现
    
    Dim rstSchema As ADODB.Recordset
    Dim cnn2 As ADODB.Connection
    Set cnn2 = CurrentProject.Connection
    Set rstSchema = cnn2.OpenSchema(adSchemaTables)
    Dim i As Long
    Do Until rstSchema.EOF
        If rstSchema("TABLE_TYPE") = "TABLE" Then
            '对应 TABLE_TYPE 可以取值 "TABLE" "SYSTEM TABLE" "ACCESS TABLE"
            '在这里我们列出所有用户表的信息，系统表不列出
            For i = 0 To rstSchema.Fields.Count - 1
                Debug.Print rstSchema(i).Name & "-> " & rstSchema.Fields(i).Value
                If rstSchema(i).Name = "TABLE_NAME" Then
                    '用 TransferSpreadsheet 实现导出，当然，你完全可以用 in 子句来实现
                    '    《查询》如何查询其他数据库内的表(IN子句实例)？
                    '    http://access911.net/index.asp?u1=a&u2=71FAB21E17DC
                    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, rstSchema.Fields(i).Value, XlsPath, True
                End If
            Next
        End If
        rstSchema.MoveNext
    Loop
    rstSchema.Close
    cnn2.Close
End Function

 1.双击打开my.mdb
2.点击“窗口”
3.点击“窗口1”
4.点“ado导出”将导出到同一文件夹"tempExEp.xls"
5.点“导入”将导入同文件夹中的temp.xls到表emploees中