ウェブページの値をExcelで自動的に入力する方法

Question

これは初めてのことですが、私はこれを言及していません...しかし、私はVBAの新人であり、助けが必要です... 私は持っていますvba excelを使用してWebページのボックスに値を入力する際の問題。

ボックスのソースコードは、私が書いたコードは、それが値を設定しdoesntの

Sub xx() 


Dim ie As Object 
Dim doc As HTMLDocument 
Dim lo As IHTMLElementCollection 
Dim l As IHTMLElement 

Set ie = CreateObject("internetexplorer.application") 
ie.navigate "mysiteurl" 
ie.Visible = True 

Do While ie.Busy: DoEvents: Loop 
Do While ie.readyState <> 4: DoEvents: Loop 

Set doc = ie.document 

doc.getElementById("MultiRenameTable_OR:wt.epm.EPMDocument3053059700_NEWNAME_JSID").Value = "xyz" 

End Sub 

ある

<input 
name="MultiRenameTable_OR:wt.epm.EPMDocument:3053059700_NEWNAME_JSID" 
class="enabledfield" 
id="MultiRenameTable_OR:wt.epm.EPMDocument:3053059700_NEWNAME_JSID" 
style="WIDTH:98% onblur="setJSAttributeValue(this,'NEWNAME_JSID','MultiRenameTable', 'epmdoc_09876889_u46_drw',undefined)" type="text" size="25" ?="" 
trlId="MultiRenameTable_epmdoc_09876889_u46_drw_NEWNAME_JSID"></input> 

です。 また、IEを起動するたびに変更され続けるため、「名前」、「ID」、「trlID」、「onblur」は使用できません。 これを手伝ってください。

Answer 1

私はsetJSAttributeValueから、名前に常に "NEWNAME_JSID"という部分文字列が含まれていると推測しています。ちょうどそれらをループは名前でそれを探して、その後、入力されたすべての要素をつかむ：

Sub xx() 

    Dim ie As Object 
    Dim doc As HTMLDocument 
    Dim lo As IHTMLElementCollection 
    Dim l As IHTMLElement 

    Set ie = CreateObject("internetexplorer.application") 
    ie.navigate "mysiteurl" 
    ie.Visible = True 

    Do While ie.Busy: DoEvents: Loop 
    Do While ie.readyState <> 4: DoEvents: Loop 

    Set doc = ie.document 
    Set lo = doc.getElementsByTagName("input") 

    For Each l In lo 
     If l.Name Like "*NEWNAME_JSID*" Then 
      'Do whatever. 
      Exit For 
     End If 
    Next l 

End Sub