VB开发——Access数据库数据转化到Excell表格

个人认为分为三种情况：

整个数据库转化为表格，从数据库选择部分数据转化为表格，从特定记录中选择数据转化为表格

1）整个数据库转化为表格

Private Sub Command1_Click()
     Dim acApp As Access.Application
     Dim strReportName As String
     Dim strReportPath As String
    
     Const SAMPLE_DB_PATH As String = "c:/EastRiver.mdb"
    
     strReportName = "akaoqin "
     strReportPath = "c:/"
     ' Start Access and open Northwind Traders database.
     Set acApp = GetObject(SAMPLE_DB_PATH, "Access.Application"