这种权限受限、没有所有权的legacy系统真的是自动化路上的拦路虎，我之前帮客户处理过类似的20+年历史的ERP系统自动化，给你几个亲测有效的思路：

1. 用Windows API替代SendKeys，精准定位控件操作 #

SendKeys最大的问题是依赖窗口焦点和操作顺序，稍有偏差就卡壳。换成Windows API直接定位控件、发送消息，稳定性会提升一大截：

• 先用FindWindow找到数据库主窗口的句柄，再用FindWindowEx逐层定位到搜索输入框的控件句柄
• 用SendMessage给输入框控件发送WM_SETTEXT消息填充搜索地址，再发送BM_CLICK触发搜索按钮
• 给你一段简化的VBA示例代码：

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 hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr
Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr

Const WM_SETTEXT = &HC
Const BM_CLICK = &HF5

Sub APISearch()
    Dim mainWnd As LongPtr, searchBox As LongPtr, searchBtn As LongPtr
    ' 替换成你的数据库窗口标题和控件类名/标题
    mainWnd = FindWindow(vbNullString, "老数据库系统")
    If mainWnd = 0 Then Exit Sub
    
    ' 逐层定位搜索输入框（需要用Spy++工具查控件信息）
    searchBox = FindWindowEx(mainWnd, 0, "Edit", "搜索地址输入框")
    If searchBox <> 0 Then
        ' 填充搜索地址
        SendMessage searchBox, WM_SETTEXT, 0, ByVal "目标地址文本"
    End If
    
    ' 定位并点击搜索按钮
    searchBtn = FindWindowEx(mainWnd, 0, "Button", "搜索")
    If searchBtn <> 0 Then
        SendMessage searchBtn, BM_CLICK, 0, 0
    End If
End Sub

注：需要用Windows自带的Spy++工具（VS套件里包含）查看窗口和控件的类名、标题，这个步骤是精准定位的核心

2. 用OCR提取屏幕文本，绕过输入框限制 #

如果实在找不到控件句柄，试试用Windows内置的OCR功能提取屏幕区域的文本，直接在提取结果里搜索目标内容：

• VBA可以通过调用Windows.Media.Ocr的COM接口实现OCR，不用额外安装第三方工具
• 先截图目标屏幕区域（用BitBlt API），再传给OCR引擎分析，最后遍历结果文本匹配关键词
• 这个方法适合那些控件被加密或者无法直接访问的老系统，缺点是速度比控件操作稍慢，但胜在通用性强

3. 挖掘隐藏的后台访问接口 #

很多老数据库系统哪怕没开放权限，可能自带了ODBC驱动、COM组件或者未公开的API：

• 打开Windows的「ODBC数据源管理器」，看看有没有和这个数据库相关的系统DSN，尝试用ADODB.Connection直接连接

Sub DirectDBQuery()
    Dim conn As Object, rs As Object
    Set conn = CreateObject("ADODB.Connection")
    ' 尝试用可能的连接字符串，比如老系统常用的DBF、Access或者SQL Server驱动
    conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Path\To\HiddenDB.mdb;"
    Set rs = conn.Execute("SELECT * FROM 屏幕数据表 WHERE 地址字段='目标地址'")
    ' 处理查询结果
    Do While Not rs.EOF
        Debug.Print rs("屏幕内容字段")
        rs.MoveNext
    Loop
    rs.Close: conn.Close
End Sub

• 如果找不到ODBC驱动，检查系统是否安装了和数据库相关的COM组件（用VBA的「工具-引用」菜单查找可疑的库），直接调用组件方法查询数据

4. 优化现有SendKeys方案（应急过渡用） #

如果上面的方法都暂时没法实现，先优化SendKeys的稳定性：

• 每次操作前用AppActivate "窗口标题"确保目标窗口激活
• 加入延迟等待控件加载，比如Sleep 1000（需要提前声明Sleep API），避免控件还没就绪就发送按键
• 用SendKeys "{TAB}"切换控件，代替依赖鼠标位置的点击操作，减少位置偏移导致的出错

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