使用 VBA 连接到 Sharepoint 文件系统答案

【问题标题】：Connecting to Sharepoint File System using VBA使用 VBA 连接到 Sharepoint 文件系统
【发布时间】：2018-02-16 21:25:17
【问题描述】：

有人可以帮助解释为什么在尝试将文件保存或复制到作为 SharePoint 网站一部分的文件结构时，代码似乎只有在我每次登录网络时都使用 SaveAs 代码时才有效

该代码也适用于其他 Excel 电子表格

 If Dir("//teamspace.healthcare.siemens.com/content/90002613/Documents/" & Filename & "", vbDirectory) = "" Then

       MkDir ("//teamspace.healthcare.siemens.com/content/90002613/Documents/" & Filename & "")

       Else

我需要在登录时运行一次的代码是

With ActiveWorkbook

            Application.ActiveWorkbook.SaveAs Filename:="https://teamspace.healthcare.siemens.com/content/90002613/Documents/Budget_Presentations/SavedFileName.xlsm"
            Application.ActiveWorkbook.Close False

           End With

我尝试了多种方法，例如使用不同的目录、转斜线、使用变量。似乎没有任何效果，即使完全相同的代码在不同的电子表格上多次运行

谢谢

【问题讨论】：

标签： vba excel sharepoint

【解决方案1】：

如果您要将其保存为启用宏的工作簿，则需要明确告诉 SaveAs 命令。像这样：

Application.ActiveWorkbook.SaveAs Filename:="https://teamspace.healthcare.siemens.com/content/90002613/Documents/Budget_Presentations/SavedFileName.xlsm", XlFileFormat:=xlOpenXMLWorkbookMacroEnabled

【讨论】：

嗨，brax，也许我的解释很好。我实际上并不想保存 excel 文件，它只是其他代码不会连接到共享点站点，除非我包含该代码。我正在尝试检查是否已经存在目录，然后将文件复制到其中，复制文件代码和目录检查代码在我的本地工作正常，但是一旦我尝试将其连接到共享点，它将无法工作。除非我先将随机文件保存到共享点，否则它似乎会建立连接，直到我注销并重新登录，然后我必须再次运行保存文件代码才能复制文件