【发布时间】:2013-07-10 04:43:15
【问题描述】:
我正在使用此代码使用 excel VBA 循环遍历 sharepoint 中的文件。当我使用本地驱动器路径时,此代码工作正常。但是当我用我的共享点路径替换路径时,我在 fs.GetFolder 收到一条错误消息“找不到路径”
请多多指教
我使用的代码是:
Private Sub CommandButton2_Click()
Dim folder As Variant
Dim f As File
Dim fs As New FileSystemObject
Dim fs1 As New OLEObject
Dim RowCtr As Integer
Dim FPath As String
Dim wb As Workbook
FPath = "my URL"
Set fs = CreateObject("Scripting.FileSystemObject")
RowCtr = 1
Set folder = fs.GetFolder(FPath)
'<=Variable Location
For Each f In folder.Files
Cells(RowCtr, 1).Value = f.Name
RowCtr = RowCtr + 1
Next f
End Sub
【问题讨论】:
-
您使用的是 http 路径,还是 webdav 路径? http 不会工作...
-
我尝试使用 http 路径示例路径:"path/more path/foldername" 我什至尝试将路径作为 "\\path\more path\foldername" 两者都不起作用
-
如果您只有 http 访问权限,那么您不能使用文件系统对象循环访问这样的文件夹。也许有一个共享点的方式来做到这一点,但我不熟悉那个平台。
标签: vba sharepoint excel