从Access写入Excel中的命名单元格

Sub ExportToExcel()
    Dim xlApp As Object
    Dim xlWorkbook As Object
    Dim xlWorksheet As Object
    Dim rng As Object
    
    ' 创建Excel应用程序对象
    Set xlApp = CreateObject("Excel.Application")
    
    ' 创建新的工作簿
    Set xlWorkbook = xlApp.Workbooks.Add
    
    ' 获取第一个工作表
    Set xlWorksheet = xlWorkbook.Worksheets(1)
    
    ' 导出数据到Excel
    ' 这里假设已经连接到Access数据库，并有一个名为"TableName"的表
    ' 将数据从Access表复制到Excel的A1单元格开始的位置
    xlWorksheet.Range("A1").CopyFromRecordset CurrentDb.OpenRecordset("TableName")
    
    ' 设置命名单元格
    Set rng = xlWorksheet.Range("A1:B10") ' 设置A1到B10范围为命名单元格
    rng.Name = "MyNamedRange" ' 设置命名为"MyNamedRange"
    
    ' 保存Excel文件
    xlWorkbook.SaveAs "C:\Path\To\Your\File.xlsx"
    
    ' 关闭Excel对象
    xlWorkbook.Close
    xlApp.Quit
    
    ' 释放对象
    Set rng = Nothing
    Set xlWorksheet = Nothing
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
End Sub