Excel VBA打开Sharepoint文件夹并为其中的文件创建超链接列表_Vba_Excel_Sharepoint

Excel VBA打开Sharepoint文件夹并为其中的文件创建超链接列表

vba excel sharepoint

Excel VBA打开Sharepoint文件夹并为其中的文件创建超链接列表,vba,excel,sharepoint,Vba,Excel,Sharepoint,在被要求迁移到SharePoint之前，我使用一组.xlsm文件来设置项目团队来管理项目。我的项目管理器文件包含一个宏，该宏将转到指定的文件夹并为所有当前项目文件创建超链接。我已经在SharePoint上保存了.xlsm文件的集合，但是当我运行下面的宏（我在这里找到了宏，谢谢！）时，我收到了一个与“Set-xFolder=xFSO.GetFolder（xPath）”行相关的错误。任何帮助都会很好。我读过几篇可能有答案的帖子，并尝试了几次代码调整，但都没有成功 Sub Create_Hyperli

在被要求迁移到SharePoint之前，我使用一组.xlsm文件来设置项目团队来管理项目。我的项目管理器文件包含一个宏，该宏将转到指定的文件夹并为所有当前项目文件创建超链接。我已经在SharePoint上保存了.xlsm文件的集合，但是当我运行下面的宏（我在这里找到了宏，谢谢！）时，我收到了一个与“Set-xFolder=xFSO.GetFolder（xPath）”行相关的错误。任何帮助都会很好。我读过几篇可能有答案的帖子，并尝试了几次代码调整，但都没有成功

Sub Create_Hyperlinks_for_all_Current_Projects()

Range("B8:D38").Clear

MsgBox "Once you click OK, an explorer box will appear. Select the folder 
containing all the CSTPs and then click OK again. HINT: The folder 
containing all the CSTPs should be in the same folder this document was in 
and should be called ''CSTPs''. Links to all CSTPs will then appear in the 
white box on the Manager Menu."
Dim xFSO As Object
Dim xFolder As Object
Dim xFile As Object
Dim xFiDialog As FileDialog
Dim xPath As String
Dim I As Integer
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
With xFiDialog
.InitialFileName = ThisWorkbook.Path
End With
If xFiDialog.Show = -1 Then
    xPath = xFiDialog.SelectedItems(1)
End If

Set xFiDialog = Nothing
If xPath = "" Then Exit Sub
Set xFSO = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFSO.GetFolder(xPath)
For Each xFile In xFolder.Files
    I = I + 2
    ActiveSheet.Hyperlinks.Add Cells(I + 6, 2), xFile.Path, , , xFile.Name
Next
End Sub

我希望下面的注释对您有所帮助。他们总结了几周挫折的结果

如果您使用的是SP365，然后是filesystemobject 如果有的话，它已经不能很好地工作了

我有数百个宏依赖于FSO。在我的组织迁移到SP365:o之前，这些都非常有效(

现在，它们只有在我手动单击时才能工作首先是SP中的“打开资源管理器”按钮

打开资源管理器为Win Explorer提供访问SP所需的权限。这进而为FSO提供访问SP所需的权限

但是…在我的情况下…FSO只工作一段时间

我的第一份工作是

我推出了一个原型应用程序，它使用宏来实现自动化打开IE，打开Win Explorer并初始化FSO的权限

在我的机器上工作了大约一个小时，然后某种暂停把我带回了原点

其他机器上的同事经历了一系列FSO行为。从所有工作正常到必须每30秒重新运行连接宏。一点用也没有

然后，我花时间尝试更新宏，将其作为网络驱动器连接到SP。同样，这是一个我已经使用多年的过程，直到迁移到SP365为止。同样，连接到SP365的成功似乎非常依赖于机器

最后…根据我自己的要求

我的工作是创建一个列出所有文件的SP视图。然后使用SP中的“导出到Excel”选项创建Excel数据查询。然后将查询复制到我称为Config.xlsx的Excel文件中。然后，每次需要文件列表时，使用Excel RefreshAll更新文件列表

它不是很优雅……但是，它很有效；o）

正如我所说……我希望这对你/某人有所帮助

如果您需要任何后续建议，请随时联系LinkedIn

彼得

LinkedIn名称DrPeterEHSmee

我希望以下注释对您有所帮助。他们总结了几周挫折的结果