Excel VBA用户窗体初始化变量未找到：超链接打开文本文件异常

核心问题 #

当执行Set frm = New UserForm1时，UserForm的Initialize事件会立即触发，此时还未给公共变量filePath赋值，导致窗体初始化时读取的路径为空，进而出现“路径未找到”错误。

方案1：将文件加载逻辑移至独立方法（推荐） #

通过把文件读取逻辑从Initialize事件中剥离，改为手动调用的公共方法，确保路径赋值完成后再加载文件。

修改工作表代码 #

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim fileName As String
    Dim filePath As String
    Dim frm As UserForm1

    ' 提取并处理文件名
    fileName = Mid(Target.Address, InStrRev(Target.Address, "/") + 1)
    If InStr(fileName, ".") > 0 Then
        fileName = Left(fileName, InStrRev(fileName, ".") - 1)
    End If
    filePath = ThisWorkbook.Path & "\" & fileName & ".txt"
    Debug.Print "构造的文件路径: " & filePath

    ' 创建窗体实例、赋值路径、加载内容并显示
    Set frm = New UserForm1
    frm.filePath = filePath
    frm.LoadFileContent
    frm.Show
End Sub

修改UserForm1代码 #

Public filePath As String

' 仅保留窗体UI初始化逻辑（无文件加载）
Private Sub UserForm_Initialize()
    ' 可在此设置控件默认样式等，不处理文件操作
End Sub

' 新增公共方法，用于加载文件内容
Public Sub LoadFileContent()
    Dim fileContent As String
    Dim fileNum As Integer
    Debug.Print "加载时的文件路径: " & filePath

    If filePath <> "" Then
        On Error GoTo ErrorHandler
        fileNum = FreeFile
        Open filePath For Input As #fileNum
        fileContent = Input$(LOF(fileNum), #fileNum)
        Close #fileNum
        Me.TextBox1.Text = fileContent
    Else
        MsgBox "文件路径未指定。"
        Unload Me
    End If
    Exit Sub

ErrorHandler:
    MsgBox "加载文件出错: " & Err.Description
    Unload Me
End Sub

Private Sub btnSave_Click()
    Dim fileNum As Integer
    Dim fileContent As String

    fileContent = Me.TextBox1.Text
    On Error GoTo ErrorHandler
    fileNum = FreeFile
    Open filePath For Output As fileNum
    Print #fileNum, fileContent
    Close fileNum

    MsgBox "文件保存成功！"
    Unload Me
    Exit Sub

ErrorHandler:
    MsgBox "保存文件出错: " & Err.Description
End Sub

Private Sub btnCancel_Click()
    Unload Me
End Sub

方案2：使用默认窗体实例（简单但灵活性差） #

利用Excel默认窗体实例的特性（声明时不会触发Initialize事件），先赋值路径再显示窗体：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim fileName As String
    Dim filePath As String

    ' 提取文件名逻辑不变
    fileName = Mid(Target.Address, InStrRev(Target.Address, "/") + 1)
    If InStr(fileName, ".") > 0 Then
        fileName = Left(fileName, InStrRev(fileName, ".") - 1)
    End If
    filePath = ThisWorkbook.Path & "\" & fileName & ".txt"

    ' 直接使用默认实例赋值并显示
    UserForm1.filePath = filePath
    UserForm1.Show
End Sub

注意：默认实例为全局对象，多次打开可能残留之前的状态，复杂场景不推荐使用。

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