ExcelでWebサービスを呼び出す
-
19-08-2019 - |
質問
Excel 2007のVBAモジュールでは、Webサービスを呼び出すことはできますか?その場合、コードスニペットはありますか? Web参照を追加するにはどうすればよいですか
解決
はい、できます!
それを行うプロジェクトに取り組みました(コメントを参照)。残念ながら、その中のコードサンプルはありませんが、グーグルはこれらを明らかにしました:
ExcelとVBAを使用して複数のWebサービスからのデータを統合する方法
他のヒント
MSからの概要は次のとおりです。
Microsoft Excel Office 2007では、<!> quot; Web Service Reference Tool <!> quot;をインストールしてください。プラグイン。そして、WSDLを使用してWebサービスを追加します。モジュールで次のコードを使用して、Webサービスから必要なデータを取得します。
Sub Demo()
Dim XDoc As MSXML2.DOMDocument
Dim xEmpDetails As MSXML2.IXMLDOMNode
Dim xParent As MSXML2.IXMLDOMNode
Dim xChild As MSXML2.IXMLDOMNode
Dim query As String
Dim Col, Row As Integer
Dim objWS As New clsws_GlobalWeather
Set XDoc = New MSXML2.DOMDocument
XDoc.async = False
XDoc.validateOnParse = False
query = objWS.wsm_GetCitiesByCountry("india")
If Not XDoc.LoadXML(query) Then 'strXML is the string with XML'
Err.Raise XDoc.parseError.ErrorCode, , XDoc.parseError.reason
End If
XDoc.LoadXML (query)
Set xEmpDetails = XDoc.DocumentElement
Set xParent = xEmpDetails.FirstChild
Worksheets("Sheet3").Cells(1, 1).Value = "Country"
Worksheets("Sheet3").Cells(1, 1).Interior.Color = RGB(65, 105, 225)
Worksheets("Sheet3").Cells(1, 2).Value = "City"
Worksheets("Sheet3").Cells(1, 2).Interior.Color = RGB(65, 105, 225)
Row = 2
Col = 1
For Each xParent In xEmpDetails.ChildNodes
For Each xChild In xParent.ChildNodes
Worksheets("Sheet3").Cells(Row, Col).Value = xChild.Text
Col = Col + 1
Next xChild
Row = Row + 1
Col = 1
Next xParent
End Sub
所属していません StackOverflow