Vb6 在ERP9响应xml中

当向tally发送xml以将tally中的任何信息提取到VB中时，响应xml仅显示TallyPrime服务器正在运行。当xml已更改或在EXRes从tally接收响应之前插入pause/timed时，响应是相同的

Public Sub LdrEx()
Dim ExCd As String
ExCd = LedXmCd()
Dim objXML As MSXML2.ServerXMLHTTP
Set objXML = New MSXML2.ServerXMLHTTP
objXML.Open "POST", "http://localhost:9000", False
objXML.send ExCd
Dim EXRes As String
EXRes = objXML.responseXML
Set objXML = Nothing
Dim TFile As String
TFile = Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Desktop\LdReceived.xml"
  Open TFile For Output As #1
   Print #1, EXRes
  Close #1
End Sub

LedXmCd（）中的XML是：

1.
出口
资料
凭证登记簿
20210101
20210101
收据

通过在变量ExCd中添加watch和断点，检查XML是否保存在变量ExCd中

objXML.send ExCd

---

这不是VB.NET，所以我为您将标记更改为VB6-如果它应该是VBA，请更改它。尝试使用

EXRes=objXML.ResponseText

。JFYI，

ResponseXml

是一个

DOMDocument

对象，而不是

String

，当前代码正在检索其

Xml

默认属性。不幸的是，只有当响应为内容类型发送信号时，这个方便的

DOMDocument

实例才会自动初始化。