64位Excel VBA中WebBrowser控件加载PDF崩溃问题求助

我有一个带有WebBrowser控件的Excel VBA窗体，用于显示PDF文件。该功能在32位Office环境下运行正常，但在64位Office环境中会直接崩溃（无报错信息）。已完成以下测试：

• 在多台64位Office机器上测试，均出现崩溃；
• 尝试先显示窗体再加载PDF，仅能正常运行一次，再次切换PDF文件时仍会崩溃。

使用的更新PDF代码：
invoice_review.WebBrowser.Navigate (invoice_path)

也尝试过嵌入HTML的方式，问题依旧：

invoice_review.WebBrowser.Document.write "<HTML><Body>x<embed src=""" & invoice_path & """ width=""100%"" height=""100%"" /></Body></HTML>"

事件查看器捕获的错误信息：

Faulting application name: EXCEL.EXE, version: 16.0.14931.20806, time stamp: 0x635d4918
Faulting module name: ntdll.dll, version: 10.0.22000.918, time stamp: 0x57b668f2
Exception code: 0xc0000409
Fault offset: 0x00000000000935cf
Faulting process id: 0x5d58
Faulting application start time: 0x01d8fd4c8af0801a
Faulting application path: C:\Program Files\Microsoft Office\Root\Office16\EXCEL.EXE
Faulting module path: C:\WINDOWS\SYSTEM32\ntdll.dll
Report Id: 03ea2603-9af6-4f74-99a5-ca09598936c6
Faulting package full name: 
Faulting package-relative application ID:

Adobe控件也无法正常工作，求问问题原因及可行替代方案？

问题原因 #

1. WebBrowser控件兼容性缺陷：64位Office环境下，WebBrowser控件（基于IE内核）与64位Excel进程的交互存在底层兼容性问题，加载PDF时IE的渲染组件易触发内存异常（事件日志中的0xc0000409为栈缓冲区溢出错误，指向ntdll.dll说明是系统级调用崩溃）。
2. 资源未彻底释放：多次切换PDF时，WebBrowser的文档对象未被完全释放，导致内存泄漏或资源冲突，触发二次崩溃。
3. Adobe控件适配不足：多数Adobe PDF ActiveX控件仅提供32位版本，无法在64位Office中正常注册或运行。

可行替代方案 #

方案1：调用外部PDF阅读器（最简兼容） #

直接用系统默认阅读器打开PDF，完全避免嵌入控件的兼容性问题：

Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr

Sub OpenPDFExternally(invoicePath As String)
    ShellExecute 0, "open", invoicePath, vbNullString, vbNullString, 1 '1表示正常窗口打开
End Sub

优点：无64/32位差异，绝对不会导致Excel崩溃；缺点：无法在窗体内部显示PDF。

方案2：改用WebView2控件（推荐内嵌方案） #

基于Chromium内核的WebView2控件对64位Office支持完善，可嵌入窗体显示PDF：

1. 确保目标机器安装WebView2运行时（可部署离线安装包）；
2. 在VBA编辑器中，右键工具箱→附加控件→勾选Microsoft Edge WebView2 Control，将控件拖到窗体并命名为wvPDFViewer；
3. 加载PDF的代码：

Sub LoadPDFWithWebView2(invoicePath As String)
    ' 等待控件初始化完成
    If wvPDFViewer.CoreWebView2 Is Nothing Then
        wvPDFViewer.EnsureCoreWebView2Async
        Do While wvPDFViewer.CoreWebView2 Is Nothing
            DoEvents
        Loop
    End If
    ' 加载本地PDF（路径转URL格式）
    wvPDFViewer.CoreWebView2.Navigate("file:///" & Replace(invoicePath, "\", "/"))
End Sub

优点：窗体内部显示PDF，64位兼容性好，支持现代PDF特性；缺点：需预先部署WebView2运行时。

方案3：利用Office内置PDF预览 #

通过插入PDF对象到工作表，再在窗体中嵌入工作表控件显示：

Sub InsertPDFAsObject(invoicePath As String)
    ' 在Sheet1中插入PDF对象，可将Sheet1嵌入窗体的Frame控件中显示
    Sheet1.OLEObjects.Add(Filename:=invoicePath, Link:=False, DisplayAsIcon:=False).Select
End Sub

优点：无需额外控件；缺点：依赖工作表，嵌入窗体的操作较繁琐，体验不如专用控件。

方案4：第三方64位兼容PDF控件 #

选择支持64位VBA的第三方PDF ActiveX控件（如Tracker PDF-XChange Viewer的ActiveX组件），此类控件提供64位版本，可直接嵌入窗体显示PDF。需注意控件的授权与部署要求。

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