从 Excel 将超过 65.535 行导入到 MS Access

我正在运行以下代码将整个工作表从 Excel 导入到 Access，该工作表有 77k 行，但 Access 仅导入 65.535 行，关于如何修复它有任何疑问吗？ Excel 和 Access 都是 2013 版本。

Function importa()

    Dim rs As DAO.Recordset
    Dim inicio As String
    Dim fim As String


 DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, _
    "NOMEBASE", Application.CurrentProject.Path() + "\Abre_Envio_Novo_Layout.xlsm", True, "Menu!BJ25:BM26"



    Set db = CurrentDb()
    Set rs = db.OpenRecordset("NOMEBASE")

    inicio = rs.Fields(2).Value
    fim = rs.Fields(3).Value



DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, _
    "BASE", Application.CurrentProject.Path() + "\Abre_Envio_Novo_Layout.xlsm", True, "Mailing_Recebido!A:AX"


    rs.Close

End Function

acSpreadsheetTypeExcel12应该acSpreadsheetTypeExcel12Xml用于导入 Excel 2010 工作簿。