如何向Access表的打开字段发送击键以批量修复丢失的超链接地址

Access 超链接字段底层是按显示文本#链接地址#子地址的格式存储的，你遇到的是导入Excel后仅保留了显示文本段，地址段为空的问题，不需要用模拟击键的方式处理，直接操作字段内容效率更高、稳定性更好。

方案1：更新查询修复（推荐） #

这是最稳妥的方案，不需要模拟按键，不会因为焦点漂移导致操作失败：

• 打开数据库后按Alt + F11调出VBA编辑器，右键点击当前数据库名称，选择「插入」-「模块」
• 在模块中粘贴如下自定义函数：

Function GetDisplayText(hlField As Variant) As String
    If IsNull(hlField) Then Exit Function
    ' 按#分割超链接内容，取第一段即显示文本
    GetDisplayText = Split(Nz(hlField, ""), "#")(0)
End Function

• 保存模块后回到Access主界面，新建更新查询，添加tbl_Tool_Number表
• 选择View PDF作为要更新的字段，在「更新到」栏输入：
  GetDisplayText([View PDF]) & "#" & GetDisplayText([View PDF]) & "#"
• 运行查询即可完成所有记录的批量修复，执行前建议先备份数据库避免数据异常。

方案2：模拟击键实现（仅作备选） #

如果必须复刻手动操作的逻辑，可以使用VBA的SendKeys方法实现自动按键，代码如下：

Sub FixHyperlinksBySendKeys()
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("tbl_Tool_Number")
    ' 打开表的数据表视图
    DoCmd.OpenTable "tbl_Tool_Number", acViewNormal
    DoCmd.GoToRecord , , acFirst
    
    Do While Not rs.EOF
        DoCmd.GoToControl "View PDF"
        SendKeys "+{F10}" ' 模拟右键点击，比手动右键更稳定
        SendKeys "%h"      ' Alt+H
        SendKeys "%t"      ' Alt+T
        SendKeys "^c"      ' Ctrl+C复制显示文本
        SendKeys "%e"      ' Alt+E定位到地址栏
        SendKeys "^v"      ' Ctrl+V粘贴地址
        SendKeys "{ENTER}{ENTER}" ' 两次回车确认
        rs.MoveNext
        DoCmd.GoToRecord , , acNext
    Loop
    
    rs.Close
    Set rs = Nothing
    MsgBox "全部记录修复完成"
End Sub

注意：运行模拟击键脚本时不要操作电脑，不要切换窗口，避免按键发送到其他程序导致操作异常。

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