用WORKBOOKS.OPEN打开工作簿后无法关闭

瓶砸

qingc0221 发表于 2019-7-30 13:50
其他代码打开完了不关闭的吗

有啊，上面代码第21行就是关闭的代码。

瓶砸

简单描述下，有A、B两个文档。
这两个文档我都写了引用的语句。A引用B，B引用A。
代码结构是这样的。GETOBJECT之后再CLOSE，参考1L。
于是就有了，打开A之后，B中的代码会把A关掉。
去掉CLOSE语句后，又出现了6L的情况。
后边尝试加了
Application.AutomationSecurity = msoAutomationSecurityForceDisable；
Application.AutomationSecurity = msoAutomationSecurityLow
发现无济于事。

瓶砸

刚试了一下，把所有的WB.CLOSE 0删掉就没问题了，而且GETOBJECT貌似是默认不保存关闭的。

ning84

打开和关闭出现问题，变成只读文件。


Private Sub ConnectSunriseSunSet()
    Dim xlApp As Excel.Application
    Dim xlWk As Workbook
    Dim Sht As Worksheet
    Dim oCount
        Set xlApp = New Excel.Application
        xlApp.Visible = True
        oCount = xlApp.Workbooks.Count
        
        If oCount = 0 Then
              Set xlWk = xlApp.Workbooks.Open("D:\日出日落\中国东西南北城市.xls")
        ElseIf oCount = 1 Then
              Set xlWk = xlApp.Workbooks(1)
        End If
   
        Stop
        Debug.Print xlWk.Parent.Workbooks.Count
        Debug.Print xlApp.Workbooks.Count
        Stop
        xlWk.Close
        Debug.Print xlApp.Workbooks.Count
        Stop
        
         
End Sub