Word または Excel で Office VBA マクロから ASP.NET を使用して XML Web サービスを使用する方法

[アーティクル]
06/20/2023
適用対象:

Microsoft Word, Microsoft Excel

概要

この記事では、Word または Excel の Visual Basic for Applications (VBA) マクロの ASP.NET を使用して XML Web サービスを使用する方法について説明します。

詳細情報

Office マクロの ASP.NET を使用して XML Web サービスと正常に通信するには、マクロが実行されているクライアントコンピューターに SOAP Toolkit をインストールする必要があります。したがって、この記事のデモンストレーションには SOAP Toolkit が必要です。 SOAP Toolkit の詳細については、ダウンロード手順を含みます。

ASP.NET を使用して XML Web サービスを作成する

Microsoft Visual Studio .NET を起動します。 [ファイル] メニューの [新規作成] をクリックし、[プロジェクト] をクリックします。 [新しいプロジェクト] ダイアログボックスで、[プロジェクトの種類] で [Visual Basic プロジェクト] をクリックし、[テンプレート] の [ASP.NET を使用して XML Web サービス] をクリックします。プロジェクトに SQLQuery という名前を付け、[OK] をクリックします。既定では、Service1 のデザインフォームが表示されます。
[表示] メニューの [コード] をクリックして、Service1 のコードウィンドウを表示します。
次のコードをコードウィンドウの上部に貼り付けます。
```
Imports System.Data.SqlClient
```

Service1 クラス (エンドクラスの直前) に次のコードを貼り付けます。

メモこのコードを実行する前に、ユーザー ID <のユーザー名> とパスワード =<厳密なパスワード> を正しい値に変更する必要があります。ユーザー ID に、データベースに対してこの操作を実行するための適切なアクセス許可があることを確認します。

Private Const strConn = "User ID=<username>;Password=<strong password>;Initial Catalog=pubs;Data Source=localhost"

<WebMethod()> Public Function GetIDs() As String()
    Dim i As Integer

' Create an open connection.
    Dim oConn As New SqlConnection(strConn)
    oConn.Open()

Dim oDataset As New System.Data.DataSet()
    ' Execute the query.
    Dim oAdapter As New SqlDataAdapter("SELECT au_id FROM authors", oConn)
    ' Fill the dataset.
    oAdapter.Fill(oDataset)

Dim s(oDataset.Tables(0).Rows.Count - 1) As String
    ' Create an array of IDs.
    For i = 0 To oDataset.Tables(0).Rows.Count - 1
        s(i) = oDataset.Tables(0).Rows(i).ItemArray.GetValue(0)
    Next i
    ' Return the array.
    Return s
End Function

<WebMethod()> Public Function QueryDatabase(ByVal sID As String) As String()
    Dim i As Integer

' Create an open a connection.
    Dim oConn As New SqlConnection(strConn)
    oConn.Open()

Dim oCommand As New SqlCommand("SELECT * FROM authors WHERE au_id='" + sID + "'", oConn)
    Dim oReader As SqlDataReader
    ' Execute the query and assign results to a SqlDataReader.
    oReader = oCommand.ExecuteReader()
    oReader.Read()

Dim s(7) As String
    ' Build an array of results.
    For i = 0 To 7
        s(i) = CType(oReader.GetValue(i), String)
    Next
    ' Return the array.
    Return s
End Function

注:

SQL Server pubs データベースの有効な接続文字列になるように、コード内の strConn 定数を変更します。

Web サービスをテストする

F5 キーを押して、Web サービスソリューションをビルドして実行します。 .NET 統合開発環境 (IDE) から Web サービスを実行すると、Microsoft Internet Explorer によってソリューションから Service1.asmx が読み込まれます。
GetIDs メソッドをテストします。これを行うには、GetIDs ハイパーリンクをクリックし、[呼び出し] をクリックします。

このメソッドは、Web サービスが pubs データベースから抽出した作成者 ID の一覧を返します。結果は、ブラウザーに XML として表示されます。
ブラウザーウィンドウまたはウィンドウを閉じて Visual Studio に戻ります。
もう一度 F5 キーを押して Web サービスを実行します。
QueryDatabase メソッドをテストします。これを行うには、QueryDatabase ハイパーリンクをクリックし、sID パラメーターに「409-56-7008」と入力し、[呼び出し] をクリックします。

このメソッドは、ID 409-56-7008 の作成者の詳細を返します。結果は、ブラウザーに XML として表示されます。
ブラウザーウィンドウまたはウィンドウを閉じて、Web サービスを終了します。

Word から Web サービスを使用する

このサンプルでは、Word に付属する Elegant Fax テンプレートを使用します。このサンプルは、このテンプレートがないと機能しません。テンプレートをインストールするには、次の手順に従います。

Office セットアップウィザードを開始します。
ウィザードで、[機能の追加と削除] をクリックします。
[インストールする機能] で、Microsoft Excel for Windows を展開します。 [スプレッドシートテンプレート] をクリックし、[マイコンピューターから実行] をクリックして、[更新] をクリックします。

Word から Web サービスを使用するには、次の手順に従います。

Word を起動します。既定では、空白のドキュメントが作成されます。
[ツール] メニューの [マクロ] をクリックし、[Visual Basic エディター] をクリックします。 [挿入] メニューの [モジュール] をクリックして、空のコードモジュールを挿入します。
**[ツール] **メニューの [ 参照] をクリックします。
[ 参照 ] ダイアログボックスで、 Microsoft SOAP タイプライブラリを選択し、[ OK] をクリックします。

メモ[参照] ダイアログボックスで Microsoft SOAP タイプライブラリを使用できない場合は、[参照] をクリックします。 [ 参照の追加 ] ダイアログボックスで、ディレクトリ C:\Program Files\Common Files\MSSoap\バイナリを参照し、mssoap1.dllを選択します。 [ 開く ] をクリックし、[OK] をクリック します。

コードモジュールに次のコードを貼り付けます。

Public Const sServer = "localhost"

Sub GenerateForm(sID As String)
    Dim oSOAPClient As Object

On Error GoTo errhand
    Set oSOAPClient = CreateObject("MSSOAP.SoapClient")
    oSOAPClient.mssoapinit "http://" + sServer + "/SQLQuery/Service1.asmx?wsdl", "Service1", "Service1Soap"

Dim arrTemp() As String
    arrTemp = oSOAPClient.QueryDatabase(sID)

Dim oDoc As Word.Document

Set oDoc = Application.Documents.Add("Elegant Fax.dot")
    oDoc.Bookmarks("Company").Range.Text = arrTemp(2) + " " + arrTemp(1) + vbCrLf + _
            arrTemp(4) + vbCrLf + arrTemp(5) + ", " + arrTemp(6) + "  " + arrTemp(7) + vbCrLf + _
            arrTemp(3)           
    Exit Sub
errhand:
    MsgBox "Error #" + Err.Number + ": " + Err.Description
End Sub

Sub ShowForm()
  ' Show the dialog box to the user.
  UserForm1.Show
End Sub

メモ作成した Web サービスをホストしているサーバーを指すように sServer 定数を変更します。

[挿入] メニューの [UserForm] をクリックして、空のユーザーフォームを挿入します。
フォームに大きなリストボックスとコマンドボタンを配置します。
[表示] メニューの [コード] をクリックして、ユーザーフォームのコードウィンドウに変更します。

コードウィンドウの内容を次のように置き換えます。

Private Sub CommandButton1_Click()
    ' Generate a FAX based on the ID.
    GenerateForm ListBox1.List(ListBox1.ListIndex)
    UserForm1.Hide
End Sub

Private Sub UserForm_Initialize()
    Dim oSOAPClient As Object

' Create a SOAP client.
    Set oSOAPClient = CreateObject("MSSOAP.SoapClient")
    ' Initialize the SOAP client to the Web service.
    oSOAPClient.mssoapinit "http://" + Module1.sServer + "/SQLQuery/Service1.asmx?wsdl", "Service1", "Service1Soap"

Dim arrTemp() As String
    ' Get an array of IDs.
    arrTemp = oSOAPClient.GetIDs()

' Fill the list box with IDs.
    For i = 0 To UBound(arrTemp)
      ListBox1.AddItem arrTemp(i)
    Next
End Sub

VBA エディターを閉じて、ドキュメントに戻ります。
[ツール] メニューの [マクロ] をクリックし、[マクロ] をクリックします。 [マクロ] ダイアログボックスで ShowForm マクロを実行して、ID の一覧を表示します。一覧から ID を選択し、コマンドボタンをクリックして、そのユーザーの情報を含む FAX ドキュメントを生成します。

Excel から Web サービスを使用する

このサンプルでは、Excel に付属する売上請求書テンプレートを使用します。このサンプルは、このテンプレートがないと機能しません。テンプレートをインストールするには、次の手順に従います。

Office セットアップウィザードを開始します。
ウィザードで、[機能の追加と削除] をクリックします。
[インストールする機能] の [Microsoft Excel for Windows] を展開し、[スプレッドシートテンプレート] を展開して、[売上請求書] をクリックします。 [マイコンピューターから実行] をクリックし、[更新] をクリックします。

Excel から Web サービスを使用するには、次の手順に従います。

Excel を起動します。空白のブックは既定で作成されます。
[ツール] メニューの [マクロ] をクリックし、[Visual Basic エディター] をクリックします。 [挿入] メニューの [モジュール] をクリックして、空のコードモジュールを挿入します。
**[ツール] **メニューの [ 参照] をクリックします。
[ 参照 ] ダイアログボックスで、 Microsoft SOAP タイプライブラリを選択し、[ OK] をクリックします。

メモ[参照] ダイアログボックスで Microsoft SOAP タイプライブラリを使用できない場合は、[参照] をクリックします。 [ 参照の追加] ダイアログボックスで、ディレクトリ C:\Program Files\Common Files\MSSoap\バイナリを参照し、mssoap1.dllを選択します。 [ 開く ] をクリックし、[OK] をクリック します。