打开带有部分文件名的 SharePoint 文件答案

【问题标题】：Open SharePoint file with part of filename打开带有部分文件名的 SharePoint 文件
【发布时间】：2016-12-13 14:54:04
【问题描述】：

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

我有一个每年都会更新的文件（Demand 2016、Demand 2017 等）

我目前将文件与 SharePoint url 链接。

Set wb = ThisWorkbook
Set demandWB = Workbooks.Open("http INSERT URL Demand%20Plan%2016.xlsm")

我想查找名称中带有“需求”的文件。

【问题讨论】：

If Filename Like "http INSERT URL Demand*" Then 怎么样，下面的行打开它？
公平的问题，这是一个错字，它应该在另一个公共函数中引用另一个工作簿
也不清楚您所说的“打开文件名的一部分”或“我想找到标题为...的文件”是什么意思。请详细说明。
This answer 谈到使用 Excel VBA 列出 SharePoint 目录的内容 - 您可以这样做，然后获取与您想要的模式匹配的文件名，例如 Left(filename,7)="Demand "。
@DavidZemens 如果我有一个名为“Demand 2016”的共享点文件，我想告诉我的代码进入 SharePoint 的根目录，并找到标题为“Demand”的文件... .忽略年份值。

标签： excel vba sharepoint pattern-matching filenames

【解决方案1】：

在上面的 cmets 的帮助下，我找到了一个可行的解决方案。下面是循环遍历 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

【讨论】：