Contents
新しいブックを作成します。新しいブックが作業中のブックになります。
- 構文
- Workbooks.Add( Template )
- 引数
- Template
- 新しいブックの作成方法を指定します。この引数に既存のMicrosoft Excelファイルの名前を指定する文字列を指定すると、指定したファイルを含む新しいブックがテンプレートとして作成されます。
- 戻値
プログラム実行例
セルに文字列を入力(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
解説
- 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
解説
- 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
アクティブシート名を取得する
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