Dim openURL As String strURL = "\\xxx.sharepoint.com\teams\xxxx\Shared Documents\xxx\xxxx\" strURL = strURL & foldername & "\" fso.CreateFolder (strURL) openURL = Replace(strURL, "\", "/") ActiveWorkbook.FollowHyperlink Address:="https:" & openURL, NewWindow:=True ...
("Scripting.FileSystemObject") '如果文件夹不存在就创建 On Error Resume Next If Not (fso.Folderexists...(路径 & 文件夹名称)) Then Set folder = fso.Createfolder(路径 & 文件夹名称) MsgBox "文件夹名称 & " >文件夹创建成功...End If End Function --- 使用方法: Sub a() Call 创建文件夹("...
("Scripting.FileSystemObject") '如果文件夹不存在就创建 On Error Resume Next If Not (fso.Folderexists...(路径 & 文件夹名称)) Then Set folder = fso.Createfolder(路径 & 文件夹名称) MsgBox "文件夹名称 & " >文件夹创建成功...End If End Function --- 使用方法: Sub a() Call 创建文件夹("...
Hi Guys, have you ever try create folder on share point through Excel VBA? My code worked in last month, however it is failed to work recent days, and the error type is run time error '76', path not... Can you Please try below DimstrDateAsStringDimstrTimeAsStringst...