从Excel导入超过65.535行到MS Access

我正在运行下面的代码从excel中导入整个工作表来访问,工作表有77k行,但Access只导入65.535,如何解决它的任何clur? 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工作簿。

 docmd.transfertext......... 

如果你想在访问中传输超过65536行,请在MS访问中使用这个命令