Я работаю над кодом, который будет загружать все файлы папок ShareDrive в библиотеку документов SharePoint:
Мне нужно, чтобы это было сделано через VBA
У меня есть Excel, в A2, было бы быть ShareDrive Path и A3 будет иметь путь SharePoint
, тогда будет кнопка, когда я нажимаю на кнопку, все документы, доступные в A2, должны загружаться в путь A3.
Я нашел код ниже, но мне нужен ваш помогите реализовать то же самое
Dim SharepointAddress As String
Dim LocalAddress As String
Dim objNet As Object
Dim FS As Object
SharepointAddress= "\\xxxx\sites\xxx\xxx"
' Where you will enter your location path
LocalAddress = "yourfile path\test.xlsx"
' Where you will enter the file path, e.g.: Excel file
Set objNet = CreateObject("WScript.Network")
Set FS = CreateObject("Scripting.FileSystemObject")
If FS.FileExists(LocalAddress) Then
FS.CopyFile LocalAddress, SharepointAddress
End If
Set objNet = Nothing
Set FS = Nothing
Пожалуйста, помогите ..