Attribute VB_Name = "Module1"
'■　マクロ５００連発＜第２段＞
'
'　分析ツールの「データ分析」ダイアログを利用する
'
'  Copyright(C) 2000 Sunago
'
'　※このマクロを利用するには、Excelインストールのオプションで
'  アドイン：分析ツールを組み込んでおく必要があります。

Option Explicit

Sub Macro1()
Dim vntResult   'ダイアログの選択
Dim vntName
Dim ps

    ps = Application.PathSeparator      ' Excel98(Mac)対策
    On Error Resume Next
    vntName = Workbooks("Procdb.xla").Name
    On Error GoTo 0
    If IsEmpty(vntName) Then
        '分析ツールアドインを開く
        '※参照可能なライブラリに設定せずに動作させるため。
        Workbooks.Open Application.LibraryPath & _
                        ps & "Analysis" & ps & "Procdb.xla"
    End If
    'ダイアログボックス定義テーブル(Analysis)を表示する
    vntResult = ShowDialog("'[Procdb.xla]RES'!dbAnalysis")
    MsgBox vntResult

End Sub

Function ShowDialog(arg As String)
Dim srng
    'Excel4マクロを用いて、ダイアログを表示する
    srng = "DIALOG.BOX(" & arg & ")"
    ShowDialog = Application.ExecuteExcel4Macro(srng)
End Function