gpt4 book ai didi

vba - Windows(ThisWorkbook.Name).Visible = True 导致 Excel 自动恢复文件出错

转载 作者:行者123 更新时间:2023-12-01 04:50:45 25 4
gpt4 key购买 nike

两个月前我问过这个问题: Autosaved file error on Macro Enabled Excel file

感谢@YowE3K,他向我推荐了 Workbook_Open 事件,因为当我尝试恢复(重新打开)文件时出现问题。今天我深入研究了一下,发现我得到的原因是:

 Run-time error '9'

Subscript out of range

错误是:

Windows(ThisWorkbook.Name).Visible = True

我不知道它是如何变成False的,但是,当我尝试打开自动恢复文件时,我意识到文件正常打开,我的表单正常打开,但是当表单消失时,错误出现,名称文件的内容更改为 Microsoft Excel,所有内容都从屏幕上消失,所有 Excel 功能区卡住,我只能转到“开发人员”选项卡,情况没有任何改变。

所以我认为,Excel 不知何故无法将 Windows(ThisWorkbook.Name).Visible 转为 True 在表单(我的 Excel 启动屏幕)消失后。

如何避免这种情况?我不想删除精美的启动画面,但有时我也需要使用自动恢复文件。

Similar issue from Microsoft's pageXL2003: Changing ThisWorkbook.Windows().Visible property during Workbook_BeforeClose event prevents workbook from closing根本没有帮助我。

最佳答案

该代码失败,因为当 Excel 恢复文件时,它会在窗口标题中添加一些文本,以便“FileName.xlsx”变成类似“FileName.xlsx [用户上次保存的版本]”的内容。因此,请使用如下例程:

Sub ShowaWindow(sFileName As String)
Dim oWb as Workbook
For Each oWb In Workbooks
If lCase(owb.Name) = lCase(sFileName) Then
oWb.Windows(1).Visible = True
Exit For
End If
Next
End Sub

关于vba - Windows(ThisWorkbook.Name).Visible = True 导致 Excel 自动恢复文件出错,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/43732367/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com