如何将单元格数据添加到HTTP请求并移至下一个单元格

Question

我正在尝试通过vba发送POST请求，并且需要使变量Cheese进入下一个单元格并在URL中显示该单元格数据。我是否走上了正确的道路，我将如何实现这一目标？

我试图制作一个已经添加到单元变量中的循环函数。

Sub markExportOrders()
   Worksheets("Sheet2").Activate
   pepperjack = pepperjack + 1
   Cheese = ThisWorkbook.Worksheets("Sheet2").Range("A" & pepperjack).Value
   Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
   i = 2

    Do Until IsEmpty(Cells(i, 1))
     i = i + 1
     URL = "https://api.channeladvisor.com/v1/Orders( " & Cheese & ")/Export?access_token=xxxxxxx"
     objHTTP.Open "POST", URL, False
     objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
     objHTTP.send
     pepperjack = pepperjack + 1
   Loop

End Sub

我应该能够运行宏，然后使用exported=true调用get请求，并且excel表中的订单号将出现在列表中。