自動化網頁

Question

我需要使用Excel宏自動化網頁，但我在database2.Item(0).Value = mydatatype處得到Runtime Error 91。

下面是我對那部分代碼：

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 

截圖