Project.RunReport()の実行サンプル

サポートに頂きましたご質問と回答の要約です。

○ご質問

APIメソッド(Project.RunReport)を利用するまでの手順で
何か動作済のコードなどあるようであれば教えていただけると幸いです。

AutoReport.vbs
-----------------
Option Explicit

Dim MyRepo

Set MyRepo = CreateObject("EA.Repository")
MyRepo.OpenFile "C:\test\test.eap"

MsgBox MyRepo.ProjectGUID
MsgBox MyRepo.GetPackageByID(7).Name '←ここまでは正常に実行可能(Package7 の名前が表示される)
MyRepo.GetProjectInterface.RunReport 7,"","C:\test" '←「未サポートの操作が行われました」エラーが発生する

MyRepo.Exit
------

○回答

ProjectオブジェクトのRunReport()メソッドに関しまして、
ご報告にございますメッセージにつきましては、
引数の指定を正しく行うことで解決することができます。

第3引数は、現状のままで結構ですが、そのほかの引数の
指定に関しましては以下のように指定してください。

第1引数には、パッケージのGUIDを指定してください。
第2引数には、プロジェクト内に存在するテンプレートの名前を
指定してください。

例えば、以下のように指定します。

-----------------
Dim proj
Dim pkg

Set proj = MyRepo.GetProjectInterface()
If Not (proj Is Nothing) Then
Set pkg = MyRepo.GetPackageByID(7)
If Not (pkg Is Nothing) Then
proj.RunReport pkg.PackageGUID, "(要求テンプレート)", "C:\test"
End If
End If
-----------------

ご参考になりましたら幸いです。

またご不明な点などございましたら、ご連絡ください。

今後ともよろしくお願いいたします。