Excel VBA操作Word后，如何让InputBox显示在可见的Excel界面？

要让Excel重新获得焦点，确保InputBox正常显示，只需在调用InputBox之前添加激活Excel窗口的代码即可：

修改思路 #

在弹出输入框前，强制将焦点切回Excel应用，同时处理窗口最小化的情况，避免输入框被隐藏。

修改后的代码 #

Dim strPath As String
Dim strPDFname As String

' 激活Excel窗口，确保InputBox可见
AppActivate Application.Caption
' 若Excel窗口最小化，恢复正常显示
If Application.WindowState = xlMinimized Then Application.WindowState = xlNormal

'Save PDF
strPDFname = InputBox("Enter Client Name for Report", "PDF Version of Report", " - Tree Condition Report " & Format(Date, "dd.mm.yy"))
    If strPDFname = "" Then 'user deleted text from inputbox, add default name
        strPDFname = "example"
    End If
    strPath = myDoc.Path
    If strPath = "" Then    'doc is not saved yet
        strPath = Options.DefaultFilePath(wdDocumentsPath) & Application.PathSeparator
    Else
        'just add \ at the end
        strPath = strPath & Application.PathSeparator
    End If
    myDoc.ExportAsFixedFormat OutputFileName:= _
                                       strPath & strPDFname & ".pdf", _
                                       ExportFormat:=wdExportFormatPDF, _
                                       OpenAfterExport:=False, _
                                       OptimizeFor:=wdExportOptimizeForPrint, _
                                       Range:=wdExportAllDocument, _
                                       IncludeDocProps:=True, _
                                       CreateBookmarks:=wdExportCreateWordBookmarks, _
                                       BitmapMissingFonts:=True

说明 #

• AppActivate Application.Caption：通过Excel窗口标题激活应用，强制将焦点切换回Excel。
• 额外的窗口状态检查：如果Excel被最小化，恢复正常显示，确保InputBox不会被隐藏在任务栏后。

这样修改后，InputBox会在Excel窗口前端弹出，用户能正常输入文件名。

内容的提问来源于stack exchange，提问作者matthew whitehead