请问 HTML.body.innerhtml为嘛在excel2003不运行啦？

Kaohsing

昨天还能运行，之后运行啦360后，运行到红字部分就报错，2007能运行，不知，特来请教？
Sub download()   
    Set HTML = CreateObject("htmlfile")   
    With CreateObject("WinHttp.WinHttpRequest.5.1")
         .Open "GET", "http://www.byfy.cn/info/1784/20046.htm", False
         .send
       HTML.body.innerhtml= .responsetext
      End With         
        Set tb = HTML.all.tags("table")   
End Sub

截图

Kaohsing

这是出现问题的附件

sac100

和源代码的内容有关

Kaohsing

sac100 发表于 2016-12-2 14:09
和源代码的内容有关

但是在excel2007可以运行呀。

Kaohsing

难道抓取数据，只能是split或者正则啦吗？这个网页可是有table标签啊。

Kaohsing

昨天又是杀毒，又是重装excel，又是装dll，又是重启，就是不行，这不今早开机，又可以啦，实在搞不明白。