使用 VBA 在 SharePoint 中创建新文件夹

如何解决使用 VBA 在 SharePoint 中创建新文件夹

我编写了以下简单代码来检查文件夹位置是否存在，如果不存在，则创建文件夹并保存 xlsm 工作簿的副本。

当文件位置位于服务器上的驱动器中时，代码工作正常，但我现在试图让它在 SharePoint 中正常工作，但没有运气。

我明白

运行时错误“52”：错误的文件名或编号

这是在 If Len(Dir(SaveFolder & cobMonth,vbDirectory) 行

如果我删除 If(Len(Dir,MkDir 和 ChDir 行代码，则 ThisWorkbook.SaveAs 可以工作，但前提是我事先手动创建了文件夹。

非常感谢您的建议！

Sub NEW_DAY_SAVE()
    Application.ScreenUpdating = False
    
    ActiveWorkbook.Save
    
    SaveFolder = Sheets("STATIC").Range("B3").Value 'cell value = https://mysite.sharepoint.com/sites/mysite/Shared Documents/Operations/DPS/Acc1/Rec/Breaks/
    cobMonth = Sheets("STATIC").Range("B4").Value 'cell value = mm-yyyy breaks/
    cobDate = Sheets("STATIC").Range("B5").Value 'cell value = dd-mm-yy breaks
        
    If Len(Dir(SaveFolder & cobMonth,vbDirectory)) = 0 Then
        MkDir SaveFolder & cobMonth
    End If

    ChDir SaveFolder & cobMonth
    ThisWorkbook.SaveAs Filename:=SaveFolder & cobMonth & cobDate & ".xlsm",FileFormat:=xlOpenXMLWorkbookMacroEnabled

    Application.ScreenUpdating = True
End Sub