VBA中无需测试编号访问JS对象motTests的expiryDate求助

你遇到的问题源于motTests是一个以测试编号为属性名的对象（而非直接可索引的数组），无法通过固定键名直接访问。无需知晓测试编号的情况下，可通过遍历对象属性的方式获取目标数据：

遍历motTests对象属性（取第一条记录） #

Dim motTest As Object
Dim prop As Variant

' 遍历motTests的所有属性
For Each prop In js.motTests
    Set motTest = js.motTests(prop)
    ' 将expiryDate写入指定单元格，这里以O列为例
    Cells(RR, "O").Value = motTest.expiryDate
    Exit For ' 仅需第一条记录时添加此行，无需所有记录则删除
Next prop

若motTests是数组的情况（兼容处理） #

如果motTests实际是数组结构，可直接通过索引访问：

' 取数组第一个元素的expiryDate
If IsArray(js.motTests) Then
    Cells(RR, "O").Value = js.motTests(0).expiryDate
End If

内容的提问来源于stack exchange，提问作者Mick