已启用后出现EXCEL 2nd Enable Editing按钮

时间:2017-09-05 17:06:38

标签: excel vba excel-vba

我有一个excel工作簿,我使用我编写的简单HTML门户下载。当我下载工作簿时,它会自动将其重命名为" myWorkbook(27)"或者已经放入下载文件夹的任何次数。

我有一些代码将工作簿的“另存为”位置更改为从中下载的原始位置。参见:

Private Sub Workbook_Open()
Application.DisplayAlerts = False
'Check to see if another workbook with the same name is open -- close if so.
If IsOpenWorkbook("myWorkbook.xlsm", True) Then
    Workbooks("myWorkbook.xlsm").Close saveChanges = False
End If
ThisWorkbook.SaveAs Filename:="\\999.9.9.99\folder\anotherFolder\myWorkbook.xlsm"
Application.DisplayAlerts = True
End Sub

近一个月来一直运作良好,但最近一直表现不佳。当我第一次下载工作表时,它有常规"启用编辑"我接受的提示。接受后,工作簿的名称会更改,表明代码已运行,但随后又有另一个"启用编辑"提示,如果我接受,将崩溃Excel。

任何见解都表示赞赏。

0 个答案:

没有答案
相关问题