急，请各位帮帮我,在access中打开EXCEL无法关闭

gjaxx　发表于：2010-01-29 14:52:51 　

代码大概如下：

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文件

Top

gjaxx 发表于：2010-01-31 07:47:06

顶

Top

Bobo 发表于：2010-02-28 22:28:07

Set exBook = Nothing
改为

Set exapp = Nothing
试试

Top

一启软研发表于：2010-03-01 08:59:06

我的一篇文章，可供参考：http://www.yikisoft.cn/WZ.asp?id=30

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

急，请各位帮帮我,在access中打开EXCEL无法关闭