xp系统打不开vba服务器,vba MSXML在window xp上不能正常运行

问题描述

这是我的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