如何在EXCEL的vba中将调用一个网页文件？

Question

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

Answer 1

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

Answer 2

下面是一个操作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

Answer 3

谢谢，我已解决，能很好地从网页上将试题下到我的EXCEL工作薄中。特别感谢necsljianing。