求救ActiveSheet.QueryTables.Add(Connection:="URL;

只要寵愛妳

我是菜菜菜菜菜菜鸟，已经折腾了2天了，还是没学习多少，只能求救了！
我需要在几千个网页上抓取2-3个字母，弄了半天的宏和命令，由于水平太低，解决不了，求救与大侠们。
求代码！！！！！！！！
网站如下内容，只有更多，几千个。。。。。

http://www.b2b-c.cn/md/37/3723596.html

http://www.b2b-c.cn/md/37/3723121.html

http://www.b2b-c.cn/md/37/3721453.html

http://www.b2b-c.cn/md/37/3721414.html

http://www.b2b-c.cn/md/27/2792404.html

http://www.b2b-c.cn/md/27/2792580.html

http://www.b2b-c.cn/md/27/2792897.html

http://www.b2b-c.cn/md/27/2792898.html

http://www.b2b-c.cn/md/27/2793198.html

http://www.b2b-c.cn/md/27/2793208.html

http://www.b2b-c.cn/md/27/2793233.html

http://www.b2b-c.cn/md/27/2793346.html

http://www.b2b-c.cn/md/27/2793365.html

http://www.b2b-c.cn/md/27/2793446.html

http://www.b2b-c.cn/md/27/2793522.html

http://www.b2b-c.cn/md/27/2793756.html

http://www.b2b-c.cn/md/27/2794229.html

http://www.b2b-c.cn/md/27/2794678.html

http://www.b2b-c.cn/md/27/2794862.html

http://www.b2b-c.cn/md/27/2794970.html

http://www.b2b-c.cn/md/27/2794971.html

http://www.b2b-c.cn/md/27/2795678.html

http://www.b2b-c.cn/md/27/2795838.html

http://www.b2b-c.cn/md/27/2796157.html

这个是提取网页的VB命令行，但是只能1个1个提取
Sub Macro7()
'
' Macro7 Macro
'

'
    With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.b2b-c.cn/md/27/2789391.html", Destination:=Range("$R$2"))
        .Name = "2789391_18"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

End Sub

只要寵愛妳

{:soso_e105:}