私は SmartyStreets API を使用しており、応答をテストして、「delivery_line_2」フィールドに値があるかどうかを確認しようとしています。コードを実行しようとすると、VBA for Excel で変数の未定義エラーが発生し続けます。これを行うための最良の方法についての提案はありますか? 次のコードを使用してアクセスしようとしています。
Dim candidates, candidate, components, metadata, analysis As MSXML2.IXMLDOMNode
Set candidates = xmlDoc.DocumentElement
For Each candidate In candidates.ChildNodes
Set components = candidate.SelectSingleNode("components")
Set metadata = candidate.SelectSingleNode("metadata")
Set analysis = candidate.SelectSingleNode("analysis")
Cells(RowIndex, DPVColumn).Value = analysis.SelectSingleNode("dpv_match_code").nodeTypedValue
Cells(RowIndex, DPVColumn + 1).Value = components.SelectSingleNode("zipcode").nodeTypedValue & "-" & components.SelectSingleNode("plus4_code").nodeTypedValue
Cells(RowIndex, DPVColumn + 2).Value = candidate.SelectSingleNode("delivery_line_1").nodeTypedValue
**If Len(candidate.SelectSingleNode("delivery_line_2").nodeTypedValue) > 1 Then
Cells(RowIndex, DPVColumn + 3).Value = candidate.SelectSingleNode("delivery_line_2").nodeTypedValue
End If**
ありがとう。