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

瓶砸

详见代码

1. Sub Sh3自动添加新增条目() 'sheet3
   
2. Application.ScreenUpdating = False
   
3. Application.AutomationSecurity = msoAutomationSecurityForceDisable
   
4. Filename = "H:\金豪利 2019\订单管理系统V2.1.xlsm"
   
5. Set wb = Workbooks.Open(Filename)
   
6. Set sht = wb.Worksheets("电镀件信息")
   
7. Dim a, d, i%, r%
   
8.     Set d = CreateObject("Scripting.dictionary")
   
9.     a = Sheet3.[a1].CurrentRegion
   
10.     For i = 3 To UBound(a)
    
11.         d(a(i, 1) & "丨" & a(i, 2) & "丨" & a(i, 3)) = 0
    
12.     Next
    
13.     r = Sheet3.[b65536].End(3).Row + 1
    
14.     a = sht.Range("A3:C" & sht.[a65536].End(xlUp).Row)
    
15.     For i = 1 To UBound(a)
    
16.         If Not d.exists(a(i, 1) & "丨" & a(i, 2) & "丨" & a(i, 3)) Then
    
17.             Sheet3.Range("A" & r & ":C" & r) = Application.Index(a, i)
    
18.             r = r + 1
    
19.         End If
    
20.     Next
    
21. wb.Close
    
22. Set wb = Nothing
    
23. Set sht = Nothing
    
24. Application.AutomationSecurity = msoAutomationSecurityLow
    
25. Application.ScreenUpdating = True
    
26. End Sub

复制代码

代码无报错。

瓶砸

关闭的代码在21行。尝试过Workbooks("订单管理系统V2.1.xlsm").Close False
也是不行。

w609053988

你这个关闭不用保存吗？

machunze

是不是弹出一个对话框询问是否保存？因为你代码里木有 application.displayalerts

maditate

实在关不了就拔电源。

瓶砸

machunze 发表于 2019-7-30 11:34
是不是弹出一个对话框询问是否保存？因为你代码里木有 application.displayalerts

对对对，因为有好几段代码都是引用这同一个文档，然后就会弹出来这个。
使用displayalerts会不会默认保存文件，我这是不需要保存的。

瓶砸

w609053988 发表于 2019-7-30 11:19
你这个关闭不用保存吗？

只是单纯地引用数据，被引用表格里边的数据不需要去动它。

microyip

1. wb.Close False

复制代码

qingc0221

其他代码打开完了不关闭的吗

瓶砸

microyip 发表于 2019-7-30 13:47

这个我加了，一开始就用的这个，没反应。无奈附件实在太大。