想把EXCEL里面已知的数据发送到这个网站的框框里面,然后提交上去!,目前用的是IE方法。
网站入口处是一个点选框,层次太多,不知道怎么找元素怎么操作,HTML完全不懂,求老师帮助,感谢!
Sub 向网页提交数据()
Dim sURL As String, IE As Object
s = "1,7,9" '输入内容,我自己已知的!
Set IE = CreateObject("InternetExplorer.Application")
sURL = "https://www.ph158nb.com/login/index '查询内容
'网站账号:CHULIA1 密码:18620355230
With IE
.Visible = True
IE.Navigate sURL
Do Until .ReadyState = 4 And .Busy = False '信息已经返回,可以开始处理
DoEvents
Loop
.Document.getElementById("gameorder-1").Value = s '填入查询内容
.Document.getElementById("J-submit-order").Click '点击
End With
Close
IE = Nothing
End Sub
http://www.excelpx.com/thread-455685-1-1.html