VBA 内置文档属性

Question

我有一个位于 WorkbookA 中并从 WorkbookB 检索数据的宏。我想返回 WorkbookB 的“最后保存时间”并将其放入 WorkbookA 中的单元格中。在下面的代码中，“lastsave”是一个命名范围，指的是 WorkbookA 中的一个单元格。

我从各种网站和类似的问题中尝试了以下内容，但无济于事。我怀疑解决方案与对象、列表中的项目、值等有关，但我似乎无法将手指放在上面。

1) 错误:对象不支持此属性或方法

 Dim lastsavetime as Object
 set lastsavetime = Workbooks(B).BuiltinDocumentProperties("Last Save Time")
 Workbooks(A).Sheet1.Range("lastsave").Value = lastsavetime

2)错误:自动化错误，未指定的错误

 Dim lastsavetime as variant
 set lastsavetime = Workbooks(B).BuiltinDocumentProperties("Last Save Time")
 Workbooks(A).Sheet1.Range("lastsave").Value = lastsavetime

3) 错误:对象“DocumentProperty”的方法“Value”失败

 Workbooks(A).Sheet1.Range("lastsave").Value = Workbooks(B).BuiltinDocumentProperties("Last Save Time").Value

4) 错误:对象不支持此属性或方法

 Workbooks(A).Sheet1.Range("lastsave").Value = Workbooks(B).BuiltinDocumentProperties("Last Save Time").Value

5)错误:对象'DocumentProperty'的方法'Value'失败

 Dim propertylist as DocumentProperties
 Set propertylist = Workbooks(B).BuiltinDocumentProperties

 Workbooks(A).Sheet1.Range("lastsave").Value = (propertylist.Item("Last Save Time"))

Answer 1

尝试这个:

Workbooks(A).Worksheets("Sheet1").Range(lastsave).Formula = Workbooks(B).BuiltinDocumentProperties("Last Save Time")

这里: A是一个包含目标 wb 名称的字符串(“SaveTimeLog.xlsx”) B是一个字符串，其中包含您要为其捕获上次保存时间的 wb 的名称，例如“我的WB.xlsx” Sheet1是您要在其中写入上次保存时间的工作表的名称，例如“表 1” lastsave是一个字符串，包含对信息所在单元格的引用，例如“G4”

因为这会将上次保存时间写为数值。要以人类友好的格式获取它，您可以将目标单元格格式化为日期/时间，或者通过将其包含在 CStr() 中来隐藏上述语句的右侧。

仅供引用 Workbooks(A).Sheet1 失败，因为 Workbooks(A) 是一个工作簿对象。工作簿对象没有 Sheet1 方法或属性。