VBA技术问询：如何在用户窗体文本框中显示所选PPM文件路径

云原生阿岚

2026-5-27

解决用户窗体文本框双击选择PPM文件并显示路径的问题

很简单，你只需要给文本框的双击事件绑定代码，同时调整现有代码里的路径赋值逻辑就行，我给你一步步说：

绑定双击事件：打开你的用户窗体设计界面，双击那个目标文本框，会自动跳转到该文本框的DblClick事件代码窗口。
替换/完善代码：把下面的代码粘贴进去（如果你的文本框不是TextBox1，记得改成你实际的控件名称）：

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim fileFilter As String
    Dim filename As Variant ' 用Variant是因为用户取消选择时，GetOpenFileName会返回False，String类型会报错
    
    ' 设置文件筛选规则，优先显示PPM文件
    fileFilter = "PPM(*.ppm), *.ppm, All File(*.*), *.*"
    ' 弹出文件选择对话框，提示用户选择输入文件
    filename = Application.GetOpenFileName(fileFilter, , "Select your Input File")
    
    ' 判断用户是否真的选择了文件（没点取消）
    If filename <> False Then
        ' 直接把完整文件路径赋值给文本框，不要用Dir()——它只返回文件名
        Me.TextBox1.Value = filename
    End If
End Sub

关键细节说明：

为什么用Variant类型存filename？因为如果用户在对话框里点击「取消」，Application.GetOpenFileName会返回布尔值False，如果用String类型接收会直接报错，Variant能兼容两种返回值。
你原来的myFileName=Dir(filename)是多余的，Dir()只会提取文件名，而我们需要的是完整文件路径，所以直接把filename赋值给文本框就好。
一定要在DblClick事件里写这段代码，这样双击文本框才会触发文件选择的动作。