web-dev-qa-db-ja.com

ExcelでWebサービスを呼び出す

Excel 2007のVBAモジュールで、Webサービスを呼び出すことはできますか?その場合、コードスニペットはありますか? Web参照を追加するにはどうすればよいですか?

25
Jeremy

はい、できます!

私はそれを行うプロジェクトに取り組みました(コメントを参照)。残念ながら、そのサンプルはありませんが、グーグルでは次のことが明らかになりました。

ExcelとVBAを使用して複数のWebサービスからのデータを統合する方法

ステップバイステップ:VBA(ExcelまたはWord)を介したWebサービスの利用

VBA:Soap Webサービスの使用

23
Mostlyharmless

MSの概要は次のとおりです。

Excel 2007でのWebサービスの使用

6
user262136

更新された回答については、このSO質問:

Excel 2010でVBAコードを使用してWebサービスを呼び出す

ただし、両方のスレッドをマージする必要があります。

3
dgorissen

Microsoft Excel Office 2007で、「Web Service Reference Tool」プラグインをインストールしてください。そして、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
1