比较工作簿版本号

时间:2016-10-17 12:10:28

标签: vba excel-vba excel

我想在没有打开第二个工作簿的情况下比较2个工作簿的版本号(如果可能的话)到目前为止我已经提出了两个想法,但不是它们有效:(

If wb.BuiltinDocumentProperties("document version") = Workbooks("C:\Users\paw\Desktop\Test4\test2.xlsm").BuiltinDocumentProperties("document version") Then

Dim fso As Object
Dim strFilename As String
Dim abcd As String

strFilename = "C:\Users\paw\Desktop\Test4\test2.xlsm"

Set fso = CreateObject("Scripting.FileSystemObject")

abcd = fso.GetFileVersion(strFilename)
Debug.Print abcd

Set fso = Nothing

第二个代码只是使用特定路径从文件中提取版本号。

像这样的东西工作得很好btw。但我真的不想要打开第二本工作簿:

If wb.BuiltinDocumentProperties("document version") = Workbooks.Open("C:\Users\paw\Desktop\Test4\test22.xlsm").BuiltinDocumentProperties("document version") Then

请帮忙。

0 个答案:

没有答案