是否可以引用systems.io.compression?

时间:2018-02-16 20:13:47

标签: .net vba gzip

我正在尝试解压缩我收到gzip压缩的webresponse。我尝试设置Accept-Encoding标头,希望不会收到压缩的JSON字符串,但它没有用,我确信服务器强制对响应进行gzip压缩。

我将此作为EXCEL电子表格的一部分使用。

  

xmlhttprequest对象没有本机解压缩。但   在system.io.compression中有一个.NET库   GZipstream类。

我无法添加对此类所在的system.dll的引用。

有可能吗? 任何人都可以指导我如何完成这项工作吗?

非常感谢提前

1 个答案:

答案 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