Question

我对Macro excel（vba）和Sharepoint有疑问，我想创建一个Macro，以显示所有文档都位于sharepoint的文件夹中。我创建了读取所有文件的宏，该宏位于计算机的“ C：\”磁盘中的文件夹中，但是当我将该文件夹的路径的url放入时，该宏表示该路径为空！拥有Sharepoint或宏Excel经验的人可以帮助我吗？

我把用来了解文档的代码放在了sharepoint的文件夹中：

Private Sub FolderSearch_Click()

Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object

If FolderSearch.Value = True Then

Set oFSO = CreateObject("Scripting.FileSystemObject")
On Error GoTo ErrorHandler
ruta = "https://sharepointsite/sites/folder1/folder2/folder3"
x = Dir(ruta, vbDirectory)
If x = "." Then

MsgBox ("The path is empty")

ElseIf x = "" Then
   MsgBox ("The Folder " & ruta & " does not exist")
Else

Set oFolder = oFSO.GetFolder(TextBox1.Text)

For Each oFile In oFolder.Files

If InStr(oFile.Name, "~$") = 0 Then
ListBox1.AddItem oFile.Name
End If

Next oFile
End If
End If

FolderSearch.Value = False
Exit Sub
ErrorHandler:
MsgBox "The path is wrong"
FolderSearch.Value = False
End Sub

Excel和Sharepoint中的宏问题

0 个答案: