学习下VBA网抓最基本的功能。

maolin23

附件源.txt是网页源文件，里面有118个商品信息，需要抓出BOOK1中的所有商品信息。
请大家完善如下代码，并详细的说明下每行代码的作用，谢谢。

Private Sub 抓出商品信息()
Dim IE                       '设置IE变量
On Error Resume Next '如果出现错误，继续运行
Set IE = CreateObject("InternetExplorer.application") '设IE为InternetExplorer对象
IE.Visible = FALSE                                               '运行时IE不可见
  IE.Navigate URL:="http://duanwu.4006661166.com" '网址
        Do Until IE.ReadyState = 4
            DoEvents
        Loop



Set IE = Nothing
Set ID = Nothing
End Sub