我有一个包含用户列表的 Excel 表,有没有办法可以将这个列表一个一个地发送到一个内部网站,该网站接受文本框中的用户名以检查该用户是否存在并将输出打印到新列?
找到用户后,它将打印用户详细信息。未找到时,它会告诉未找到。
应该可以使用类似的东西:
Function testHttpGet()
Dim oHttp As Object
Set oHttp = CreateObject("Microsoft.XMLHTTP")
MyUrl = "http://10.0.21.130/test.php?name=mikeqq"
oHttp.Open "GET", MyUrl, False
oHttp.send
'MsgBox oHttp.Status
If oHttpPost.Status < 300 Then
SomeVar = oHttpPost.responseText
MsgBox SomeVar
End If
End Function