HostExplorer 15.0.7 VBA宏截图至Word报错求助

核心错误修复点 #

1. DLL声明错误 #

你重复声明了同一个WD_ConnectPS函数，这会直接导致编译错误。同时要匹配Office的位数（32/64位）调整声明格式：

• 32位Office：删除重复声明行，保留Long类型参数
• 64位Office：添加PtrSafe关键字，将hInstance改为LongPtr类型以适配64位地址空间

正确声明示例（假设DLL在HostExplorer默认安装目录）：

' 64位Office版本
Private Declare PtrSafe Function WD_ConnectPS Lib "C:\Program Files (x86)\Micro Focus\HostExplorer 15\ehlapi32.dll" (ByVal hInstance As LongPtr, ByVal ShortName As String) As Integer

' 32位Office版本
' Private Declare Function WD_ConnectPS Lib "C:\Program Files\Micro Focus\HostExplorer 15\ehlapi32.dll" (ByVal hInstance As Long, ByVal ShortName As String) As Integer

2. HostExplorer命令发送错误 #

你调用的对象和命令格式存在问题：

• 正确的会话对象应为HE.CurrentHost或HE.ActiveSessions.Item(1)（指定第一个会话）
• 使用Host.Runcmd执行HostExplorer内置截图命令更可靠，@A@P是官方定义的「将屏幕内容复制到剪贴板」的内置命令（对应菜单的"Print Screen to Clipboard"）
• 发送命令前必须激活HostExplorer会话，确保截图目标窗口正确

3. Word代码逻辑错误 #

• FileNewDefault和Documents.Add重复创建文档，保留一个即可
• Visible=True需要添加空格（Visible = True），否则会触发语法错误
• 粘贴前需添加短暂延迟，确保剪贴板已完成截图内容写入
• SaveAs必须填写实际有效的文件路径（如"C:\Temp\HostScreen.docx"）

修正后的完整代码 #

' 根据Office位数选择以下其中一个声明，删除另一个
' 64位Office
Private Declare PtrSafe Function WD_ConnectPS Lib "C:\Program Files (x86)\Micro Focus\HostExplorer 15\ehlapi32.dll" (ByVal hInstance As LongPtr, ByVal ShortName As String) As Integer
' 32位Office
' Private Declare Function WD_ConnectPS Lib "C:\Program Files\Micro Focus\HostExplorer 15\ehlapi32.dll" (ByVal hInstance As Long, ByVal ShortName As String) As Integer

Sub Main()
    Dim HE As Object
    Dim Host As Object
    Dim appWD As Object
    
    ' 初始化HostExplorer对象
    Set HE = CreateObject("HostExplorer")
    Set Host = HE.CurrentHost
    
    ' 激活HostExplorer会话，确保截图目标窗口处于前台
    HE.Activate
    ' 执行内置命令将屏幕内容复制到剪贴板
    Host.Runcmd "@A@P"
    
    ' 延迟1秒，确保剪贴板内容写入完成
    Application.Wait Now + TimeValue("00:00:01")
    
    ' 初始化Word对象
    Set appWD = CreateObject("Word.Application")
    appWD.Visible = True
    ' 创建新文档
    appWD.Documents.Add
    
    ' 粘贴剪贴板中的截图
    appWD.Selection.Paste
    
    ' 保存文档（替换为你的实际文件路径）
    appWD.ActiveDocument.SaveAs "C:\Temp\MainframeScreen.docx"
    
    ' 关闭并退出Word
    appWD.ActiveDocument.Close
    appWD.Quit
    
    ' 释放对象资源
    Set appWD = Nothing
    Set Host = Nothing
    Set HE = Nothing
End Sub

额外说明 #

• 如果不需要使用EHLAPI的高级功能，可直接删除DLL声明部分，仅保留Host.Runcmd "@A@P"即可完成截图到剪贴板的操作
• 若@A@P无效，可尝试替换为HostExplorer文档中提到的@P@t命令，调用格式改为Host.SendKeys "@P@t"

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