Interstage List Works V10.4.0 帳票保管活用機能APIリファレンス(拡張パッケージ)

C.1 オートメーションメソッドのサンプルプログラム

以下に、「Microsoft Excel 2007 spreadsheet for Windows」で実行するマクロの例を示します。斜体で表されている文字列は任意に変更してください。

Sub NVDemo()
         Dim objNavi As Object
         Dim objView As Object

         Set objNavi = CreateObject("ListNavi.Application")
         Set objView = CreateObject("ListViewer.Application")
         'リストナビを表示します。
         objNavi.ShowApp
         '最大化表示します。
         objNavi.Maximize
         '元のサイズに戻します。
         objNavi.Restore
         'リスト管理サーバへの接続ダイアログボックスを表示します。
         objNavi.Connect "UserID", "", "Server", 1
         'すべて選択します。
         objNavi.SelectAllItem
         'リストビューアを起動します。
         objView.Open (objNavi.GetOpenFilename())
         'リストビューアを表示します。
         objView.ShowApp
         'ウィンドウサイズを変更します。
         objView.Size 400, 300
         'リストビューアを最大表示します。
         objView.Maximize
         '処理を終了します。
         objNavi.Disconnect
         objNavi.Quit
         objView.Quit
End Sub

注意

実行するマクロの文法や仕様については、Microsoft Excelのマニュアルを参照してください。

また、Windows Server 2008などのWSH(Microsoft Windows Scripting Host)機能の搭載された環境では、以下に示すようなスクリプトを実行することができます。

斜体で表されている文字列は任意に変更してください。

Dim objNavi
Dim objView

set objNavi = WScript.CreateObject("ListNavi.Application")
set objView = WScript.CreateObject("ListViewer.Application")

Call NVDemo()

Sub NVDemo()
         'リストナビを表示します。
         objNavi.ShowApp
         '最大化表示します。
         objNavi.Maximize
         '元のサイズに戻します。
         objNavi.Restore
         'リスト管理サーバへの接続ダイアログボックスを表示します。
         objNavi.Connect "UserID","","Server",1
         'すべて選択します。
         objNavi.SelectAllItem
         'リストビューアを起動します。
         objView.Open(objNavi.GetOpenFilename())
         'リストビューアを表示します。
         objView.ShowApp
         'ウィンドウサイズを変更します。
         objView.Size 400,300
         'リストビューアを最大表示します。
         objView.Maximize
         MsgBox("処理を終了します。")
         '処理を終了します。
         objNavi.Disconnect
         objNavi.Quit
         objView.Quit
End Sub

注意

WSH(Microsoft Windows Scripting Host)の文法や仕様については、WSH(Microsoft Windows Scripting Host)のマニュアルを参照してください。