求老师帮忙，我想用vba填充网页的内容，一项需要选择子字节（写好一半了，求修改

zpy2

objIES.getElementById("HuJD").SetAttribute('attr_code','000440019036013006001')
上次setAttribute咋没转大写开头？

ppp1234z

zpy2 发表于 2018-3-30 20:57
objIES.getElementById("HuJD").SetAttribute('attr_code','000440019036013006001')
上次setAttribute咋 ...

升级IE9了，但是SetAttribute这句还是提示缺少表达式

ppp1234z

zpy2 发表于 2018-3-30 20:26
Set div = objIES.getElementById("cdtreedivhjd")
   Set Element = div.ChildNodes.Item(0).ChildNodes. ...

将instr换成StrComp能用了

zpy2

Option Explicit
Sub test()
  'WebBrowser1.navigate "http://192.168.1.105:8080/bsbm/pdo/eh/a55/123/" 改出你的网址
    WebBrowser1.Silent = True                 ' 不提示脚本错误

End Sub
Sub t2()
Dim dom As HTMLDocument
Dim objElement As IHTMLElement
Set dom = WebBrowser1.document
Set objElement = dom.getElementById("HuJD")
objElement.Value = "11"

‘=============函数不能加括号
objElement.setAttribute "attr_code", "111"  


End Sub

zpy2

ppp1234z 发表于 2018-3-31 01:08
将instr换成StrComp能用了

如果是instr的问题，可以试试instr(cell(i,9),"外省")

ppp1234z

zpy2 发表于 2018-3-31 08:52
如果是instr的问题，可以试试instr(cell(i,9),"外省")

好的，感谢你的帮忙