DimstrAsString Dimpacked_bytesAsVariant Dimunpacked_bytesAsVariant str="随便测试一个相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长相当长的字符串" '压缩 packed_bytes=StrConv(str,vbFromUnicode) MsgBox"压缩前字节数:"&LenB(packed_bytes) CallPackStream(packed