Excel VBA PUT Json

Как я могу заставить это работать сейчас? Я пытаюсь получить значение из столбца Y (rng1), а также значение из столбца Z (rng2)

    Dim xhr As Object, thisRequest As String, rng1 As Range, rng2 As Range

Set xhr = CreateObject("Microsoft.XMLHTTP")

With ThisWorkbook.Worksheets("Fulcrum Upload")
    For Each rng1 In .Range("Y3:Y" & .Cells(.Rows.Count, "Y").End(xlUp).Row).SpecialCells(xlVisible)
    For Each rng2 In .Range("Z3:Z" & .Cells(.Rows.Count, "Z").End(xlUp).Row).SpecialCells(xlVisible)
        If Not IsEmpty(rng1) Then
            With xhr
                .Open "PUT", "https://api.fulcrumapp.com/api/v2/records/" + rng2 + ".json", False
                .setRequestHeader "Accept", "application/json"
                .setRequestHeader "Content-type", "application/json"
                .setRequestHeader "X-ApiToken", "11111111"
                .send rng1.value
            End With
        End If
    Next
End With

1
80
1

Ответ:

Решено

Я думаю, вы хотите использовать смещение для захвата соседнего значения и, следовательно, вам нужен только один цикл. И используйте & для продолжения строки.

With ThisWorkbook.Worksheets("Fulcrum Upload")
    For Each rng1 In .Range("Y3:Y" & .Cells(.Rows.Count, "Y").End(xlUp).Row).SpecialCells(xlVisible)
            If Not IsEmpty(rng1) Then
                With xhr
                    .Open "PUT", "https://api.fulcrumapp.com/api/v2/records/" & rng1.Offset(, 1).Value & ".json", False
                    .setRequestHeader "Accept", "application/json"
                    .setRequestHeader "Content-type", "application/json"
                    .setRequestHeader "X-ApiToken", "11111111"
                    .send rng1.Value
                End With
            End If
        Next
    End With
End Sub