[求助]请问高手，可以设置自动从web页下载数据吗？

lonan2979

初学vba，做了个小程序，但是，如果能自动从web页下载数据到工作表中，岂不更好？ 设想是：设置一个窗体，输入web页地址、登录注册名、密码等，然后自动按所设置的相关条件查询、下载数据并粘贴至表中。 请问高手，这个想法不知如何实现？

[此贴子已经被作者于2005-12-2 21:20:08编辑过]

lonan2979

期待高手ing~~~~~~

lonan2979

以下这段代码可以通过VBA打开web页，但如何通过VBA点击页内相应按钮并复制粘贴其数据呢？望高手指点啊

Sub OpenWebpageAndLogin()

Dim objIE As Object

'On Error GoTo error_handler

Set objIE = CreateObject("InternetExplorer.Application")

With objIE

.Navigate "http://172.19.2.12:8080/"

Do While .Busy: DoEvents: Loop

Do While .ReadyState <> 4: DoEvents: Loop

.Visible = True

With .Document.forms(0)

.UserName.Value = "yourname"

.passwrd.Value = "yourpassword"

.Submit

End With

.Visible = True

End With

Set objIE = Nothing

Exit Sub

error_handler:

MsgBox ("Unexpected Error, I'm quitting.")

objIE.Quit

Set objIE = Nothing

End Sub

rg555555

我也想知道。

lonan2979

plxmm,你也许会的

青山依旧

plxmm晚上是不会来的.

偶也想学,想死它了.

知道的高手出招吧.

lonan2979

3楼的代码能解决打开web页，现在的问题是：如何在web页指定的地方通过vba自动录入登录名及密码，再选择（或通过窗体录入）相应条件，从数据库中生成所需数据——其中一个关键，能否设置自动点击web中你所要的按钮？

sjinun

URL;http://www.abcd.com/login.aspx?__VIEWSTATE=" & MyViewstate & "&TxtUser=" & MyUsername & "&TxtPwd=" & MyPassword & "&ddlCountry=CHIN

.asp不需要__viewstatr这一项

你将这段写到网页登陆上去不就行了吗.