VB.NET 代码 导出ACCESS到excel

以下是使用 VB.NET 导出 ACCESS 数据库到 Excel 的示例代码：

' 声明变量
Dim conn As New OleDb.OleDbConnection
Dim cmd As New OleDb.OleDbCommand
Dim da As New OleDb.OleDbDataAdapter
Dim ds As New DataSet

' 连接到 ACCESS 数据库
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccessFile.accdb;Persist Security Info=False;"
conn.Open()

' 查询数据
cmd.Connection = conn
cmd.CommandText = "SELECT * FROM myTable"
da.SelectCommand = cmd
da.Fill(ds, "myTable")

' 导出数据到 Excel
Dim excelApp As New Excel.Application
Dim excelBook As Excel.Workbook = excelApp.Workbooks.Add()
Dim excelSheet As Excel.Worksheet = excelBook.Sheets("Sheet1")
For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
    For j As Integer = 0 To ds.Tables(0).Columns.Count - 1
        excelSheet.Cells(i + 1, j + 1) = ds.Tables(0).Rows(i)(j)
    Next
Next
excelBook.SaveAs("C:\myFolder\myExcelFile.xlsx")
excelBook.Close()
excelApp.Quit()

' 关闭连接
conn.Close()

这段代码使用 OleDb 连接器连接到 ACCESS 数据库，查询数据并将其填充到 DataSet 中，然后使用 Excel 应用程序创建一个新的工作簿，并将数据写入工作表中，最后保存工作簿到 Excel 文件。