我正在尝试解压缩我收到gzip压缩的webresponse。我尝试设置Accept-Encoding标头,希望不会收到压缩的JSON字符串,但它没有用,我确信服务器强制对响应进行gzip压缩。
我将此作为EXCEL电子表格的一部分使用。
xmlhttprequest对象没有本机解压缩。但 在system.io.compression中有一个.NET库 GZipstream类。
我无法添加对此类所在的system.dll的引用。
有可能吗? 任何人都可以指导我如何完成这项工作吗?
非常感谢提前
答案 0 :(得分:0)
我不确定这对你的情况是否有帮助,但这里有一些VBA解压缩文件。
Public Sub UnzipFiles(FName As Variant, FileNameFolder As Variant, sFilter As String)
Dim fso As Object
Dim oApp As Object
Dim DefPath As String
Dim strDate As String
Dim fileNameInZip As Variant
Set oApp = CreateObject("Shell.Application")
For Each fileNameInZip In oApp.Namespace(FName).Items
If LCase(fileNameInZip) Like LCase(sFilter) Then
If Dir(FileNameFolder & "\" & oApp.Namespace(FName).Items.Item(CStr(fileNameInZip))) = "" Then
oApp.Namespace((FileNameFolder)).CopyHere oApp.Namespace(FName).Items.Item(CStr(fileNameInZip))
End If
End If
Next
End Sub