按日期和时间检索值的最新状态

Question

在我的 Excel 表“进度状态”中，我有 2 列，第一列包含在我的周期中包含的所有测试用例的列表，在第二列中，我想从中获取测试用例的最新状态另一张名为“所有运行测试用例”的工作表。

我尝试使用一些excel函数来获取最新的日期和时间，以便我可以获得测试用例的最新状态，但我没有成功，因为我对它们没有深入的了解，有人可以帮忙吗我有这个。The picture shows how my two sheet look like.

Answer 1

好的，这就是答案。确保 executionDate 和 executionTime 列分别采用 Date 和 Time 格式。使用以下函数=B3+C3 创建一个新列作为FinalTime。将此应用于其余部分。
然后您可以使用以下宏。如果单击 OLEDB connection，您可能需要在 VBA 屏幕中检查 Tools > preferences。
我假设您的工作表名称为 TestCases 和 ProgressStatus。并且Test case name 的标头更改为Test。您可以在工作表或宏中更改它们。

Sub makro()

Dim deneme As String
Dim queryStr As String
Dim con As Object, rs As Object, sorgu$, a$
    Set con = CreateObject("adodb.connection")
    Set rs = CreateObject("adodb.recordset")
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""

queryStr = "Select u.[Test]" & _
      ",u.[Status] " & _
    "From [TestCases$] As u " & _
    "Inner Join ( " & _
    "Select [Test] " & _
          ",max(FinalTime)  as [LastDate] " & _
        "From [TestCases$] " & _
        "Group By [Test]) As [q] " & _
"On u.Test = q.Test " & _
" And u.FinalTime = q.LastDate"

    Set rs = con.Execute(queryStr)
    Sheets("ProgressStatus").Range("A2").CopyFromRecordset rs

    Set rs = Nothing
    Set con = Nothing

End Sub

这是我处理的 TestCases 和 ProgressStatus 以及结果表。