投稿日	： 2003/05/29(Thu) 15:36
投稿者	： 花ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^3: Ｅｘｃｅｌマクロについて

下記のように指定すると開けるようです。

Private Sub Command1_Click()
    Dim xlApp    As Excel.Application
    Dim xlBook   As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\MacroTest.xls")  'オープンするファイル名
    Set xlSheet = xlBook.Worksheets(1)
    xlApp.Visible = True    'Excelを表示
    'PERSONAL.XLS のパスを指定して下さい。
    xlApp.Workbooks.Open "C:\Documents and Settings\YPCS_NO1\Application Data\Microsoft\Excel\XLSTART\PERSONAL.XLS"
    'Macro1 = 作成したマクロ名を指定
    xlApp.Run ("PERSONAL.XLS!Macro1")

    '終了処理
'    xlApp.Quit
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub


＃ 追記
ユーザー定義関数を使用する場合
上記で xlApp.Run ("PERSONAL.XLS!Macro1") をコメントアウトしてテストして見てください

★ - Ｅｘｃｅｌマクロについて - ゆき 05/29-09:54No.4172 ★ - Re^2: Ｅｘｃｅｌマクロについて - ゆき 05/29-15:05No.4176
• Re^3: Ｅｘｃｅｌマクロについて - 花ちゃん 05/29-15:36 No.4178
  • Re^4: Ｅｘｃｅｌ(No.4172 から開いてくだ.. - 花ちゃん 05/29-19:56 No.4182
    • Re^5: Ｅｘｃｅｌ(No.4172 から開いてくだ.. - ゆき 05/30-10:32 No.4183
      • Re^6: Ｅｘｃｅｌ(No.4172 から開いてくだ.. - 花ちゃん 05/30-11:12 No.4185