VBA访问SharePoint文件路径问题求助（运行时错误1004）

• 使用SharePoint完整站点路径直接访问
  放弃本地路径转换，直接在VBA中使用SharePoint站点的完整URL访问文件，示例代码：

  Dim spFullUrl As String
  spFullUrl = "https://yourcompany.sharepoint.com/sites/YourSite/Shared Documents/YourFolder/TargetFile.xlsx"
  Workbooks.Open spFullUrl
  

  注意：确保VBA编辑器已启用Microsoft SharePoint Client Components引用（工具>引用中勾选）

• 创建无个人凭据绑定的网络驱动器映射
  不要用资源管理器自动生成的含用户名的映射路径，手动创建通用WebDAV映射：

  1. 右键「此电脑」>「映射网络驱动器」
  2. 文件夹栏输入：\\yourcompany.sharepoint.com@SSL\DavWWWRoot\sites\YourSite\Shared Documents
  3. 取消「登录时重新连接」，避免绑定个人凭据
     完成后VBA可直接用映射盘符路径（如Z:\YourFolder\TargetFile.xlsx），多人统一盘符即可共用

• 动态获取基准路径替代硬编码
  如果原VBA写死了旧路径，改成基于当前工作簿的SharePoint路径动态拼接：

  Dim basePath As String
  basePath = Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, "/") - 1)
  Workbooks.Open basePath & "/TargetFile.xlsx"
  

  这种方式无需手动维护路径，适配站点结构变化

• 添加SharePoint站点到Excel受信任位置
  部分1004错误由安全限制导致，操作步骤：
  Excel>文件>选项>信任中心>信任中心设置>受信任位置>添加新位置
  输入站点完整URL（如https://yourcompany.sharepoint.com/sites/YourSite），勾选「允许此位置的子文件夹」，重启Excel后重试

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