如何将Excel VBA UI置于最前面

Question

我的代码

我有以下代码，当单击UI上的按钮时，它将打开文件浏览器

Sub GetOpenFile()
    Dim fileStr As String

    On Error GoTo Error

    fileStr = Application.GetOpenFilename()
    If fileStr = "False" Then Exit Sub
    Workbooks.Open fileStr

    Exit Sub

    Error:
    MsgBox "Something went wrong or the file type/extension is wrong", vbExclamation, "Error"

    Exit Sub
End Sub

我的问题

选择文件后，便可以打开文件。但是问题是，UI窗口进入后台，因此新打开的文件位于最前面。用户始终需要最小化或寻找UI才能继续其他活动。

我需要的

打开文件后，UI是否仍会保留在前面？

Answer 1

我可以通过以下方式解决它。打开文件后，我将打开的文件名存储在如下变量中

mainFileName = ActiveWorkbook.Name

之后，只需使用以下代码将窗口最小化

Windows(mainFileName).WindowState = xlMinimized