vba - 如何将 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