如何使用access VBA定义从excel导出到MS access表的列数？

Sub ImportDataFromExcel()
    Dim db As Database
    Dim rs As Recordset
    Dim excelApp As Object
    Dim excelWorkbook As Object
    Dim excelWorksheet As Object
    Dim columnCount As Integer
    
    ' 创建数据库对象
    Set db = CurrentDb()
    
    ' 打开Excel应用程序
    Set excelApp = CreateObject("Excel.Application")
    
    ' 打开Excel文件
    Set excelWorkbook = excelApp.Workbooks.Open("C:\YourExcelFile.xlsx")
    
    ' 打开Excel工作表（假设工作表名称为Sheet1）
    Set excelWorksheet = excelWorkbook.Worksheets("Sheet1")
    
    ' 获取列数
    columnCount = excelWorksheet.UsedRange.Columns.Count
    
    ' 创建记录集对象
    Set rs = db.OpenRecordset("YourTableName", dbOpenTable)
    
    ' 清空表中的现有数据
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE FROM YourTableName"
    DoCmd.SetWarnings True
    
    ' 导入Excel数据到Access表
    For i = 1 To columnCount
        rs.Fields(i - 1).Name = excelWorksheet.Cells(1, i).Value
    Next i
    
    ' 关闭Excel对象
    excelWorkbook.Close
    excelApp.Quit
    
    ' 释放对象变量
    Set rs = Nothing
    Set db = Nothing
    Set excelWorksheet = Nothing
    Set excelWorkbook = Nothing
    Set excelApp = Nothing
End Sub