使用部分文件名打开SharePoint文件

时间:2016-12-13 14:54:04

标签: excel vba sharepoint pattern-matching filenames

如何使用部分文件名打开SharePoint文件?

我有一个每年更新的文件(Demand 2016,Demand 2017等)。

我目前将该文件与SharePoint网址链接。

*(ptr + i)

我想在名称中找到名为“Demand”的文件。

1 个答案:

答案 0 :(得分:2)

在上述评论的帮助下,我找到了一个有效的解决方案。下面是在SharePoint根目录中循环访问文件名并打开类似于字符串名称的文件的代码

Public Sub ListFiles()
    Dim folder As folder
    Dim f As File
    Dim fs As New FileSystemObject
    Dim demandwb As Workbook

    Set folder = fs.GetFolder("//(SHAREPOINT URL)/GRS Demand Plan")

    For Each f In folder.Files
       If f.Name Like "GRS Demand Plan*" Then
           Set demandwb = Workbooks.Open(f)
       End If
    Next f
End Sub