如何触发网页代码的onclick事件并指定录入单元格

zwpking

这个事件在VBA中用那个函数表达？

该事件的网页源代码：

<div id="A1" class="LeftNavigation" title="信息录入">
信息录入
</div>

本人用VBA写了一键登陆网页的代码，但这个onclick事件不知道怎么写。

另外，请教把ECXEL工作薄指定某一个单元格内容自动写入网页里该如何加入以下VBA中？

该问题的网页源代码：

<input name="tb_MC" type="text" id="tb_MC" style="width:550px;">
<input name="tb_DZ" type="text" id="tb_DZ" style="width:550px;">

VBA代码：
Sub a()
On Error Resume Next
Set ie = CreateObject("internetexplorer.application") '创建一个IE对象
ie.Visible = True
ie.Navigate "网址"
Do Until ie.ReadyState = 4 '等待页面加载完毕
DoEvents
Loop
ie.Document.all("txt_username").Value = "帐号" '输入你的账号
ie.Document.all("txt_pwd").Value = "登陆" '输入你的密码
ie.Document.all("imgbtn").Click '点击登陆按钮
End Sub

Sub 按钮2_Click()

End Sub

触发事件并指定录入.zip (11.35 KB, 下载次数: 12)

2017-9-11 02:34 上传

点击文件名下载附件

phsu

ie.Document.getElementById("A1").Click

zwpking

phsu 发表于 2017-9-11 08:57
ie.Document.getElementById("A1").Click

对了，是否登陆之后要检验是否进入某个网址才能用到
ie.Document.getElementById("A1").Click

现在手动正常流程是登陆之后会转到另一个网址的。

现在我直接把
ie.Document.getElementById("A1").Click加入进去，没有反应。

zwpking

怎么没有人在线吗？

zwpking

是我的说明不清楚吗？

phsu

zwpking 发表于 2017-9-11 11:02
对了，是否登陆之后要检验是否进入某个网址才能用到
ie.Document.getElementById("A1").Click

在沒有實際網頁及帳號密碼實作的情況下，恐怕沒人可幫上忙。

zwpking

看来要找个网站来举例子才行。

zwpking

phsu 发表于 2017-9-11 12:29
在沒有實際網頁及帳號密碼實作的情況下，恐怕沒人可幫上忙。

新重举了一个例子，请老师们看看这要怎么实现？

触发事件并指定录入2.zip (12.61 KB, 下载次数: 15)

2017-9-11 15:07 上传

点击文件名下载附件

zwpking

phsu 发表于 2017-9-11 12:29
在沒有實際網頁及帳號密碼實作的情況下，恐怕沒人可幫上忙。

有了。例子我举好了。

phsu

Sub a()
    Set ie = CreateObject("internetexplorer.application")
    With ie
        .Visible = True
        ie.Navigate "http://demo.oa8000.com/OAapp/WebObjects/OAapp.woa"
        Do Until ie.ReadyState = 4
            DoEvents
        Loop
        ie.document.all("userId").Value = "systemadmin"
        ie.document.all("userPwd").Value = "123456"
        ie.document.all("login_button_img").Click         
        .Navigate "http://demo.oa8000.com/OAapp/WebObjects/OAapp.woa/wo/com.oa8000.mainapp.MiddlePage/lpzEItph3DlFbwmxarvz6g/9.0.11.0.0.1.25?PAGEID=HtCar0111&PAGENAME=用车申请"
    End With
End Sub