自动化网页

Question

我需要使用Excel宏自动化网页，但我在Runtime Error 91行获得了database2.Item(0).Value = mydatatype。

以下是该部分的代码：

objIE.document.getElementById("menu").Click
Set database2 = objIE.document.getElementsByname("select-prj")
database2.Item(0).Value = mydatatype

以下是该部分的html源代码：

<div class="item group-item">
    <div class="label-row">
        <span class="label">Database</span>
        <span id="menu" class="menu dropdown">
        </span>
    </div>
    <input type="text" id="select-prj" />
</div>

请告知我做错了什么。

Answer 1

这对我有用

objIE.document.getElementById("select-prj").Value = mydatatype

示例代码

Sub Sample()
    Dim objIE As Object

    Set objIE = CreateObject("InternetExplorer.Application")

    With objIE
        .Visible = True
        .navigate "C:\Users\Siddharth\Desktop\test.htm"
        Do While .readystate <> 4: DoEvents: Loop
        .document.getElementById("select-prj").Value = "Sid"
    End With
End Sub

<强>截图