使用VBA将Excel工作表和PDF文件保存至SharePoint的问题咨询

实现说明 #

保存文件到SharePoint的逻辑和本地保存高度相似，仅需要调整目标路径格式即可，无需修改现有导出PDF的核心逻辑。

路径格式转换规则 #

先把SharePoint的网页端路径转成VBA可识别的格式：

• 打开SharePoint目标文件夹，复制浏览器地址栏的链接，比如地址为https://企业域名.sharepoint.com/sites/项目名/公共文档/PDF存档
• 把开头的https://替换为\\，所有正斜杠/替换为反斜杠\，最终得到路径\\企业域名.sharepoint.com\sites\项目名\公共文档\PDF存档\，末尾记得加反斜杠避免拼接文件名出错。

调整后完整代码 #

原有本地保存的逻辑完全保留，仅新增一段SharePoint导出逻辑即可，代码如下：

Sheets("Example").Select

Dim varResult As Variant
Dim ActBook As Workbook
' 此处替换为你自己转换后的SharePoint固定路径
Const SP_TARGET_PATH As String = "\\xxx.sharepoint.com\sites\你的站点\目标文件夹\"
Dim spPdfName As String

' 原有本地保存逻辑不变
varResult = Application.GetSaveAsFilename(FileFilter:= _
            "PDF (*.pdf), *.pdf", Title:="Save File", _
             InitialFileName:="Example " & UserForm2.TextBoxExampleNumber.Value)
             
' 文档关键词赋值
ActiveWorkbook.BuiltinDocumentProperties("Keywords") = UserForm2.TextBoxExampleNumber.Value & " " & UserForm2.TextBoxDate.Value & " " & UserForm2.TextBoxUsername.Value & " XXX" & " YYY" & " ZZZ"

' 仅当用户没有取消本地保存时执行导出
If varResult <> False Then
    ' 导出到用户选择的本地路径
    ActiveSheet.ExportAsFixedFormat Filename:=varResult, Type:=xlTypePDF, OpenAfterPublish:=True, _
    IncludeDocProperties:=True
    
    ' 新增：导出同一份PDF到SharePoint固定路径
    spPdfName = SP_TARGET_PATH & "Example_" & UserForm2.TextBoxExampleNumber.Value & "_" & UserForm2.TextBoxDate.Value & ".pdf"
    ActiveSheet.ExportAsFixedFormat Filename:=spPdfName, Type:=xlTypePDF, OpenAfterPublish:=False, _
    IncludeDocProperties:=True
End If

注意事项 #

• 确保你的Windows账号已经有对应SharePoint文件夹的写入权限，可先手动拖拽本地文件到SharePoint文件夹测试上传是否正常
• 如遇路径报错，可尝试直接用SharePoint的完整https链接作为路径，部分Office版本支持直接识别https格式的保存路径
• 文件名建议增加日期、编号等标识，避免SharePoint里重名文件被覆盖

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