是否只能使用VBA将第二个工作表从Excel导入到Access

Sub ImportSheetToAccess()
    Dim xlApp As Object
    Dim xlWorkbook As Object
    Dim xlWorksheet As Object
    Dim accApp As Object
    Dim accDatabase As Object
    Dim accTable As Object
    
    ' 打开Excel文件
    Set xlApp = CreateObject("Excel.Application")
    Set xlWorkbook = xlApp.Workbooks.Open("C:\Path\To\ExcelFile.xlsx")
    Set xlWorksheet = xlWorkbook.Worksheets(2) ' 第二个工作表
    
    ' 打开Access数据库
    Set accApp = CreateObject("Access.Application")
    accApp.OpenCurrentDatabase "C:\Path\To\AccessDatabase.accdb"
    Set accDatabase = accApp.CurrentDb
    
    ' 创建新表格
    Set accTable = accDatabase.CreateTableDef("TableName")
    
    ' 添加字段
    For i = 1 To xlWorksheet.UsedRange.Columns.Count
        accTable.Fields.Append accTable.CreateField("Field" & i, xlWorksheet.Cells(1, i).Value)
    Next i
    
    ' 添加记录
    For i = 2 To xlWorksheet.UsedRange.Rows.Count
        accTable.Fields.Append accTable.CreateField("Field" & i, xlWorksheet.Cells(i, 1).Value)
    Next i
    
    ' 保存表格
    accDatabase.TableDefs.Append accTable
    accDatabase.TableDefs.Refresh
    
    ' 关闭对象
    xlWorkbook.Close False
    xlApp.Quit
    accApp.CloseCurrentDatabase
    accApp.Quit
    
    Set xlWorksheet = Nothing
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
    Set accTable = Nothing
    Set accDatabase = Nothing
    Set accApp = Nothing
End Sub