Создать папку в Sharepoint из Excel

Question

Ранее я настроил VBA для автоматического создания папки в Проводнике, если она не существует, и открыл папку, установив гиперссылку на путь к файлу, указанный в Sheets("Costs, etc").Range("D5")

Теперь, однако, компания Я работаю для перешел на использование исключительно Sharepoint вместо того, чтобы сохранять какие-либо документы локально - я не уверен, как go изменить этот код, чтобы вместо создания папки в Проводнике это делалось на Sharepoint?

If .Value = "Mobile Plant" And Cells(i, 6) <> "" And Cells(i, 14) <> "" Then
         ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 4), Address:=Sheets("Costs, etc").Range("D5") & Cells(i, 4) & " (" & Cells(i, 12) & ")", TextToDisplay:=.Value
         ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 17), Address:=Sheets("Costs, etc").Range("D5") & Cells(i, 4) & " (" & Cells(i, 12) & ")\" & Cells(i, 4) & " (" & Cells(i, 12) & ").docx", TextToDisplay:="Y"
         dirName = Cells(4, i).Values
         MkDir (Sheets("Costs, etc").Range("D5") & Cells(i, 4) & " (" & Cells(i, 12) & ")")
          Call Shell("explorer.exe" & " " & """" & Sheets("Costs, etc").Range("D5") & Cells(i, 4) & " (" & Cells(i, 12) & ")""", vbNormalFocus)