09/07/23 00:42:00
現在Excelで作ったxmlを特定のURLへ送信するプログラムを作成しています｡
(Microsoft XML version2.0使用)
Sub xml()
Dim aaa As Integer
aaa = "001"
Dim bbb As String
bbb = "001"
Dim xmlDoc As MSXML.DOMDocument
Dim xmlPI As IXMLDOMProcessingInstruction
Dim node(3) As IXMLDOMNode
Dim attr As MSXML.IXMLDOMAttribute
Set xmlDoc = New MSXML.DOMDocument
Set xmlPI = xmlDoc.appendChild(xmlDoc.createProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8"""))
Set node(1) = xmlDoc.appendChild(xmlDoc.createNode(NODE_ELEMENT, "TEST", ""))
Set node(2) = node(1).appendChild(xmlDoc.createNode(NODE_ELEMENT, "test1", "")): node(2).Text = aaa
Set node(2) = node(1).appendChild(xmlDoc.createNode(NODE_ELEMENT, "test2", "")): node(2).Text = bbb
'作成されたxml確認用
xmlDoc.Save ("test.txt")
End Sub
①set nodeに入れたaaaとbbbですが、1と表示されてしまいます。001と表示するにはどうしたら良いのでしょうか。
②作成された値(xml)を特定のURLへ送信したいのですが、どのライブラリ？等を利用すれば宜しいでしょうか
（値を送ると、<result>NG</result>といった値が返却される予定です）
すみませんがお力添え頂けると幸いです。