将数据从Access数据库导出到Excel工作表的经典asp代码

<%
' 创建Excel对象
Set objExcel = Server.CreateObject("Excel.Application")
' 创建工作簿
Set objWorkbook = objExcel.Workbooks.Add
' 创建工作表
Set objWorksheet = objWorkbook.Worksheets(1)

' 连接到Access数据库
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\database.mdb"

' 执行SQL查询，检索数据
Set objRS = objConn.Execute("SELECT * FROM TableName")

' 将数据写入Excel工作表
row = 1
col = 1
Do Until objRS.EOF
    ' 写入数据
    objWorksheet.Cells(row, col).Value = objRS("ColumnName")
    
    ' 移动到下一列
    col = col + 1
    
    ' 如果超过列数限制，则移动到下一行
    If col > objRS.Fields.Count Then
        col = 1
        row = row + 1
    End If
    
    ' 移动到下一条记录
    objRS.MoveNext
Loop

' 保存Excel文件
objWorkbook.SaveAs "C:\path\to\output.xlsx"

' 关闭对象
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
objWorkbook.Close
Set objWorkbook = Nothing
objExcel.Quit
Set objExcel = Nothing
%>