Listbox双击触发FollowHyperlink失效：如何拼接请求ID至超链接

问题分析 #

你的代码逻辑本身没问题，但双击无响应大概率是以下原因导致：

• 未选中行时ListIndex为-1，拼接网址时出错，但错误处理未给出提示
• 多选模式下双击未选中行，ListIndex未更新
• 双击的是列标题而非列表数据项
• 第3列（索引2）无有效请求编号，或拼接后的网址无法访问

修正后的代码 #

添加行选中检查、数据有效性验证和错误提示，方便排查问题：

Private Sub tableau_DbClick(ByVal Cancel As msforms.ReturnBoolean)
    On Error GoTo errhandler
    
    ' 检查是否选中有效行
    If tableau.ListIndex = -1 Then
        MsgBox "请选中一行数据后再双击"
        Exit Sub
    End If
    
    ' 检查请求编号是否为空
    Dim requestId As String
    requestId = Trim(tableau.List(tableau.ListIndex, 2))
    If requestId = "" Then
        MsgBox "当前行无有效请求编号"
        Exit Sub
    End If
    
    ' 拼接完整网址
    Dim fullUrl As String
    fullUrl = "https://infogeo3.vsj.ca/io/Ionis/Requete2/Edit?requete_id=" & requestId
    
    ' 调试用：输出网址到VBA立即窗口，方便验证格式
    Debug.Print fullUrl
    
    ' 跳转网页
    Application.FollowHyperlink fullUrl
    Exit Sub
    
errhandler:
    MsgBox "跳转失败：" & Err.Description & vbCrLf & "错误代码：" & Err.Number
End Sub

额外排查步骤 #

• 确认Listbox的MultiSelect属性设为fmMultiSelectSingle：多选模式下，双击未选中的行不会自动设置ListIndex，需先选中行再双击
• 确保双击的是列表数据行而非列标题：列标题的点击不会触发Listbox的DbClick事件
• 验证第3列数据有效性：在VBA立即窗口输入?tableau.List(0,2)，查看第一行第3列的请求编号是否正确
• 测试拼接后的网址：把Debug.Print输出的网址复制到浏览器，确认能正常访问

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