FileSystemDate VBA代码

时间:2015-01-26 07:46:36

标签: vba excel-vba excel

Sub Test()
myURL = "http://sps.ap.emersonprocess.com/sg/pssops/svcops/APServicePortal/ChartTemplates/IBS-CCR-AP_Prod.xlsx"
Filename = "IBS-CCR-AP_Prod.xlsx"
myURL = Replace(myURL, "http:", "")
myURL = Replace(myURL, "/", "\")
MsgBox FileDateTime(myURL & Filename)

end Sub

你能查看我的代码我只是想知道“IBS-CCR-AP_Prod.xlsx”保存在sharepoint驱动器中的时候,这就是为什么我使用FileDateTime但不幸的是我找不到错误路径。非常感谢大家好评

1 个答案:

答案 0 :(得分:1)

myURL已包含您的文件名,您无需连接它,只需使用

MsgBox FileDateTime(myURL)