Question

有点像VBA的新手，但在尝试重新创建一些成功时遇到了问题我在Windows机器上的sharepoint上的文件电子表格中创建了一个列表，但是在运行excel的MAC书上做了2016年为mac。

所以这是我的代码适用于PC

Sub DownloadListFromSharepoint()

Dim SharepointAddress As String
Dim LocalAddress As String
Dim objFolder As Object
Dim objNet As Object
Dim objFile As Object
Dim fs As Object
Dim rng As Range

Dim objDate As Object

SharepointAddress = "https://liveastonac-my.sharepoint.com/personal/x_x_x_x_xxxxx_xx_xx/xxxxxxxxx/xxx/xxxxxx"

Set objNet = CreateObject("WScript.Network")
Set fs = CreateObject("Scripting.FileSystemObject")
objNet.MapNetworkDrive "A:", SharepointAddress

Set objFolder = fs.GetFolder("A:")

Set rng = ThisWorkbook.Sheets("sheet14").Range("a1")
rng.Value = "File Name"
rng.Offset(0, 1).Value = "Folder/File"
rng.Offset(0, 2).Value = "Path"
rng.Offset(0, 3).Value = "Date Created"
GetAllFilesFolders rng, objFolder, "" & strSharepointAddress
objNet.RemoveNetworkDrive "A:"
Set objNet = Nothing
Set fs = Nothing
End Sub

如您所见，我将sharepoint locaton映射到PC，并告诉它通过该地址并列出所有文件及其路径，创建日期等每个文件。然后我取消映射驱动器，完成工作。代码实际上是从stackoverflow上的帖子中借用和修改的（不记得前一段时间）。

所以我已经完成了一些阅读并从我的理解（虽然我可能有这个错误！）我不能使用文件系统对象，并且ergo无法将sharepoint映射到mac书。

我从Ron de Bruin找到了一个例子https://www.rondebruin.nl/mac/mac013.htm 他通过打开一个拨号框来选择mac book上的文件夹来展示如何创建文件列表，但如果我尝试修改它以忽略对话框并转到sharepoint loaction，则这对我不起作用。

然而到目前为止，我被困住了。

如果有人知道如何映射然后将共享点位置取消映射到mac，那么我想我可以使用Ron的例子。或者这是不可能的是有另一种方法来实现我想要的（创建一个位于工作簿的工作簿的工作簿的sharepoint文件夹中的文件列表，并将列出它创建的属性，路径和日期）

很抱歉这个长期问题，我期待着任何人都可以提供任何帮助。

mac vba list sharepoint files / map sharepoint to mac

0 个答案: