使用VBA打开Sharepoint Excel文件

我在Excel中使用VBA循环浏览sharepoint网站上的文件并打开所有Excel文件

代码在我第一次运行它时崩溃，但是，如果我随后重新打开它，它工作正常

这方面有什么已知的问题吗

谢谢

编辑：以下是代码：

Sub Refresh()

    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False

        Dim fso As FileSystemObject
        Dim fldr As Folder
        Dim f As File
        Dim wb As Workbook

        Set fso = New FileSystemObject
        Set fldr = fso.GetFolder(SharePointSite)

        For Each f In fldr.Files

            Set wb = Workbooks.Open(SharePointURL & f.Name)

        Next f

        Set wb = Nothing
        Set fldr = Nothing
        Set fso = Nothing

        .DisplayAlerts = True
        .ScreenUpdating = True
    End With

End Sub

---

尝试使用WebDAV地址访问代码中的库，而不是将文档库映射到驱动器号。这样，如果宏是分布式的，没有人会依赖于将“Z:”驱动器映射到特定位置

将FilePath变量设置为如下字符串（对HTTPS站点使用@SSL）：

\\sharepoint.site。com@SSL\davwwroot\site1\usersite\Book2\Shared%20文档

如果要直接访问文本文件，请将其设置为：

\\sharepoint.site。com@SSL\DavWWWRoot\site1\usersite\Book2\Shared%20文档
\Test_Text1.txt

---

查看有关检索WebDAV路径的完整说明。

1。它会因为错误而崩溃吗？如果是-什么样的错误？2.请把你的密码寄出去好吗？你有没有写防御代码？谢谢你的回复。没有出现错误，Excel只是崩溃了。我把代码放在原来的帖子里了。干杯。噢，你能告诉我们Excel和SharePoint的版本吗？我相信Excel 2003和最新版本的SharePoint之间的兼容性存在一些问题。您是否尝试将SharePoint映射到驱动器号，并使用该引用而不是URL？只需尝试一下，它就解决了问题。谢谢