能否通过VBA访问SharePoint实现Excel数据交互？

完全可以实现你的需求，你之前用FollowHyperlink的问题在于它会调用默认浏览器打开文件，而非通过Excel应用直接加载，导致后续宏无法操作。下面给两种靠谱的解决方案：

方案1：用本地映射的SharePoint驱动器路径 #

很多企业会把SharePoint文档库映射成本地网络驱动器（比如Z:盘），这种情况下你的原有代码几乎不用改，直接把路径换成映射后的驱动器路径即可：

Sub CopyDataToSPFile()
    Dim targetWB As Workbook
    Dim sourceWS As Worksheet
    Dim targetWS As Worksheet
    
    ' 设定当前工作簿里的数据源工作表
    Set sourceWS = ThisWorkbook.Sheets("数据源")
    ' 替换成你映射后的SharePoint文件路径
    Set targetWB = Workbooks.Open("Z:\市场部文档\月度报表汇总.xlsx")
    ' 设定目标文件里的接收工作表
    Set targetWS = targetWB.Sheets("数据接收页")
    
    ' 复制粘贴数据（示例：复制源表A1:C50到目标表A1起始位置，带格式）
    sourceWS.Range("A1:C50").Copy
    targetWS.Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    
    ' 保存并关闭目标文件
    targetWB.Save
    targetWB.Close
    
    ' 清除剪贴板，避免弹窗
    Application.CutCopyMode = False
End Sub

方案2：直接用SharePoint文件的原始URL（无需映射驱动器） #

如果没法映射驱动器，也可以直接用文件的SharePoint原始URL打开，注意要去掉浏览器链接里的?web=1参数，用直接指向文件的地址：

Sub CopyDataToSPFileDirectURL()
    Dim targetWB As Workbook
    Dim sourceWS As Worksheet
    Dim targetWS As Worksheet
    
    Set sourceWS = ThisWorkbook.Sheets("数据源")
    ' 替换成你的SharePoint文件原始URL，不要带?web=1
    Dim spFileURL As String
    spFileURL = "https://yourcompany.sharepoint.com/sites/销售部/销售数据/季度业绩表.xlsx"
    
    ' 直接通过Workbooks.Open加载文件
    Set targetWB = Workbooks.Open(spFileURL)
    Set targetWS = targetWB.Sheets("数据汇总")
    
    ' 执行复制粘贴操作
    sourceWS.Range("A1:D100").Copy
    targetWS.Range("A1").PasteSpecial Paste:=xlPasteValues
    
    targetWB.Save
    targetWB.Close
    Application.CutCopyMode = False
End Sub

重要提示 #

• 确保你有目标SharePoint文件的编辑权限，否则会只读打开，无法保存修改
• 复制SharePoint文件链接时，右键文件→复制链接→选择组织内权限，然后手动删除末尾的?web=1参数，得到原始文件URL
• 首次运行前可以手动在Excel里打开一次目标文件，完成登录授权，避免VBA运行时弹出权限窗口
• 绝对不要用FollowHyperlink来操作Excel文件，它是用来打开网页或触发系统默认程序的，不适合宏内的文件操作

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