Getting filenames from a folder in Sharepoint with VBA

问题

I've done alot of research on this and found a number of help sites but still can't understand why this sometimes doesn't work.

I'm trying to access a sharepoint site (to which there are no restrictions for me) and extract all the files in a folder within that site.

Sometimes my Path works and it does it, other times it does not. I have a feeling it works if I've gone into the sharepoint site on my browser before but can't confirm that (because I just tried it again now and it doesnt work ARGGH). But the same code below has worked in the past.

It's failing on the File System Object function below

Public Function GetFullFileName(strfilepath As String, _
strFileNamePartial As String) As String
Dim objFS As Variant
Dim objFolder As Variant
Dim objFile As Variant
Dim intLengthOfPartialName As Integer
Dim strfilenamefull As String
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(strfilepath)
'work out how long the partial file name is
intLengthOfPartialName = Len(strFileNamePartial)

For Each objFile In objFolder.Files
    'Test to see if the file matches the partial file name
    If Left(LCase(Replace(objFile.Name, " ", "")), intLengthOfPartialName) = LCase(strFileNamePartial) Then
    'get the full file name
        strfilenamefull = objFile.Name
        Exit For
    Else
    End If
Next objFile

'Return the full file name as the function's value
GetFullFileName = strfilenamefull
End Function

I get a "Run-time error '76': Path not found" when it gets to the GetFolder(strfilepath) code

The strfilepath is just a regular sharepoint site name (e.g. like \teams.uk\gm\FX\SharedDocuments\London\11) November 2013\20 November\Reports)

As mentioned I've tried different variations of the file path including DavWWW but nothing seems to work and I dont know what else to try.

Any advice please?

Thanks

Raiyan

回答1:

The webclient service must be started to Access SharePoint using the FileSystemObject.

This service is often not started when you first log on. However as you access SharePoint via the normal user interface it gets started. I think this is why your code works inconsistently.

If you have admin rights on the local machine you can start the service manually (or using code). However if you don't have rights then you can try a trick - it's clumsy but works.

Using VBA code open a known SharePoint folder in explorer view then close it. This will trigger webclient to start.

来源：https://stackoverflow.com/questions/20215889/getting-filenames-from-a-folder-in-sharepoint-with-vba

标签

file

vba

sharepoint

system

fso