VB中求一段完整的excel数据导入access中已有表格内的代码

access 中代码：参数1：导入的表名，参数2：excel文件名 Function ImportSpreadsheet(ByVal strTblName As String, ByVal strXlsName As String) On Error Resume Next DoCmd.TransferSpreadsheet _ TransferType:=acImport, _ SpreadsheetType:=acSpreadsheetTypeExcel8