如何在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