Contents
- 構文
- Application.Visible
- 引数
- 戻値
プログラム実行例
セルに文字列を入力(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
ExcelからWordを起動する
CONST xlMicrosoftWord = 1
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
// Wordを起動
Excel.Application.ActivateMicrosoftApp(xlMicrosoftWord)
DIM ID = GETID("Microsoft Word", "OpusApp")
SLEEP(5.000)
// Wordを閉じる
CTRLWIN(ID, CLOSE)
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
アクティブプリンターの名前を取得
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
PRINT Excel.Application.ActivePrinter
Excel.Application.DisplayAlerts = FALSE
Excel.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
- 結果
- C:\Users\akita\AppData\Roaming\Microsoft\Excel\XLSTART
この記事は役に立ちましたか?