VBA如何嵌入单元格变量构建动态链接打开SharePoint文件

核心思路是拆分固定路径段和动态文件名段，通过读取单元格取值完成路径拼接，后续仅修改单元格内容即可切换目标文件，无需反复调整代码。

可直接复用的代码 #

Sub open_file_demo()
    Dim pathname As String
    Dim targetFileName As String
    
    ' 读取当前工作表A1存储的目标文件名，例如此处填06.xlsx即可匹配6月文件
    targetFileName = ThisWorkbook.ActiveSheet.Range("A1").Value
    
    ' 拼接完整SharePoint访问路径
    ' 注意：固定路径末尾必须保留斜杠/，否则会出现路径拼接错误
    pathname = "https://sharepoint.com/sites/XXX/XXX/XXX/XXX/2022/" & targetFileName & "?web=1"
    
    ' 打开目标文件
    Workbooks.Open pathname
End Sub

使用说明 #

• 日常使用只需要在当前工作表A1单元格填入对应月份的完整文件名，必须带.xlsx后缀，例如06.xlsx、07.xlsx，换月时修改A1值即可
• 如果后续年份也需要动态调整，可以用相同逻辑把路径里的年份段替换成对应单元格的取值，调整拼接规则即可
• 如果想要固定读取某张指定工作表的配置值，避免切换工作表后读错单元格，可以把代码里的ActiveSheet替换为指定工作表名，例如写为Sheets("配置页").Range("A1").Value
• 如果运行时报文件不存在错误，优先检查两个点：一是A1填写的文件名是否准确，二是固定路径段是否和你实际的SharePoint站点目录层级一致

小技巧：如果需要自动生成对应月份的文件名，也可以直接用VBA的日期函数取值拼接，连A1单元格手动修改的步骤都能省掉。

内容的提问来源于stack exchange，提问作者Christoffer Tuxen Rosing