使用VBA/宏关闭Finder窗口

Question

我正在尝试编写一个简单的 VBA 宏，以便在打开工作簿时运行。该宏将打开 Finder 窗口，更改几个选项，然后关闭该窗口。这基本上是为了“设置”默认搜索选项，因为（据我所知）Excel 不允许您更改默认选项。我遇到的问题是，我无法找到一种方法让宏在完成后关闭 Finder 窗口。我对此仍然非常业余，这可能有所贡献，但我所有的在线搜索要么只关注消息框，要么与我想做的事情无关。我的代码（目前它只打开窗口，我必须手动关闭它）如下。

Private Sub Workbook_Open()

    Application.Dialogs(xlDialogFormulaFind).Show , 2, 2

End Sub

我实际上尝试过的主要事情是使用sendkey尝试发送“Esc”命令，但这并没有奏效；我在窗户上没有看到任何变化。我还没有找到任何似乎可以关闭窗口的 application 或 application.dialog 子命令。

提前致谢。

Answer 1

“查找”的设置是粘性的，因此，如果您使用 VBA 执行搜索，则您使用的设置将成为默认设置。

https://learn.microsoft.com/en-us/office/vba/api/excel.range.find#:~:text=%20settings%20for%20LookIn%2C%20LookAt%2C，明确%20each %20time%20you%20use%20this%20方法.

LookIn、LookAt、SearchOrder 和 MatchByte 的设置已保存 每次使用此方法时。如果您不指定这些值 下次调用该方法时的参数，保存的值是 用过的。设置这些参数会更改“查找”对话框中的设置 框，更改“查找”对话框中的设置会更改 省略参数时使用的已保存值。为了避免 问题，每次使用时明确设置这些参数 方法。

因此，只需使用您想要的默认设置在 VBA 中执行

Find()

即可。 无需显示对话框。