Excel 如何使用Dir和Mkdir以及引用Sharepoint？

我有Excel VBA代码，可以将数据发送到word模板（保存docx和pdf文件）。 然后，该代码通过outlook将pdf作为电子邮件发送

这一切在我的本地驱动器上都能完美运行，但打开、检查文件夹和文件并将其保存到sharepoint却让我大吃一惊。我花了几个小时搜索和试验…似乎有一些冲突的端口（主要是在其他论坛上）

我当然不是唯一一个人在这里

在我的本地驱动器上工作的代码是：

thefilepath = Application.ActiveWorkbook.Path
Set wrdDoc = wrdApp.Documents.Open(thefilepath & "\Letter Template.docx", ReadOnly:=True)
strFolderPath = thefilepath & "\Results"
CheckDir (strFolderPath)


<Run code>

wrdDoc.SaveAs thefilepath & "\Results\" & thefilename & ".doc"
wrdDoc.ExportAsFixedFormat OutputFileName:=thefilepath & "\Results\" & thefilename & ".pdf", ExportFormat:=wdExportFormatPDF

Function CheckDir(Path As String)
If Dir(Path, vbDirectory) = "" Then
MkDir (Path)
End If
End Function

---

希望能就sharepoint的文件和文件夹管理进行一些讨论。

\\pplanners.sharepoint.com\sites\PP\Shared Documents\PP WIP\a宏

可能有效您需要验证是否启用了WEBDEV（服务器）。和客户端计算机中的web客户端服务以网络路径访问SharePoint。正如提到的@TimWilliams一样，您使用path dir（\）。如果不起作用的话，它就不会起作用。bcz需要身份验证，我建议使用SharePoint代码并上传<代码>\\pplanners.sharepoint.com\sites\PP\Shared Documents\PP-WIP\a宏可能工作您需要验证是否启用了WEBDEV（服务器）。和客户端计算机中的web客户端服务以网络路径访问SharePoint。正如提到的@TimWilliams一样，您使用path dir（\）。如果不起作用的话，它就不会起作用。bcz需要身份验证，我建议使用SharePoint代码并上传。

tr = ThisWorkbook.Path
tr2 = Replace(Replace(tr, "http:", ""), "/", "\")
tr3 = Replace(tr2, " ", "%20")