Question

EXCEL打开两工作簿再关闭其中一个出现“已停止工作”

同时打开两个工作簿其中一个含下面代码，然后关闭其中一个工作簿时出现“未响应”然后跳出：“EXCEL已停止工作，Windows正在查找该问题的解决方案”，接着又跳出：：“EXCEL已停止工作，出现了一个问题，导致程序停止正常工作。如有可用的解决方案，Windows将关闭程序并通知你“。Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) On Error Resume Next MkDir ("E:") & "\我的帐套备份" SetAttr "E:\我的帐套备份", vbHidden Application.DisplayAlerts = False str1 = ThisWorkbook.Path & "" & ThisWorkbook.Name ThisWorkbook.SaveAs "E:" & "我的帐套备份" & "" & Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1) & "备份" & Format(Date, "yyyy-m-d ") & ".xlsm" ThisWorkbook.SaveAs str1 Application.DisplayAlerts = TrueEnd Sub请高手看看上面代码哪需要更改
microsoft office excel修复后重启问题还是没解决。





Answer 1

1.在开始菜单位置右键。

2.右键上拉选项中，找到且打开”控制面板“。

3.打开这个选项即进入控制面板。

4.在控制面板，这里在窗口列表找到”程序和功能“。

5.找到程序和功能后双击打开进入它的管理面板。

6.最后，在程序和功能管理界面，找到microsoft office excel

并右键，选择卸载，然后在点击

卸载后弹出的提示窗口里，选择”修复“而不是卸载即可。

追问

代码有问题吗，如果只打开含代码的工作簿运行正常。正在修复中，谢谢赐教！

Answer 2

软件装的有问题，建议重新安装或者修复

追问

代码有问题吗，如果只打开含代码的工作簿运行正常。