将值从excel行提交到网页并获取返回值

时间:2013-05-09 05:31:34

标签: excel excel-vba vba

我有一个带有用户列表的excel表,有没有办法可以将这个列表逐个发送到内部网站,该网站在文本框中接受用户名以检查该用户是否存在并将输出打印到一个新专栏?

找到用户后,将打印用户详细信息。 如果没有找到它会告诉找不到。

1 个答案:

答案 0 :(得分:1)

应该可以使用类似的东西:

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