如何用VBA从Excel单元格获取文件路径并动态赋值给变量

你的问题出在直接将单元格的文本值赋值给Workbook类型变量——s1是Workbook对象，必须通过Workbooks.Open()方法传入路径字符串来创建并返回这个对象，而不是直接赋值单元格值。

正确实现代码 #

Sub OpenWorkbookFromCellPath()
    ' 声明变量：存储路径的字符串，以及Workbook对象
    Dim filePath As String
    Dim s1 As Workbook
    
    ' 从Sheet1的C3单元格读取文件路径
    filePath = ThisWorkbook.Worksheets("Sheet1").Range("C3").Value
    
    ' 检查路径是否为空，避免报错
    If Trim(filePath) <> "" Then
        ' 用读取到的路径打开工作簿，赋值给s1
        Set s1 = Workbooks.Open(Filename:=filePath)
    Else
        MsgBox "C3单元格未填写有效文件路径！"
    End If
End Sub

关键说明 #

• ThisWorkbook指当前运行宏的工作簿，确保读取的是目标工作簿内的Sheet1
• 先将单元格值存入字符串变量filePath，再传入Workbooks.Open，符合VBA对象赋值逻辑
• 增加空值检查可避免因单元格为空导致的运行时错误

额外优化（可选） #

如果需要处理路径无效或文件无法打开的情况，可添加错误捕获：

Sub OpenWorkbookWithErrorHandling()
    Dim filePath As String
    Dim s1 As Workbook
    
    filePath = ThisWorkbook.Worksheets("Sheet1").Range("C3").Value
    
    If Trim(filePath) <> "" Then
        On Error Resume Next ' 开启错误捕获
        Set s1 = Workbooks.Open(Filename:=filePath)
        On Error GoTo 0 ' 关闭错误捕获
        
        If s1 Is Nothing Then
            MsgBox "无法打开文件：路径无效或文件不存在！"
        End If
    Else
        MsgBox "C3单元格未填写有效文件路径！"
    End If
End Sub

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