如何将InputBox输入参数传入VBA的HTTP POST请求URL

你只需要通过字符串拼接或替换的方式，将InputBox获取的iInput值替换URL中的固定值2即可，以下是两种简单易懂的实现方式：

方法一：直接字符串拼接（推荐新手使用） #

这种方式逻辑清晰，直接把URL的固定部分和用户输入值连接起来：

Dim iInput As String
iInput = InputBox("Please enter a number", "Create Invoice Number", "Enter your input text HERE")

' 新增输入校验，避免空输入导致的请求错误
If iInput = "" Then
    MsgBox "请输入有效的数字！", vbExclamation
    Exit Sub
End If

' 拼接URL，将固定值2替换为用户输入的iInput
Dim Url As String
Url = "myurl.com/api/v4/projects/3765/ref/master/trigger/pipeline?token=123&variables[check1]=" & iInput

' 完整的HTTP请求流程（补全你原代码中缺失的对象创建部分）
Dim objHTTP As Object
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
objHTTP.Open "POST", Url, False
objHTTP.Send

' 可选：查看请求状态
MsgBox "请求发送完成，状态码：" & objHTTP.Status

Set objHTTP = Nothing

方法二：使用Replace函数替换指定参数 #

如果原URL较长，你可以直接替换URL中variables[check1]=2这一段：

Dim iInput As String
iInput = InputBox("Please enter a number", "Create Invoice Number", "Enter your input text HERE")

If iInput = "" Then
    MsgBox "请输入有效的数字！", vbExclamation
    Exit Sub
End If

Dim Url As String
Url = Replace("myurl.com/api/v4/projects/3765/ref/master/trigger/pipeline?token=123&variables[check1]=2", _
              "variables[check1]=2", "variables[check1]=" & iInput)

' 后续HTTP请求代码同方法一

注意事项 #

• 如果用户输入的是包含特殊字符（如空格、&、=等）的内容，需要对iInput进行URL编码，可使用URLEncode函数处理（需引用Microsoft Internet Controls库或自行实现编码逻辑）。
• 确保objHTTP对象已正确创建，原代码中缺少对象实例化的步骤，上面的示例已补全。

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