如何在VBA中自动应用单元格中的文件路径？

Sub ApplyFilePath()
    Dim filePath As String
    Dim wb As Workbook
    
    ' 获取文件路径
    filePath = Range("A1").Value
    
    ' 打开文件
    Set wb = Workbooks.Open(filePath)
    
    ' 在需要应用文件路径的地方进行操作
    ' 例如，将文件路径写入另一个单元格
    Range("B1").Value = filePath
    
    ' 关闭文件
    wb.Close SaveChanges:=False
End Sub