XMLHTTP

最新推荐文章于 2024-06-20 18:52:23 发布

原创最新推荐文章于 2024-06-20 18:52:23 发布 · 357 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#string #ie #function #byte

Private Sub CommandButton1_Click() 'Msxml2.XMLHTTP

Dim IE As Object


Set IE = CreateObject("Msxml2.XMLHTTP")
IE.Open "GET", "http://www.baidu.com/", False
IE.send ""
Range("A1") = CodeConversionTxt1(IE.responseBody)
Set IE = Nothing

End Sub



Function CodeConversionTxt1(Str) As String    '转换GB2312至UTF8 方法
Dim strBuffer As String
Dim lngBufferSize As Long
Dim lngResult As Long
Dim arrByte() As Byte
Dim i As Long

    ReDim arrByte(UBound(Str)) As Byte
    For i = 0 To UBound(Str)
        arrByte(i) = Str(i)
    Next i
    lngBufferSize = (UBound(arrByte) + 1) * 2
    strBuffer = String$(lngBufferSize, vbNullChar)
    lngResult = MultiByteToWideChar(936, 0, arrByte(0), lngBufferSize / 2, StrPtr(strBuffer), lngBufferSize)
    CodeConversionTxt1 = Left(strBuffer, lngResult)

End Function