fiddler可以保存responseBody，为什么我VBA保存之后的文件打不开？

xlsber

向大家请教一个问题，我在网页上点击下载文件之后，可以保存文件test.xlsx到硬盘上，并且可以正常打开，可是我采用下面的代码保存就无法打开文件
                Dim FileName As String, fn, bytData
                FileName = ThisWorkbook.Path & Application.PathSeparator & "test.xlsx"
                fn = FreeFile()
                Open FileName For Binary As #fn
                Seek fn, 1
                bytData = .ResponseBody  'StrConv(.ResponseBody, vbUnicode)
                Put fn, , bytData
                Close fn

生成的文件大小和Responseheader中Content-Length: 11934的字节是一样的，为什么会打不开？郁闷。是写文件有问题还是接收有问题？大家有没有建议？

xlsber

顺便说一下，网页手动下在的文件大小和winhttp　vba下载的文件大小一致

xlsber

通过文件对比器可以看到就是文件头部多增加了一些字节（右边文件），如果将左边文件的头部替换掉右边的保存之后就可以正常打开，是什么原因导致的呢？难道responsebody不是仅body?还增加了ｒｅｓｐｏｎｓｅ的头部码？？

xlsber

看了下就是前面１２个字节，如果我将文件从第１３个字节到最后存储到新文件，新文件是可以正常打开的，所以现在就是不解是什么原因导致的。

joforn

dim bytData() as byte试试