通常我使用以下代码在VBA中检索文件夹内容。但在SharePoint上不起作用。我该怎么办？
Dim folder As folder
Dim f As File
Dim fs As New FileSystemObject
Set folder = fs.GetFolder("//sharepoint.address/path/to/folder")
For Each f In folder.Files
'Do something
Next f
编辑（在shahkalpesh的良好评论之后）：
如果我在Windows资源管理器中输入地址，就可以访问SharePoint。访问SharePoint需要身份验证，但它是透明的，因为它依赖于Windows登录。
Option Explicit
Private oMappedDrive As Scripting.Drive
Private oFSO As New Scripting.FileSystemObject
Private oNetwork As New WshNetwork
Private Sub Class_Terminate()
UnmapDrive
End Sub
Public Function MapDrive(NetworkPath As String) As Scripting.Folder
Dim DriveLetter As String, i As Integer
UnmapDrive
For i = Asc("Z") To Asc("A") Step -1
DriveLetter = Chr(i)
If Not oFSO.DriveExists(DriveLetter) Then
oNetwork.MapNetworkDrive DriveLetter & ":", NetworkPath
Set oMappedDrive = oFSO.GetDrive(DriveLetter)
Set MapDrive = oMappedDrive.RootFolder
Exit For
End If
Next i
End Function
Private Sub UnmapDrive()
If Not oMappedDrive Is Nothing Then
If oMappedDrive.IsReady Then
oNetwork.RemoveNetworkDrive oMappedDrive.DriveLetter & ":"
End If
Set oMappedDrive = Nothing
End If
End Sub
然后您可以在您的代码中实现它：
Sub test()
Dim dm As New DriveMapper
Dim sharepointFolder As Scripting.Folder
Set sharepointFolder = dm.MapDrive("http://your/sharepoint/path")
Debug.Print sharepointFolder.Path
End Sub
Sub test（）中，对于Dim dm as New DriveMapper一行，会抛出“未定义的类型”编译错误。也许我缺少一个DLL引用？我已经添加了Microsoft Scripting Runtime和Windows Script Host Object Model。使用Excel 2010。 - Shrout1使用UNC路径而不是HTTP。以下代码可正常工作：
Public Sub ListFiles()
Dim folder As folder
Dim f As File
Dim fs As New FileSystemObject
Dim RowCtr As Integer
RowCtr = 1
Set folder = fs.GetFolder("\\SharePointServer\Path\MorePath\DocumentLibrary\Folder")
For Each f In folder.Files
Cells(RowCtr, 1).Value = f.Name
RowCtr = RowCtr + 1
Next f
End Sub
要获取可用的 UNC 路径，请进入文档库中的文件夹，展开“操作”菜单并选择“在 Windows 资源管理器中打开”。复制您在那里看到的路径并使用它。
除此之外：
myFilePath = replace(myFilePath, "/", "\")
myFilePath = replace(myFilePath, "http:", "")
也替换空格：
myFilePath = replace(myFilePath, " ", "%20")
我花了一些时间研究这个问题，并找到了一个非常简单的两行代码解决方案，只需将“http”和所有正斜杠替换为以下内容：
myFilePath = replace(myFilePath, "/", "\")
myFilePath = replace(myFilePath, "http:", "")
可能不适用于每个人，但对我有效。
如果您正在使用安全站点（或希望同时考虑两者），您可能希望添加以下行：
myFilePath = replace(myFilePath, "https:", "")
myFilePath = Replace(myFilePath, Split(myFilePath, "\")(2), Split(myFilePath, "\")(2) & "@SSL") 这将最终将 https://my.SharePoint.com/ 转换为 \\my.SharePoint.com@SSL\ (在所有替换后)。 - Ralphhttp://blog.itwarlocks.com/2009/04/28/accessing-webdav-in-microsoft-word-visual-basic/
原链接已失效，但至少文本内容仍可在archive.org上找到： http://web.archive.org/web/20091008034423/http://blog.itwarlocks.com/2009/04/28/accessing-webdav-in-microsoft-word-visual-basic这是我用过的一段代码：
注意...要获取URL部分中的@SSL，您需要将Microsoft Edge/Chrome中SharePoint文件夹的URL复制到Windows文件资源管理器中...然后右键单击当前文件夹 -> 属性，这应该会显示您应该使用的具有@SSL的路径。那是最困难的部分！
Sub GetAllFileNamesInSharePointFolder()
FileName = Dir("\\mycompany.sharepoint.com@SSL\DavWWWRoot\teams\NCICDS\Testing folder for Me\Elise\Deal Docs\2022\Metro Egypt\Confectionery\*.*")
Do While FileName <> ""
Debug.Print FileName
FileName = Dir()
Loop
End Sub
将驱动器映射到SharePoint（也支持https）
通过将其作为文件系统对象迭代，我成功地获取了SharePoint内容；关键在于如何设置映射：
然后复制路径（带有http*的行）（见下图）
在资源管理器或命令中使用此路径映射驱动器（例如：net use N: https:://thepathyoujustcopied）。
注意：https 可以在 Windows7/8 上正常工作，但不适用于 XP。
这可能对您有用，但我更喜欢另一种方法，因为每台计算机的驱动器字母都不同。这里的诀窍是从 SharePoint 开始（而不是从访问 SharePoint 作为 Web 服务器的 VBA 脚本开始）。
设置与 Excel 表格的数据连接
您可以在VBA中包含此查询，或在电子表格中维护数据库链接，并通过VBA迭代表格。请注意：上面的图像未显示实际的数据库连接（命令文本），该文本将告诉您如何访问我的SharePoint。
Public Function SharePointURLtoUNC( _
sURL As String) _
As String
Dim bIsSSL As Boolean
bIsSSL = InStr(1, sURL, "https:") > 0
sURL = Replace(Replace(sURL, "/", "\"), "%20", " ")
sURL = Replace(Replace(sURL, "https:", vbNullString), "http:", vbNullString)
sURL= Replace(sURL, Split(sURL, "\")(2), Split(sURL, "\")(2) & "@SSL\DavWWWRoot")
If Not bIsSSL Then sURL = Replace(sURL, "@SSL\", vbNullString)
SharePointURLtoUNC = sURL
End Function