自动化网页

我需要通过使用Excelmacros自动化网页，但我得到一个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 

截图