Web sayfasındaki bir kutudaki değeri otomatik olarak excel kullanarak nasıl dolduracağız

Question

Bu, ilk defa böyle bir şeyden bahsetmiyorum ... ama evet ben bir çaylaklıyım ve yardım ihtiyacım var ... vba excel kullanarak web sayfasındaki bir kutuda bir değeri doldurmakta sorun.

kutusunun kaynak kodu yazdığım kod O değeri 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 

olduğunu

<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> 

olduğunu. Ayrıca "name", "ID", "trlID", "onblur" kullanamıyorum çünkü IE'yi her başlattığımda sürekli değişiyorlar. Lütfen bana yardım edin.

Answer 1

Adın her zaman "NEWNAME_JSID" alt dizesini içereceğini tahmin ediyorum setJSAttributeValue. Tam o içlerinden döngü adına onu arıyor, giriş elemanlarının tüm kapmak:

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