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

如何在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 ‘５~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你不勇敢，没人替你坚强！