如何通过VBA实现从Java客户信息窗口复制数据至用户窗体？

我太懂你的困扰了——SendKeys在面对Java窗口时确实容易掉链子，毕竟Java的Swing/SWT控件和Windows原生控件的消息处理逻辑不一样，模拟的按键操作经常不被识别。下面给你几个靠谱的解决方案：

1. 改用Windows API直接读取控件内容（替代SendKeys模拟复制） #

SendKeys本质是模拟键盘输入，可靠性极低，尤其是非原生窗口。我们可以通过Windows API直接定位Java窗口的控件，跳过复制粘贴步骤，直接读取文本内容。

首先在VBA模块里声明必要的API函数：

Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As LongPtr, ByVal hWndChildAfter As LongPtr, ByVal lpszClass As String, ByVal lpszWindow As String) As LongPtr
Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As String) As LongPtr

Const WM_GETTEXT = &HD
Const WM_GETTEXTLENGTH = &HE

然后写一个函数读取指定控件的文本：

Function GetJavaControlText(windowTitle As String, controlClass As String) As String
    Dim hwndWindow As LongPtr
    Dim hwndControl As LongPtr
    Dim textLength As Long
    Dim buffer As String
    
    ' 找到Java窗口的句柄（替换成你的窗口实际标题）
    hwndWindow = FindWindow(vbNullString, windowTitle)
    If hwndWindow = 0 Then
        GetJavaControlText = "窗口未找到"
        Exit Function
    End If
    
    ' 找到目标控件（需要用Spy++查看控件的类名）
    hwndControl = FindWindowEx(hwndWindow, 0, controlClass, vbNullString)
    If hwndControl = 0 Then
        GetJavaControlText = "控件未找到"
        Exit Function
    End If
    
    ' 获取文本长度
    textLength = SendMessage(hwndControl, WM_GETTEXTLENGTH, 0, vbNullString)
    buffer = String(textLength + 1, vbNullChar)
    
    ' 读取文本内容
    SendMessage hwndControl, WM_GETTEXT, textLength + 1, buffer
    GetJavaControlText = Left(buffer, textLength)
End Function

使用时直接调用：

text_box1.Value = GetJavaControlText("客户信息窗口", "SunAwtCanvas") ' 替换成实际的控件类名

注意：你需要用Windows自带的Spy++工具（Visual Studio工具集里有，也可以单独下载）查看Java窗口和控件的类名、句柄，这样才能精准定位目标字段。

2. 使用Windows UI自动化（UIA）框架 #

UIA是微软官方的跨UI框架自动化方案，对Java窗口的支持比API更友好，不用纠结控件类名，直接按元素名称或类型查找。

步骤如下：

1. 在VBA编辑器里，点击「工具」→「引用」，勾选「Microsoft UI Automation 6.0」（版本号可能因系统而异）。
2. 编写代码遍历元素读取文本：

Function GetUIAElementText(windowTitle As String, elementName As String) As String
    Dim uia As CUIAutomation
    Dim rootElement As IUIAutomationElement
    Dim condition As IUIAutomationCondition
    Dim targetElement As IUIAutomationElement
    Dim textPattern As IUIAutomationTextPattern
    
    Set uia = New CUIAutomation
    ' 获取桌面根元素
    Set rootElement = uia.GetRootElement
    
    ' 按窗口标题查找目标窗口
    Set condition = uia.CreatePropertyCondition(UIA_NamePropertyId, windowTitle)
    Set targetElement = rootElement.FindFirst(TreeScope_Children, condition)
    
    If targetElement Is Nothing Then
        GetUIAElementText = "窗口未找到"
        Exit Function
    End If
    
    ' 按元素名称查找目标字段（比如"姓名"对应的输入框）
    Set condition = uia.CreatePropertyCondition(UIA_NamePropertyId, elementName)
    Set targetElement = targetElement.FindFirst(TreeScope_Subtree, condition)
    
    If targetElement Is Nothing Then
        GetUIAElementText = "元素未找到"
        Exit Function
    End If
    
    ' 获取文本内容
    Set textPattern = targetElement.GetCurrentPattern(UIA_TextPatternId)
    GetUIAElementText = textPattern.DocumentRange.GetText(-1)
End Function

调用示例：

text_box1.Value = GetUIAElementText("客户信息窗口", "姓名")

3. 备选方案：用AutoHotkey辅助 #

如果上面的VBA方案还是有问题，可以试试AutoHotkey（AHK）——它对Java窗口的模拟操作支持比VBA好太多。你可以写一个简单的AHK脚本读取Java窗口的字段内容，再让VBA调用这个脚本获取结果。

比如AHK脚本GetJavaData.ahk：

; 激活Java窗口
WinActivate, 客户信息窗口
; 读取姓名字段的文本（替换成实际控件标识）
ControlGetText, nameText, SunAwtCanvas1, 客户信息窗口
; 输出结果到控制台，供VBA读取
FileAppend, %nameText%, *
ExitApp

然后在VBA里调用这个脚本并读取结果：

Function GetAHKData() As String
    Dim shell As Object
    Dim output As String
    
    Set shell = CreateObject("WScript.Shell")
    output = shell.Exec("C:\Path\To\GetJavaData.ahk").StdOut.ReadAll()
    GetAHKData = output
End Function

调试小技巧 #

• 用Spy++查看Java窗口的控件结构，确认控件的类名、名称等属性；
• 测试时尽量确保Java窗口处于激活状态，避免后台操作导致的失败；
• 如果控件是动态生成的，可能需要遍历子控件来找到目标元素。

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