0

ユーザーのリストを含む Excel シートがあります。このリストを内部 Web サイトに 1 つずつ送信し、テキスト ボックスにユーザー名を入力して、このユーザーが存在するかどうかを確認し、出力を新しい列に出力する方法はありますか? ?

ユーザーが見つかると、ユーザーの詳細が出力されます。見つからない場合は、not found と表示されます。

4

1 に答える 1

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
于 2013-05-09T05:37:39.570 に答える