嗯，多谢你解答。试验了，出现了另外一种乱码，自己又再次琢磨了http://club.excelhome.net/thread-893760-1-1.html这个帖子的第一帖，问题解决了，原因是'因为XMLHTTP默认是UTF-8(原网页正是 此编码格式)，不能识别gb2312，会发现数据乱码，所以不能采用.responsetext对象来得到字符串。

Sub te4t()

Dim strRespText$, tt$, i&, DW$

On Error Resume Next

For i = 3 To 4

a = Cells(i, 1).Value

With CreateObject("Microsoft.XMLHTTP")

.Open "GET", a, False                                              '要抓取的链接，"GET"尽量用大写，以免某些系统不兼容

.Send

tt = .responsetext

With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")    'DataObject对象，数据放入剪贴板，记事本观察数据

.SetText tt                                                    '因为XMLHTTP默认是UTF-8，不能识别gb2312，会发现数据乱码

.PutInClipboard                                                '所以不能采用.responsetext对象来得到字符串

End With

Set BytesToBstr = Server.CreateObject("Adodb.Stream")

tt = BytesToBstr(.responsebody, "GB2312")                          '因此要用Adodb.Stream对象

'tt = StrConv(.ResponseBody, vbUnicode, &H804)                     '或者StrConv函数，从.ResponseBody得到字符串

'tt = StrConv(.ResponseBody, vbUnicode)                            '因网页为GB2312，简体版的操作系统也可以不写第三个参数

With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")    '得到的字符串放入剪贴板，记事本观察数据

.SetText tt                                                    '数据正常显示，可以提取了

.PutInClipboard

End With

Cells(i, 2).Value = WorksheetFunction.Substitute(Split(Split(tt, "

")(1), "")(0), Chr(10), " ")

Cells(i, 3).Value = WorksheetFunction.Substitute(Split(Split(tt, "16.spid"" target=""_blank"">")(1), "

For j = 1 To 100

Cells(i, 3 + j).Value = WorksheetFunction.Substitute(Split(Split(tt, "")(j), "

If Cells(i, 3 + j) = "" Then GoTo xiayige

Next

xiayige:

End With

Next

MsgBox "【完】"

End Sub

换成这个代码问题就解决了。