VBA读取htm内容，但读不完整，求帮助

krisfly

我使用VBA读取htm的全部内容，但发现读取出来的内容不全，请大家帮我看看怎么回事吧，谢谢了！

1. Dim f, htm As String
   
2.     f = Application.GetOpenFilename("Html Files(*.htm),*.htm", 1, "Please select a htm file")
   
3.     If f = False Then
   
4.         MsgBox "你没有选择文件", vbOKOnly, "提示"
   
5.         Exit Sub
   
6.     End If
   
7.     '打开htm文档，并读取内容
   
8.     With CreateObject("microsoft.xmlhttp")
   
9.         .Open "gert", f, False
   
10.         .send
    
11.         htm = .responsetext
    
12.     End With

复制代码