借助Automation你可以實現數據傳遞，下面是一個簡單的例子： 
    Dim ExcelApp As Object 
     
    Private Sub Command1_Click() 
     Dim i 
     
     Set ExcelApp = CreateObject("excel.application") 
     
     ExcelApp.Workbooks.Add 
     i = 1 
     While Not Data1.Recordset.EOF 
     ExcelApp.Range("a" & i).Value = Data1.Recordset("CategoryName") 
     i = i + 1 
     Data1.Recordset.MoveNext 
     Wend 
     ExcelApp.Visible = True 
    End Sub 
<END>    
在VB中編寫Excel的外接程序Addin,生成一個 Dll文件,在這個Addin中,用ADO或DAO讀取Access，和一般方法無異。注冊Dll后,在Excel的Com Addins列表中出現這個Addin，加載該Addin，發生OnConnection事件，該事件有一個參數Application,就是Excel事例，可據次編寫代碼將Access數據填到Excel單元格中。 
    如果你用VBA編寫宏,就不能編譯成DLL,除非安裝office developer tools。Com Addin比Automation效率更高。 
<END>    
有一個更好些的辦法,就是用xSheet.Range("A1").CopyFromRecordset RS 
    這樣可以將一個DAO的Recordset直接拷貝到指定開始的單元格中. 
<END>