大家帮我看看里面的代码错在哪儿，为什么实现不了预期的功能，谢谢大家！

genelny

我做了一个名为command51的按钮，点击时希望打开一个指定的Excel表格，以下是我编写的代码，但点击后是在access窗口中（我希望是单独打开一个独立的Excel表格）打开了这个excel表格，而且过大概5秒后，这个在access中打开的窗口就自动关闭，请问各位高手下面的代码错在哪儿了？感谢大家的帮助，谢谢！
Private Sub Command51_Click()
Call OpenXlApp
End Sub
-----------------------------------------------------------------------------
Sub OpenXlApp()
    Dim xlApp As Excel.Application
    Set xlApp = CreateObject("Excel.Application")
    Dim xlBook As Excel.Workbook
    Set xlBook = xlApp.Workbooks.Open("E:\老公的工作夹\卸车坑尺寸及储量计算.xls")
    xlApp.Visible = True
    xlApp.Quit
    Set xlApp = Nothing
End Sub

kangking

xlApp.Quit

将上面一句注释掉试试。

genelny

谢谢 呵呵 去掉xlapp.quit后正常了，不过不太理解为什么？

todaynew

xlapp.quit是指关闭已经打开的Excel文件，所以没有达到你的目的，呵呵。

genelny

谢谢 呵呵！只是为什么有xlapp.quit时，这段代码也会打开excel表格，只是实在access窗口中打开的，而且过大概5秒后才关闭，这是xlapp.quit的特性？？

todaynew

谢谢 呵呵！只是为什么有xlapp.quit时，这段代码也会打开excel表格，只是实在access窗口中打开的，而且过大概5秒后才关闭，这是xlapp.quit的特性？？
genelny 发表于 2009-10-3 18:08

因为你的这段代码做了两个操作：
1、打开表操作：Set xlBook = xlApp.Workbooks.Open("E:\老公的工作夹\卸车坑尺寸及储量计算.xls")
2、关闭表操作：xlapp.quit