首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

怎么在EXCEL的vba中将调用一个网页文件

2012-05-29 
如何在EXCEL的vba中将调用一个网页文件?例:我要在EXCEL中调用A.htm网页,将网页中的所有文本复制到excel中

如何在EXCEL的vba中将调用一个网页文件?
例:我要在EXCEL中调用A.htm网页,将网页中的所有文本复制到excel中的某个单元格,现如何将网页作为一个对象?word文档作为对象调用我会

[解决办法]
在Excel2003中开始记录宏,手动完成所需功能,结束记录宏,按Alt+F11键,查看刚才记录的宏对应的VBA代码。

[解决办法]
下面是一个操作IE的VBA例子,参考一下吧。()

Private Sub CommandButton1_Click()
Dim objIE As Object '把IE定义成个对象。
Set objIE = CreateObject("InternetExplorer.Application") '对象生成
objIE.Visible = True '设置IE可见
'设置IE表示位置
objIE.Top = 100
objIE.Left = 100


Dim Wait_Time As Date '秒数
Dim yCNT As Integer '行数

For yCNT = 5 To 99 '5~99行
If Trim(Cells(yCNT, 1)) = "" Then Exit For
objIE.Navigate "http://translation.infoseek.co.jp/?ac=Text&lng=en" '.Navigate
Wait_Time = DateAdd("s", 5, Now())
Do While Now() < Wait_Time
DoEvents
Loop

While objIE.ReadyState <> 4 Or objIE.busy = True 
DoEvents
Wend

 
objIE.Document.all("origin_doc").Value = Cells(yCNT, 1) 
'objIE.Document.all("selector_1").Checked = True
objIE.Document.all("submit").Click
Wait_Time = DateAdd("s", 5, Now())
Do While Now() < Wait_Time
DoEvents
Loop
While objIE.ReadyState <> 4 Or objIE.busy = True 
DoEvents
Wend

Cells(yCNT, 2) = objIE.Document.all("converted").Value

Next yCNT

objIE.Quit
Set objIE = Nothing 


End Sub

热点排行