快速将Access中某个表内容整体输出到Excel(转载+亲自实践)

vb.net将Access中内容输出到Excel中,最传统的方法就是一个个单元格的循环赋值,
不过当数据量比较大的时候,以上方法就太费时了.

可以考虑以下方法,

(下文转自微软网站:http://support.microsoft.com/default.aspx?kbid=247412

INFO：将数据从 Visual Basic 传输到 Excel 的方法)

使用“自动化”功能将 ADO 记录集传输到工作表区域
Excel 2000 引入了 CopyFromRecordset 方法，使您能够将 ADO（或 DAO）记录集传输到工作表上的某个区域。下面的代码说明了如何自动运行 Excel 2000、Excel 2002 或 Office Excel 2003，以及使用 CopyFromRecordset 方法传输 Northwind 示例数据库中 Orders 表的内容。

   'Create a Recordset from all the records in the Orders table
   Dim sNWind As String
   Dim conn As New ADODB.Connection
   Dim rs As ADODB.Recordset
   sNWind = _
      "C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb"
   conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
      sNWind & ";"
   conn.CursorLocation = adUseClient
   Set rs = conn.Execute("Orders", , adCmdTable)
  
   'Create a new workbook in Excel
   Dim oExcel As Object
   Dim oBook As Object
   Dim oSheet As Object
   Set oExcel = CreateObject("Excel.Application")
   Set oBook = oExcel.Workbooks.Add
   Set oSheet = oBook.Worksheets(1)
  
   'Transfer the data to Excel
   oSheet.Range("A1").CopyFromRecordset rs
  
   'Save the Workbook and Quit Excel
   oBook.SaveAs "C:\Book1.xls"
   oExcel.Quit
  
   'Close the connection
   rs.Close
   conn.Close

 

Excel 97 还提供了一种 CopyFromRecordset 方法，但它只能用于 DAO 记录集。Excel 97 中的 CopyFromRecordset 不支持 ADO。

有关使用 ADO 和 CopyFromRecordset 方法的更多信息，请查看以下 Microsoft 知识库文章：
246335  (http://support.microsoft.com/kb/246335/ ) 如何使用“自动化”功能将数据从 ADO 记录集传输到 Excel

 

   说明:

1.如果Access对象文件类型accdb,那么以上conn.open改为:
   conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Mode=share Exclusive;Data Source=" & _
     sNWind & ";"
 2.conn.CursorLocation = adUseClient 作用不明,注释掉不影响输出Excel
 3.Set rs = conn.Execute("Orders", , adCmdTable)中第一个参数就是Access中查询的表名
 4.Set rs = conn.Execute("Orders", , adCmdTable)中第三个参数不设定即可,不影响输出Excel