Jun 04 2018 12:05 AM
Jun 04 2018 12:05 AM
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 found, could anyone give me some suggestions? Thanks a lot!!!!
My code is like this:
Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
Dim strURL As String
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
Jun 04 2018 10:42 AM
Jun 04 2018 10:42 AM
Can you Please try below
Dim strDate As String Dim strTime As String strDate = Date strTime = Time strDate = Format(Now(), "mmmdd yyyy hh mm") Dim strURL As String ''Copy and paste the URL of your sharePoint folder where you want to create another folder strURL = "http://Your URL" strURL = Replace(Replace(strURL, "http:", ""), "/", "\") ' MsgBox strDate, vbInformation Dim Fld_r As String Fld_r = strURL & strDate MsgBox Fld_r, vbInformation If Dir(Fld_r, vbDirectory) Then MkDir (Fld_r) DoEvents End If
Jun 04 2018 11:13 PM
Jun 04 2018 11:13 PM
Hi thanks for your reply. i tried this way, and run time error 52 bad file name occurred, at this sentence : If Dir(Fld_r, vbDirectory) Then
I googled and still didn't find the reason.
Do you have any ideas?
Thanks.