blocks|key|3306050|text|使用UNC路径，而不是HTTP。下面的代码可以工作：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3306051|Public+Sub+ListFiles()
++++Dim+folder+As+folder
++++Dim+f+As+File
++++Dim+fs+As+New+FileSystemObject
++++Dim+RowCtr+As+Integer

++++RowCtr+=+1
++++Set+folder+=+fs.GetFolder("\\SharePointServer\Path\MorePath\DocumentLibrary\Folder")
++++For+Each+f+In+folder.Files
+++++++Cells(RowCtr,+1).Value+=+f.Name
+++++++RowCtr+=+RowCtr+%2B+1
++++Next+f
End+Sub|code-block|syntax|javascript|3306052|若要获取要使用的UNC路径，请转到文档库中的文件夹，下拉“操作”菜单，然后选择“在Windows资源管理器中打开”。复制您在那里看到的路径并使用它。|3306053|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

Use the UNC path rather than HTTP. This code works:

<pre><code>Public Sub ListFiles()
 Dim folder As folder
 Dim f As File
 Dim fs As New FileSystemObject
 Dim RowCtr As Integer

 RowCtr = 1
 Set folder = fs.GetFolder("\\SharePointServer\Path\MorePath\DocumentLibrary\Folder")
 For Each f In folder.Files
 Cells(RowCtr, 1).Value = f.Name
 RowCtr = RowCtr + 1
 Next f
End Sub
</code></pre>

To get the UNC path to use, go into the folder in the document library, drop down the Actions menu and choose Open in Windows Explorer. Copy the path you see there and use that.

blocks|key|3093394|text|尝试将sharepoint库映射到windows中的驱动器号。然后在代码中选择驱动器和路径。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3093395|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|D|8|@]|9|@]|A|$]]|$1|B|3|-4|5|6|7|E|8|@]|9|@]|A|$]]]|C|$]]

Try mapping the sharepoint library to a drive letter in windows. Then select the drive and path in your code.

blocks|key|3093397|text|我想最酷的方法是通过WebDAV+(没有网络文件夹，因为这通常是不允许的)。这可以通过这篇优秀的excellent+article文章中的ActiveX数据对象来实现(代码可以直接在excellent+article中使用，最近使用了这个概念)。|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|3093398|希望这能有所帮助！|3093399|http://blog.itwarlocks.com/2009/04/28/accessing-webdav-in-microsoft-word-visual-basic/|3093400|原始链接已死，但至少文本内容仍可在archive.org上使用：http://web.archive.org/web/20091008034423/http://blog.itwarlocks.com/2009/04/28/accessing-webdav-in-microsoft-word-visual-basic|3093401|entityMap|0|LINK|mutability|MUTABLE|url|1|2|3|http://web.archive.org/web/20091008034423/http://blog.itwarlocks.com/2009/04/28/accessing-webdav-in-microsoft-word-visual-basic^0|1C|H|0|2J|H|1|0|0|0|2E|2|0|W|3J|3|0^^$0|@$1|2|3|4|5|6|7|U|8|@]|9|@$A|V|B|W|1|X]|$A|Y|B|Z|1|10]]|C|$]]|$1|D|3|E|5|6|7|11|8|@]|9|@]|C|$]]|$1|F|3|G|5|6|7|12|8|@]|9|@$A|13|B|14|1|15]]|C|$]]|$1|H|3|I|5|6|7|16|8|@]|9|@$A|17|B|18|1|19]]|C|$]]|$1|J|3|-4|5|6|7|1A|8|@]|9|@]|C|$]]]|K|$L|$5|M|N|O|C|$P|G]]|Q|$5|M|N|O|C|$P|G]]|R|$5|M|N|O|C|$P|G]]|S|$5|M|N|O|C|$P|T]]]]

IMHO the coolest way is to go via WebDAV (without Network Folder, as this is often not permitted). This can be accomplished via ActiveX Data Objects as layed out in this <a href="http://blog.itwarlocks.com/2009/04/28/accessing-webdav-in-microsoft-word-visual-basic/" rel="nofollow noreferrer">excellent article</a> excellent article (code can be used directly in Excel, used the concept recently).

Hope this helps!

<a href="http://blog.itwarlocks.com/2009/04/28/accessing-webdav-in-microsoft-word-visual-basic/" rel="nofollow noreferrer">http://blog.itwarlocks.com/2009/04/28/accessing-webdav-in-microsoft-word-visual-basic/</a>

the original link is dead, but at least the textual content is still available on archive.org:
<a href="http://web.archive.org/web/20091008034423/http://blog.itwarlocks.com/2009/04/28/accessing-webdav-in-microsoft-word-visual-basic" rel="nofollow noreferrer">http://web.archive.org/web/20091008034423/http://blog.itwarlocks.com/2009/04/28/accessing-webdav-in-microsoft-word-visual-basic</a>

blocks|key|3093486|text|我发现，在拥有服务器权限的情况下处理SharePoint上的文件的唯一方法是将WebDAV文件夹映射到一个驱动器号。这里有一个实现的例子。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3093487|在VBA中添加对以下ActiveX库的引用：|3093488|用于WshNetwork|3093489|Microsoft脚本运行时(wshom.ocx)的|unordered-list-item|offset|length|style|CODE|3093490|Windows脚本主机对象模型(wshom.ocx)-用于FileSystemObject|3093491|3093492|3093493|创建一个新的类模块，将其命名为DriveMapper并添加以下代码：|3093494|Option+Explicit

Private+oMappedDrive+As+Scripting.Drive
Private+oFSO+As+New+Scripting.FileSystemObject
Private+oNetwork+As+New+WshNetwork

Private+Sub+Class_Terminate()
++UnmapDrive
End+Sub

Public+Function+MapDrive(NetworkPath+As+String)+As+Scripting.Folder
++Dim+DriveLetter+As+String,+i+As+Integer

++UnmapDrive

++For+i+=+Asc("Z")+To+Asc("A")+Step+-1
++++DriveLetter+=+Chr(i)
++++If+Not+oFSO.DriveExists(DriveLetter)+Then
++++++oNetwork.MapNetworkDrive+DriveLetter+&+":",+NetworkPath
++++++Set+oMappedDrive+=+oFSO.GetDrive(DriveLetter)
++++++Set+MapDrive+=+oMappedDrive.RootFolder
++++++Exit+For
++++End+If
++Next+i
End+Function

Private+Sub+UnmapDrive()
++If+Not+oMappedDrive+Is+Nothing+Then
++++If+oMappedDrive.IsReady+Then
++++++oNetwork.RemoveNetworkDrive+oMappedDrive.DriveLetter+&+":"
++++End+If
++++Set+oMappedDrive+=+Nothing
++End+If
End+Sub|code-block|syntax|javascript|3093495|然后你可以在你的代码中实现它：|3093496|Sub+test()
++Dim+dm+As+New+DriveMapper
++Dim+sharepointFolder+As+Scripting.Folder

++Set+sharepointFolder+=+dm.MapDrive("http://your/sharepoint/path")

++Debug.Print+sharepointFolder.Path
End+Sub|3093497|entityMap^0|0|0|0|F|9|0|G|9|0|0|0|F|B|0|0|0|0^^$0|@$1|2|3|4|5|6|7|13|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|14|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|15|8|@]|9|@]|A|$]]|$1|F|3|G|5|H|7|16|8|@$I|17|J|18|K|L]]|9|@]|A|$]]|$1|M|3|N|5|H|7|19|8|@$I|1A|J|1B|K|L]]|9|@]|A|$]]|$1|O|3|-4|5|6|7|1C|8|@]|9|@]|A|$]]|$1|P|3|-4|5|6|7|1D|8|@]|9|@]|A|$]]|$1|Q|3|R|5|6|7|1E|8|@$I|1F|J|1G|K|L]]|9|@]|A|$]]|$1|S|3|T|5|U|7|1H|8|@]|9|@]|A|$V|W]]|$1|X|3|Y|5|6|7|1I|8|@]|9|@]|A|$]]|$1|Z|3|10|5|U|7|1J|8|@]|9|@]|A|$V|W]]|$1|11|3|-4|5|6|7|1K|8|@]|9|@]|A|$]]]|12|$]]

The only way I've found to work with files on SharePoint while having to server rights is to map the WebDAV folder to a drive letter. Here's an example for the implementation. 

Add references to the following ActiveX libraries in VBA:

<ul>
<li>Windows Script Host Object Model (<code>wshom.ocx</code>) - for WshNetwork</li>
<li>Microsoft Scripting Runtime (<code>scrrun.dll</code>) - for FileSystemObject</li>
</ul>

Create a new class module, call it <code>DriveMapper</code> and add the following code:

<pre><code>Option Explicit

Private oMappedDrive As Scripting.Drive
Private oFSO As New Scripting.FileSystemObject
Private oNetwork As New WshNetwork

Private Sub Class_Terminate()
 UnmapDrive
End Sub

Public Function MapDrive(NetworkPath As String) As Scripting.Folder
 Dim DriveLetter As String, i As Integer

 UnmapDrive

 For i = Asc("Z") To Asc("A") Step -1
 DriveLetter = Chr(i)
 If Not oFSO.DriveExists(DriveLetter) Then
 oNetwork.MapNetworkDrive DriveLetter &amp; ":", NetworkPath
 Set oMappedDrive = oFSO.GetDrive(DriveLetter)
 Set MapDrive = oMappedDrive.RootFolder
 Exit For
 End If
 Next i
End Function

Private Sub UnmapDrive()
 If Not oMappedDrive Is Nothing Then
 If oMappedDrive.IsReady Then
 oNetwork.RemoveNetworkDrive oMappedDrive.DriveLetter &amp; ":"
 End If
 Set oMappedDrive = Nothing
 End If
End Sub
</code></pre>

Then you can implement it in your code:

<pre><code>Sub test()
 Dim dm As New DriveMapper
 Dim sharepointFolder As Scripting.Folder

 Set sharepointFolder = dm.MapDrive("http://your/sharepoint/path")

 Debug.Print sharepointFolder.Path
End Sub
</code></pre>

blocks|key|333109|text|映射到sharepoint+(也是https)的驱动器|type|unstyled|depth|inlineStyleRanges|offset|length|style|BOLD|entityRanges|data|333110|通过映射驱动器将其作为文件系统对象进行迭代，获取sharepoint内容对我来说是有效的；诀窍在于如何设置映射：|333111|📷|atomic|333112|然后复制路径(带http*的行)(见下文)|333113|​|333114|333115|333116|在资源管理器或命令(如net+use+N:+https:://thepathyoujustcopied)的映射驱动器中使用此路径。注意:+https适用于windows7+7/8，而不适用于XP。|CODE|333117|这可能对你有用，但我更喜欢不同的方法，因为每台pc上的驱动器号都不同。这里的诀窍是从sharepoint开始(而不是从作为web服务器访问sharepoint的VBA脚本开始)。|333118|建立到excel表格的数据连接|333119|在sharepoint中，浏览到要将monitor|333120|export视图导出到excel的视图(2010年:库工具；|unordered-list-item|333121|%7C导出到|333122|)+|333123|333124|333125|333126|333127|333128|查看此excel时，您将发现数据源设置(选项卡:+data、connections、properties、definition)|333129|333130|333131|333132|333133|您可以将此查询包含在vba中，也可以在电子表格中维护数据库链接，通过VBA对表进行迭代。请注意:上图没有显示实际的数据库连接(命令文本)，它将告诉您如何访问我的sharepoint。|333134|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/98f0f9161152c6bec84c351b37c3d197.jpeg|imageAlt|1|https://ask.qcloudimg.com/http-save/yehe-900000/d754d2f0fd8b52238e011db4c853b9ae.jpeg|2|https://ask.qcloudimg.com/http-save/yehe-900000/5df6b43d4d8ae96d5fabd31eb56ea65c.jpeg|3|https://ask.qcloudimg.com/http-save/yehe-900000/d901329dfc9078f2e899c6b60a09d0b8.jpeg^0|O|3|0|0|1K|0|0|1|0|1|0|0|0|L|0|0|1|0|0|1|0|1|1|0|0|1|0|0|2Q|B|14|0|0|2H|0|0|F|0|0|P|0|0|U|0|0|4|0|0|2|0|0|0|0|1|0|1|2|0|0|1|0|0|0|1S|0|0|0|1|0|0|1|0|1|3|0|0|1|0|0|2J|0^^$0|@$1|2|3|4|5|6|7|1Y|8|@$9|1Z|A|20|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|21|8|@$9|22|A|23|B|C]]|D|@]|E|$]]|$1|H|3|I|5|J|7|24|8|@$9|25|A|26|B|C]]|D|@$9|27|A|28|1|29]]|E|$]]|$1|K|3|L|5|6|7|2A|8|@$9|2B|A|2C|B|C]]|D|@]|E|$]]|$1|M|3|N|5|6|7|2D|8|@$9|2E|A|2F|B|C]]|D|@]|E|$]]|$1|O|3|I|5|J|7|2G|8|@$9|2H|A|2I|B|C]]|D|@$9|2J|A|2K|1|2L]]|E|$]]|$1|P|3|N|5|6|7|2M|8|@$9|2N|A|2O|B|C]]|D|@]|E|$]]|$1|Q|3|R|5|6|7|2P|8|@$9|2Q|A|2R|B|C]|$9|2S|A|2T|B|S]]|D|@]|E|$]]|$1|T|3|U|5|6|7|2U|8|@$9|2V|A|2W|B|C]]|D|@]|E|$]]|$1|V|3|W|5|6|7|2X|8|@$9|2Y|A|2Z|B|C]]|D|@]|E|$]]|$1|X|3|Y|5|6|7|30|8|@$9|31|A|32|B|C]]|D|@]|E|$]]|$1|Z|3|10|5|11|7|33|8|@$9|34|A|35|B|C]]|D|@]|E|$]]|$1|12|3|13|5|11|7|36|8|@$9|37|A|38|B|C]]|D|@]|E|$]]|$1|14|3|15|5|11|7|39|8|@$9|3A|A|3B|B|C]]|D|@]|E|$]]|$1|16|3|-4|5|6|7|3C|8|@]|D|@]|E|$]]|$1|17|3|-4|5|6|7|3D|8|@]|D|@]|E|$]]|$1|18|3|I|5|J|7|3E|8|@$9|3F|A|3G|B|C]]|D|@$9|3H|A|3I|1|3J]]|E|$]]|$1|19|3|N|5|6|7|3K|8|@$9|3L|A|3M|B|C]]|D|@]|E|$]]|$1|1A|3|-4|5|6|7|3N|8|@]|D|@]|E|$]]|$1|1B|3|1C|5|11|7|3O|8|@$9|3P|A|3Q|B|C]]|D|@]|E|$]]|$1|1D|3|-4|5|6|7|3R|8|@]|D|@]|E|$]]|$1|1E|3|N|5|6|7|3S|8|@$9|3T|A|3U|B|C]]|D|@]|E|$]]|$1|1F|3|I|5|J|7|3V|8|@$9|3W|A|3X|B|C]]|D|@$9|3Y|A|3Z|1|40]]|E|$]]|$1|1G|3|N|5|6|7|41|8|@$9|42|A|43|B|C]]|D|@]|E|$]]|$1|1H|3|1I|5|6|7|44|8|@$9|45|A|46|B|C]]|D|@]|E|$]]|$1|1J|3|-4|5|6|7|47|8|@]|D|@]|E|$]]]|1K|$1L|$5|1M|1N|1O|E|$1P|1Q|1R|-4]]|1S|$5|1M|1N|1O|E|$1P|1T|1R|-4]]|1U|$5|1M|1N|1O|E|$1P|1V|1R|-4]]|1W|$5|1M|1N|1O|E|$1P|1X|1R|-4]]]]

Drive mapping to sharepoint (also https)

Getting sharepoint contents worked for me via the mapped drive iterating it as a filesystem object; trick is how to set up the mapping: 
<img src="https://i.stack.imgur.com/BETR8.jpg" alt="from sharepoint, open as explorer">
Then copy path (line with http*) (see below)

<img src="https://i.stack.imgur.com/iqFOG.jpg" alt="address in explorer">

Use this path in Map drive from explorer or command (i.e. <code>net use N: https:://thepathyoujustcopied</code>)
Note: https works ok with windows7/8, not with XP.

That may work for you, but I prefer a different approach as drive letters are different on each pc. The trick here is to start from sharepoint (and not from a VBA script accessing sharepoint as a web server).

Set up a data connection to excel sheet

<ul>
<li>in sharepoint, browse to the view you want to monitor</li>
<li>export view to excel (in 2010: library tools; libarry | export to Excel)
<img src="https://i.stack.imgur.com/vrHQO.jpg" alt="export to excel"></li>
<li>when viewing this excel, you'll find a datasource set up (tab: data, connections, properties, definition)</li>
</ul>

<img src="https://i.stack.imgur.com/PrJU1.jpg" alt="connection tab">

You can either include this query in vba, or maintain the database link in your speadsheet, iterating over the table by VBA. Please note: the image above does not show the actual database connection (command text), which would tell you how to access my sharepoint.

blocks|key|3306299|text|我花了一些时间在这个问题上-我试图在打开文件之前验证它是否存在。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3306300|最后，我想出了一个使用XML和SOAP的解决方案--使用EnumerateFolder方法，用文件夹的内容拉入一个XML响应。|3306301|我在here上写了这个博客。|offset|length|3306302|entityMap|0|LINK|mutability|MUTABLE|url|http://stevenbritton.com/2013/02/09/excel-vba-soap-xml-and-sharepoint-verify-a-file-exists/^0|0|0|2|4|0|0^^$0|@$1|2|3|4|5|6|7|P|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|Q|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|R|8|@]|9|@$F|S|G|T|1|U]]|A|$]]|$1|H|3|-4|5|6|7|V|8|@]|9|@]|A|$]]]|I|$J|$5|K|L|M|A|$N|O]]]]

I spent some time on this very problem - I was trying to verify a file existed before opening it.

Eventually, I came up with a solution using XML and SOAP - use the EnumerateFolder method and pull in an XML response with the folder's contents.

I blogged about it <a href="http://stevenbritton.com/2013/02/09/excel-vba-soap-xml-and-sharepoint-verify-a-file-exists/" rel="nofollow">here</a>.

blocks|key|330375|text|我花了一点时间解决这个问题，找到了一个非常简单的2行解决方案，简单地替换了'http‘和所有的正斜杠，如下所示：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|330376|myFilePath+=+replace(myFilePath,+"/",+"\")
myFilePath+=+replace(myFilePath,+"http:",+"")|code-block|syntax|javascript|330377|它可能不适用于所有人，但它适用于我|330378|如果您使用的是安全站点(或希望同时满足这两种需求)，则可能需要添加以下行：|330379|myFilePath+=+replace(myFilePath,+"https:",+"")|330380|entityMap^0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Q|8|@]|9|@]|A|$]]|$1|I|3|J|5|6|7|R|8|@]|9|@]|A|$]]|$1|K|3|L|5|D|7|S|8|@]|9|@]|A|$E|F]]|$1|M|3|-4|5|6|7|T|8|@]|9|@]|A|$]]]|N|$]]

I messed around with this problem for a bit, and found a very simple, 2-line solution, simply replacing the 'http' and all the forward slashes like this:

<pre><code>myFilePath = replace(myFilePath, "/", "\")
myFilePath = replace(myFilePath, "http:", "")
</code></pre>

It might not work for everybody, but it worked for me

If you are using a secure site (or wish to cater for both) you may wish to add the following line: 

<pre><code>myFilePath = replace(myFilePath, "https:", "")
</code></pre>

blocks|key|331878|text|除了：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|331879|myFilePath+=+replace(myFilePath,+"/",+"\")
myFilePath+=+replace(myFilePath,+"http:",+"")|code-block|syntax|javascript|331880|还要替换空格：|331881|myFilePath+=+replace(myFilePath,+"+",+"%2520")|331882|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|N|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|O|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

In addition to:

<pre><code>myFilePath = replace(myFilePath, "/", "\")
myFilePath = replace(myFilePath, "http:", "")
</code></pre>

also replace space:

<pre><code>myFilePath = replace(myFilePath, " ", "%20")
</code></pre>

blocks|key|335486|text|映射WebDAV文件夹是创建到SharePoint的易于访问的长期连接的首选方法。但是，您会发现-即使在正确映射的情况下-由于Windows+10+1803中的更改，文件在被选中时(特别是通过Application.FileDialog)将返回一个URL。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|335487|为了避免这种情况，您可以使用DriveMapper+(或等效物)映射驱动器，然后将生成的Application.FileDialog.SelectedItems与UNC转换函数的URL结合起来：|335488|Public+Function+SharePointURLtoUNC(+_
++sURL+As+String)+_
As+String
++Dim+bIsSSL+As+Boolean

++bIsSSL+=+InStr(1,+sURL,+"https:")+>+0
++sURL+=+Replace(Replace(sURL,+"/",+"\"),+"%2520",+"+")
++sURL+=+Replace(Replace(sURL,+"https:",+vbNullString),+"http:",+vbNullString)
++
++sURL=+Replace(sURL,+Split(sURL,+"\")(2),+Split(sURL,+"\")(2)+&+"@SSL\DavWWWRoot")
++If+Not+bIsSSL+Then+sURL+=+Replace(sURL,+"@SSL\",+vbNullString)+
++SharePointURLtoUNC+=+sURL
End+Function|code-block|syntax|javascript|335489|entityMap|0|LINK|mutability|MUTABLE|url|https://support.microsoft.com/en-ie/help/4467268/url-encoded-unc-paths-not-url-decoded-in-windows-10-version-1803-later^0|2O|M|1R|F|0|0|E|B|18|10|0|0^^$0|@$1|2|3|4|5|6|7|U|8|@$9|V|A|W|B|C]]|D|@$9|X|A|Y|1|Z]]|E|$]]|$1|F|3|G|5|6|7|10|8|@$9|11|A|12|B|C]|$9|13|A|14|B|C]]|D|@]|E|$]]|$1|H|3|I|5|J|7|15|8|@]|D|@]|E|$K|L]]|$1|M|3|-4|5|6|7|16|8|@]|D|@]|E|$]]]|N|$O|$5|P|Q|R|E|$S|T]]]]

Mapping the WebDAV folder is my preferred method of creating an easily accessible, long-term connection to SharePoint. However, you'll find—even when properly mapped—that a file will return a URL when selected (especially via <code>Application.FileDialog</code>) due to changes in <a href="https://support.microsoft.com/en-ie/help/4467268/url-encoded-unc-paths-not-url-decoded-in-windows-10-version-1803-later" rel="nofollow noreferrer">Windows 10 1803</a>.
To circumvent this, you can map the drive using <code>DriveMapper</code> (or an equivalent) and then combine the resulting <code>Application.FileDialog.SelectedItems</code> with a URL to UNC converter function:
<pre><code>Public Function SharePointURLtoUNC( _
 sURL As String) _
As String
 Dim bIsSSL As Boolean

 bIsSSL = InStr(1, sURL, &quot;https:&quot;) &gt; 0
 sURL = Replace(Replace(sURL, &quot;/&quot;, &quot;\&quot;), &quot;%20&quot;, &quot; &quot;)
 sURL = Replace(Replace(sURL, &quot;https:&quot;, vbNullString), &quot;http:&quot;, vbNullString)
 
 sURL= Replace(sURL, Split(sURL, &quot;\&quot;)(2), Split(sURL, &quot;\&quot;)(2) &amp; &quot;@SSL\DavWWWRoot&quot;)
 If Not bIsSSL Then sURL = Replace(sURL, &quot;@SSL\&quot;, vbNullString) 
 SharePointURLtoUNC = sURL
End Function
</code></pre>

blocks|key|3306459|text|这是一个适用于我的代码：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3306460|Note...to获取带有@SSL的URL部分你需要做的是将sharepoint文件夹的url从Microsoft+Edge/Chrome复制到Windows+Explorer...then中，点击主页->属性，这应该会显示你应该使用的带有@SLL的路径。这是最难的部分！|3306461|​|3306462|📷|atomic|offset|length|3306463|3306464|Sub+GetAllFileNamesInSharePointFolder()

FileName+=+Dir("\\mycompany.sharepoint.com@SSL\DavWWWRoot\teams\NCICDS\Testing+folder+for+Me\Elise\Deal+Docs\2022\Metro+Egypt\Confectionery\*.*")

Do+While+FileName+<>+""
++++Debug.Print+FileName
++++FileName+=+Dir()
Loop
End+Sub|code-block|syntax|javascript|3306465|3306466|3306467|3306468|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/a542a7bb2cdadbf863a2e464860db09a.png|imageAlt|1^0|0|0|0|0|1|0|0|0|0|0|0|1|1|0|0^^$0|@$1|2|3|4|5|6|7|13|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|14|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|15|8|@]|9|@]|A|$]]|$1|F|3|G|5|H|7|16|8|@]|9|@$I|17|J|18|1|19]]|A|$]]|$1|K|3|E|5|6|7|1A|8|@]|9|@]|A|$]]|$1|L|3|M|5|N|7|1B|8|@]|9|@]|A|$O|P]]|$1|Q|3|E|5|6|7|1C|8|@]|9|@]|A|$]]|$1|R|3|G|5|H|7|1D|8|@]|9|@$I|1E|J|1F|1|1G]]|A|$]]|$1|S|3|E|5|6|7|1H|8|@]|9|@]|A|$]]|$1|T|3|-4|5|6|7|1I|8|@]|9|@]|A|$]]]|U|$V|$5|W|X|Y|A|$Z|10|11|-4]]|12|$5|W|X|Y|A|$Z|10|11|-4]]]]

Here's a code that works for me:
Note...to get the URL part that has @SSL what you need to do is to copy the url of the sharepoint folder from Microsoft Edge/Chrome into Windows Explorer...then click on Home -&gt; Properties and that should show you the path that has @SLL that you should use. That's the most difficult part!
<a href="https://i.stack.imgur.com/NjVas.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/NjVas.png" alt="enter image description here" /></a>
<pre><code>Sub GetAllFileNamesInSharePointFolder()

FileName = Dir(&quot;\\mycompany.sharepoint.com@SSL\DavWWWRoot\teams\NCICDS\Testing folder for Me\Elise\Deal Docs\2022\Metro Egypt\Confectionery\*.*&quot;)

Do While FileName &lt;&gt; &quot;&quot;
 Debug.Print FileName
 FileName = Dir()
Loop
End Sub
</code></pre>
<a href="https://i.stack.imgur.com/NjVas.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/NjVas.png" alt="enter image description here" /></a>

Usually I use this piece of code to retrieve the content of a folder in VBA. But this doesn't work in the case of a sharepoint. How can I do ?

<pre><code>Dim folder As folder
Dim f As File
Dim fs As New FileSystemObject

Set folder = fs.GetFolder("//sharepoint.address/path/to/folder")

For Each f In folder.Files
 'Do something
Next f
</code></pre>

EDIT (after a good comment by shahkalpesh) :

I can access to the sharepoint if I enter the address in Windows Explorer. Access to the sharepoint needs an authentification, but it's transparent, because it relies on the Windows login.

Get the content of a sharepoint folder with Excel VBA

身份验证

文件系统

数据库

服务器

Windows

我通常使用这段代码来检索VBA中文件夹的内容。但这在sharepoint的情况下就不起作用了。我该怎么做呢？Dim folder As folderDim f As FileDim fs As New FileSystemObjectSet folder = fs.GetFolder("//sharepoint.add...

问使用Excel VBA获取sharepoint文件夹的内容
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问使用Excel VBA获取sharepoint文件夹的内容EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问使用Excel VBA获取sharepoint文件夹的内容
EN