标粗标红的为打开excel表 由于该excel表过大 可以不需要打开表吗?

'将同目录下excel工作薄中多个表导入access中，生成不同access表
Private Sub Command1_Click()
On Error Resume Next
 Dim exapp As New Excel.Application
    Dim exBook As Excel.Workbook
    Dim exSheet As Excel.Worksheet
    Dim strName As String
    Set exBook = exapp.Workbooks.Open(CurrentProject.Path & "\SDR_fdd_radio.xlsx")
    For i = 1 To exBook.Sheets.Count
           DoCmd.TransferSpreadsheet acImport, , exBook.Worksheets(i).Name, CurrentProject.Path & _
            "\SDR_fdd_radio.xlsx", True, exBook.Worksheets(i).Name & "!"
    Next
    exBook.Close
    Set exBook = Nothing
    exapp.Quit
End Sub