![](/img/trans.png)
[英]How will I get the last modified date of a file in a SharePoint using VBA?
[英]How to Get Last Modified Date of excel file from Sharepoint using VBA?
我需要将excel文件的上次修改数据从共享点获取到变量。
我在 sharepoint 中有 excel 文件,该文件将每周更新。 我只需要在变量中获取 lats 修改日期即可继续我的宏。 请帮忙。
提前致谢!!!
Public Function LastSaveTime() As String
Application.Volatile
LastSaveTime = ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function
这也应该适用于存储在共享点库中的工作簿 - 刚刚使用 SharePoint 2010 对其进行了测试
编辑以从 SharePoint 列表中获取数据:
检查此链接- 那里解释了如何将列表数据读入 excel。
通过此链接,您将能够获得 ListName 和 ViewName。
将这两个组合在一起,最简单的方法是为列表创建一个新视图,并仅将更改列添加到视图中 - 当数据已导入到 excel 时,您可以轻松读取该数据并再次删除添加的表。
希望这有助于让您朝着正确的方向前进。 (已测试并使用 SP2010 列表)
Sub TestWhen()
SPFilePath = "http://teams.MyCompany.com/sites/PATH/PATH/Fulfillment/Forms/AllItems.aspx"
Debug.Print SPLastModified(SPFilePath, "2021_MyFileName.xlsx")
End Sub
Function SPLastModified(SPUrl As String, SPFName As String)
Dim ie As Object
Dim PagesHTML As String
Dim Dadate As String
Dim DaDateEnd As String
Dim arr() As String
arr = Split(OutString, " ")
Dim LastChange As Variant
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = True
.navigate SPUrl
Do Until .readyState = 4
DoEvents
Loop
Do While .busy: DoEvents: Loop
Do Until .readyState = 4
DoEvents
Loop
PagesHTML = ie.document.DocumentElement.outerHTML
End With
' Get to File
Dadate = InStr(PagesHTML, "FileLeafRef" & Chr(34) & ": " & Chr(34) & SPFName)
' Get to Modified Date
ModifiedText = "Modified" & Chr(34) & ": "
Dadate = Dadate + InStr(Mid(PagesHTML, Dadate), ModifiedText)
OutString = Mid(PagesHTML, Dadate + Len(ModifiedText), 27)
arr = Split(OutString, " ")
LastChange = arr(1) & " " & arr(2)
LastChange = arr(0) & "/" & Mid(arr(1), 6) & "/" & Mid(arr(2), 6, 4) & " " & LastChange
SPLastModified = LastChange
End Function
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.