修改VBA路径宏：将静态路径改为引用单元格J1的动态路径

没问题，我帮你把这个VBA宏改成动态读取单元格J1里的文件夹路径，这样以后你直接在Excel的J1单元格修改路径就行，不用再改宏代码了。下面是修改后的完整代码，以及关键修改点的说明：

修改后的完整VBA代码 #

Private Sub Userform_initialize()
    Application.EnableEvents = False
    
    ' 从指定工作表的J1单元格读取路径，记得把Sheet1改成你的实际工作表名称
    Dim c00 As String
    c00 = ThisWorkbook.Sheets("Sheet1").Range("J1").Value
    
    ' 检查路径末尾是否有斜杠，没有的话补上，避免拼接文件名出错
    If c00 <> "" And Right(c00, 1) <> "\" Then
        c00 = c00 & "\"
    End If
    
    ' 如果J1为空，弹窗提示并退出
    If c00 = "" Then
        MsgBox "请在单元格J1中填写有效的文件夹路径！", vbExclamation
        Application.EnableEvents = True
        Exit Sub
    End If
    
    Dim c01 As String, c02 As String
    c01 = Dir(c00 & "*.pdf")
    With CreateObject("scripting.filesystemobject")
        Do While c01 <> ""
            c02 = c02 & "|" & .GetBaseName(c00 & c01)
            c01 = Dir
        Loop
    End With
    
    With ListBox1
        .ListIndex = -1
        If c02 <> "" Then
            .List = Split(Mid(c02, 2), "|")
        Else
            .Clear ' 如果文件夹里没有PDF，清空列表框
        End If
    End With
    Application.EnableEvents = True
End Sub

Private Sub ListBox1_Click()
    ' 同样读取J1的路径
    Dim filePath As String
    filePath = ThisWorkbook.Sheets("Sheet1").Range("J1").Value
    
    ' 处理路径末尾的斜杠
    If filePath <> "" And Right(filePath, 1) <> "\" Then
        filePath = filePath & "\"
    End If
    
    Dim Filename As String
    Filename = filePath & ListBox1.Value & ".pdf"
    
    ' 检查文件是否存在，避免打开不存在的文件报错
    If Dir(Filename) <> "" Then
        ShellExecute 0, "Open", Filename, "", "", vbMaximizedFocus
    Else
        MsgBox "文件不存在：" & Filename, vbCritical
    End If
    
    ListBox1.ListIndex = -1
End Sub

关键修改点说明 #

• 动态读取路径：把原来的静态路径字符串替换成从ThisWorkbook.Sheets("Sheet1").Range("J1").Value读取，这里要注意把Sheet1改成你实际存放J1单元格的工作表名称（比如"数据 sheet"之类的）。
• 路径斜杠处理：添加了判断逻辑，确保路径末尾始终有\，这样拼接文件名的时候不会出现C:\UsersDownloadsfile.pdf这种错误路径。
• 错误预防：
  • 初始化时如果J1为空，会弹窗提示用户填写路径，避免宏报错。
  • 点击列表项时会先检查文件是否存在，防止因为路径变更或文件被删除导致的报错。
• 空列表处理：如果目标文件夹里没有PDF文件，会清空列表框，避免显示空内容。

内容的提问来源于stack exchange，提问作者Bastion futbol club