Contents
Trueの場合、マクロの実行中に特定の警告やメッセージを表示します。
- 構文
- Boolean = Application.DisplayAlerts
- 引数
- 戻り値
プログラム実行例
セルに文字列を入力(A1形式)
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
ID = GETID("Microsoft Excel")
CTRLWIN(ID, ACTIVATE)
Excel.Workbooks.Add()
Excel.Range("A1").Value = "UWSC"
// Excel.DisplayAlerts = FALSE
// Excel.Quit
- CREATEOLEOBJ
- Excel.Application.Visible
- GETID
- CTRLWIN
- Excel.Workbooks.Add
- Excel.Application.Range
- Excel.Range.Value
- Excel.Application.DisplayAlerts
解説
- 1-2行目
- Excelを起動する。
DIM Excel = CREATEOLEOBJ("Excel.Application")Excel.Visible = TRUE
- 4-5行目
- Excelをアクティブ化する。
ID = GETID("Microsoft Excel")CTRLWIN(ID, ACTIVATE)
- 7行目
- 新規ブックの作成。
Excel.Workbooks.Add()
- 8行目
- セルA1に「UWSC」と代入。
Excel.Range("A1").Value = "UWSC"
- 10行目
- 終了時に確認メッセージを表示しない。
// Excel.DisplayAlerts = FALSE
- 11行目
- Excelを終了する。
// Excel.Quit
セルに文字列を入力(R1C1形式)
Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
ID = GETID("Microsoft Excel")
CTRLWIN(ID, ACTIVATE)
Excel.Workbooks.Add()
Excel.Cells(1, 1).Value = "UWSC"
// Excel.DisplayAlerts = FALSE
// Excel.Quit
- CREATEOLEOBJ
- Excel.Application.Visible
- GETID
- CTRLWIN
- Excel.Workbooks.Add
- Excel.Application.Cells
- Excel.Range.Value
- Excel.Application.Displayalerts
- Excel.Application.Quit
解説
- 1-2行目
- Excelを起動。
Excel = CREATEOLEOBJ("Excel.Application")Excel.Visible = TRUE
- 4-5行目
- Excelをアクティブ化
ID = GETID("Microsoft Excel")CTRLWIN(ID, ACTIVATE)
- 7行目
- 新規ブックの作成
Excel.Workbooks.Add()
- 8行目
- A1セルに「UWSC」と代入する。
Excel.Cells(1, 1).Value = "UWSC"
- 10行目
- 確認メッセージを表示しない。
// Excel.DisplayAlerts = FALSE
- 11行目
- Excelを終了する。
// Excel.Quit
アクティブセルに文字列を入力する
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
Excel.Workbooks.Add()
DIM Range = Excel.Application.ActiveCell
SLEEP(1.000)
Range.Value = "abc"
SLEEP(3.000)
Excel.Application.DisplayAlerts = FALSE
Excel.Quit
- CREATEOLEOBJ
- Excel.Application.Visible
- Excel.Workbooks.Add
- Excel.Application.ActiveCell
- SLEEP
- Excel.Range.Value
- Excel.Application.DisplayAlerts
- Excel.Application.Quit
アクティブシート名を取得する
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
Excel.Workbooks.Add()
DIM Worksheet = Excel.Application.ActiveSheet
PRINT Worksheet.Name
Excel.Application.DisplayAlerts = FALSE
Excel.Quit
- CREATEOLEOBJ
- Excel.Application.Visible
- Excel.Workbooks.Add
- Excel.Application.ActiveSheet
- Excel.Worksheet.Name
- Excel.Application.DisplayAlerts
- Excel.Application.Quit
アクティブプリンターの名前を取得
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
PRINT Excel.Application.ActivePrinter
Excel.Application.DisplayAlerts = FALSE
Excel.Quit
- CREATEOLEOBJ
- Excel.Application.Visible
- Excel.Application.ActivePrinter
- Excel.Application.DisplayAlerts
- Excel.Application.Quit
- 結果
Brother DCP-J963N Printer on Ne03:
スタートアップフォルダのパスを取得
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
PRINT Excel.Application.StartupPath
//Excel.Application.DisplayAlerts = FALSE
//Excel.Quit
- CREATEOLEOBJ
- Excel.Application.Visible
- Excel.Application.StartupPath
- Excel.Application.DisplayAlerts
- Excel.Application.Quit
- 結果
C:\Users\akita\AppData\Roaming\Microsoft\Excel\XLSTART