问题描述

这是我的VBA code 主要是创造一个object 然后将资料给上载到网上, 在window10上面完全没问题, 不过当我在Window XP 上面运行时候, 发现虽然他没error不过也没反应, 本来在跑完这个代码时候应该出现一个网页上载, 不过在window xp 只是打开我的desktop.

问题出现的环境背景及自己尝试过哪些方法

我原本以为是window xp 没有 msxml的dll, 不过发现xp有自带 msxml 3和6.

可运行的平台 Window 10 和 Office 2016
不能运行平台 Window XP 和 Office 2003

相关代码

Private Function myPostData(ByVal strURL As String, ByVal strMimeType As String, ByVal 
strBody As String, Optional ByRef strErr As String = "") As String
On Error GoTo Err_myPostData
Dim objHttpRequest As Object, intCount As Integer, blnCancel As Boolean, intCounter As 
Integer
Set objHttpRequest = CreateObject("MSXML2.ServerXMLHTTP")

objHttpRequest.setTimeouts 150000, 150000, 300000, 300000
objHttpRequest.Open "POST", strURL, True
objHttpRequest.send strBody

Do While objHttpRequest.ReadyState <> 4
For intCount = 1 To 500
    If intCount = 500 Then
        If blnCancel Then Exit Do
    End If
    DoEvents
Next intCount
Loop
myPostData = objHttpRequest.responseText
Exit_myPostData:
Set objHttpRequest = Nothing
Exit Function
Err_myPostData:
strErr = Err.Description
Resume Exit_myPostData
End Function