VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

マクロを無効にしてExcelをオープンする（VB6.0 応用編） ( No.3 ) 　[親スレッドへ]

日時： 2007/08/19 19:01
名前： 花ちゃん: ***********************************************************************************
* カテゴリー：[エクセル][][]                                                      *
* キーワード：マクロ無効,Auto_Open,イベントマクロ,                                *
***********************************************************************************

元質問：ＥＸＣＥＬマクロ無効オープン - Ｋ．Ｉ　2003/02/18-15:52 No.2767

ＶＢからＥｘｃｅｌシートを開く時、マクロを無効にして開く方法を教えてください

-----------------------------------------------------------------------------------
Re^7: ＥＸＣＥＬマクロ無効オープン - 花ちゃん  2003/02/19-14:53 No.2798
-----------------------------------------------------------------------------------

　　Set xlApp = CreateObject("Excel.Application")
　　Set xlBook = xlApp.Workbooks.Open("C:\Temp.xls")
　　Set xlSheet = xlBook.Worksheets(1)
　　xlApp.EnableEvents = False

のように設定して開いてみて下さい。イベントマクロは実行されません。

------------------------------------------------
場合によっては下記のような事も有効です。

Public MacroFlag As Boolean
Sub Macro1()
    If MacroFlag = True Then
        Range("B4").Select
        ActiveCell.FormulaR1C1 = "マクロが実施されました。"
        Range("A1").Select
    End If
End Sub
Sub Auto_Open()
    MacroFlag = True
End Sub

以上はExcel上の記述

VBからExcelを起動すると通常は、Auto_Open が実施されません。
従ってフラグが設定してあるマクロは実行できません。

※ No.2778の投稿の下記の部分は
　　Set xlApp = CreateObject("Excel.Application")
　　Set xlBook = xlApp.Workbooks.Open("C:\Temp.xls")
　　Set xlSheet = xlBook.Worksheets(1)
　　xlApp.EnableEvents = False

こちらに訂正願います。
    Set xlApp = CreateObject("Excel.Application")
    xlApp.EnableEvents = False
    Set xlBook = xlApp.Workbooks.Open("C:\Temp.xls")
    Set xlSheet = xlBook.Worksheets(1)

Workbook_Openイベントに書かれているマクロも無効になります。