从表的第一列和第一行获取日期值

Question

我尝试从表的第1列和第1行获取日期值，如下所示：

Dim objStartDate As Date
objStartDate = ActiveSheet.ListObjects("Table1").ListColumns("Date").ListRows(1).Value

但收到此错误消息：

Run-time error '438':
Object doesn't support this property or method

从表中获取价值的正确方法是什么？

Answer 1

我决定发布GSerg和我的评论作为答案，以帮助可能遇到同样问题的其他人。

来自GSerg的评论：

＆＃34;如果你确实有一个列表对象，那么＆＃34; - GSerg

ActiveSheet.ListObjects("Table1").ListColumns("Date").Range.Cells(2).Value

您也可以删除 Cells 属性，并使用 Range 直接访问数据。

ActiveSheet.ListObjects("Table1").ListColumns("Date").Range(2).Value

或者您可以尝试使用范围对象进行评论。

ActiveSheet.Range("Table1[Date]")(1).Value

再次假设您实际上有一个名为 Table1 的 ListObject ，其中包含现有的 Date 列。
HTH的任何人都有同样的问题。