参考になるかわかりませんが、とあるディレクトリに存在する EXCELファイルを起動するスクリプトです。 Sub Initialize Dim oApp As Variant Set oApp = CreateObject("Excel.Application") oApp.Visible = True With oApp .Workbooks.Open "C:\Lotus\Notes\Data\Mcr_Q.xls" .Application.Run "Mcr_Q.xls!MakeQCchk14_T1_Start" End With End Sub ファイル名とパスは適切なものに修正してみてください。