document.getElementsByName("wfcode")[0].value 赋值问题

tt89004808

在用VBA调用IE访问网站时，我想将某个值写入流程编号那个位置，代码应该如何写呢，试了好久找了好多资料没成功。。附上部分代码
网页源文件.rar (187.77 KB, 下载次数: 3)

2017-6-18 17:57 上传

点击文件名下载附件
Sub 批量打印OA()
Dim ie As New InternetExplorer '创建一个IE对象
Dim doc As New MSHTML.HTMLDocument
Set httpRequest = CreateObject("Msxml2.XMLHTTP.3.0")

  With ie
   .Navigate "http://oa.wtoip.com:8081"  'Navigate方法可以打开指定的网页
   .Visible = True '打开后要显示网页
   Do Until ie.ReadyState = READYSTATE_COMPLETE '如果IE加载宏完成
    DoEvents '在窗体加载时转交操作权
   Loop

    .Document.all("loginid").innerText = "H" 'Document.All("元素名称或ID") 可以引用某个元素
    .Document.all("userpassword").innerText = "t" '在密码框内输入密码
    .Document.all("login").Click  '点击登陆按钮<input name="submit" tabindex="3" class="hand lgsm" id="login" type="submit" value="登录">
'    .Document.all.tags("SPAN")(174).Click

    '点击我的流程
    '点击批量打印

    '输入流程编号



    .Document.getElementsByName("wfcode")(0).Value = "123456"


end with
end sub

tt89004808

1