Question

现在我可以使用“MSDN Web服务工具包2.0”通过Excel和几行代码将1 xml记录发布到Web服务，但我需要能够一次发布大约100条记录。

的问题：

所以我认为我需要一个带有“暂停”的vba循环，因为我认为在发布每个记录的xml后，需要删除/清除Web服务“响应”。
我需要一种方法来调用大约100条记录的XML数据：要么我需要调用已经应用了XSD的第二个Excel选项卡上的数据（请注意，XSD excel产生的稍微偏离以便关注我）或者我需要调用一个包含所有XML数据或其他方式的文本文件吗？

尝试通过Excel工作表中的Web服务将这些数据简单地导入到应用程序中。现在，工具包完成了大部分繁重工作，我只需要一种方法来循环访问100条记录。

THX！

**Code so far that posts 1 record:**

Private Sub insPat_Click()
Dim info As New clsws_FDirect
Dim addpat As String
Dim response As String

addpat = Range("B10").Text
response = info.wsm_PatientAdd(addpat)
Set responserange = Range("B11")
responserange.Value = response

End Sub


**Correct XSD:**
<Patient>
<FacID>TEST</FacID>
<PatID>99</PatID>
<PatLName>IMPORT</PatLName>
<PatFName>MISTER</PatFName>
<Allergy>Sulfites</Allergy>
<Floor>11</Floor>
<NsID>1F</NsID>
<Room>111</Room>
<Bed>1</Bed>
</Patient>

将Excel数据发布到XML Web服务

0 个答案: