Question

有人可以帮助解释为什么在尝试将文件保存或复制到属于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

我尝试了很多东西，比如使用不同的目录，使用变量来转动斜杠。似乎没有什么工作，即使完全相同的代码在不同的电子表格上多次工作

谢谢

Answer 1

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

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

使用VBA连接到Sharepoint文件系统

1 个答案: