excel导入access方法-suve专栏

'将同目录下excel工作薄中多个表导入access同一表中，excel表结构必须相同，工作薄名称：示例工作薄.xls，导入后access表名称"导入后"
Private Sub Command0_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 & "\示例工作薄.xls")
    For i = 1 To exBook.Sheets.Count
        DoCmd.TransferSpreadsheet acImport, , "导入后", CurrentProject.Path & _
            "\示例工作薄.xls", True, exBook.Worksheets(i).Name & "!"

    Next
    exBook.Close
    Set exBook = Nothing
    exapp.Quit

End Sub
'将同目录下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 & "\示例工作薄.xls")
    For i = 1 To exBook.Sheets.Count
           DoCmd.TransferSpreadsheet acImport, , exBook.Worksheets(i).Name, CurrentProject.Path & _
            "\示例工作薄.xls", True, exBook.Worksheets(i).Name & "!"

    Next
    exBook.Close
    Set exBook = Nothing
    exapp.Quit

End Sub

现存问题：运行后，提示打开excel表编辑，不能保证excel关闭。