Contents
プログラム実行例
セルに文字列を入力(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
- Application.Visible プロパティ
- GETID
- CTRLWIN
- Workbooks.Add メソッド
- Application.Cells プロパティ
- Range.Value プロパティ
- Application.DisplayAlerts プロパティ
- 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")
DIM path = Excel.Application.GetOpenFilename("テキスト文書,*.txt,すべてのファイル,*.*")
IF path <> FALSE THEN PRINT path
Excel.Quit
PowerPointを起動する(Excel)
CONST xlMicrosoftPowerPoint = 2
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
Excel.Application.ActivateMicrosoftApp(xlMicrosoftPowerPoint)
DIM ID = GETID("PowerPoint", "PPTFrameClass")
SLEEP(5.000)
CTRLWIN(ID, CLOSE)
Excel.Quit
- CREATEOLEOBJ
- Application.Visible プロパティ
- Application.ActivateMicrosoftApp メソッド
- GETID
- SLEEP
- CTRLWIN
- Application.Quit
Outlookを起動する(Excel)
CONST xlMicrosoftMail = 3
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
Excel.Application.ActivateMicrosoftApp(xlMicrosoftMail)
DIM ID = GETID("Outlook", "rctrl_renwnd32")
SLEEP(5.000)
CTRLWIN(ID, CLOSE)
Excel.Quit
- CREATEOLEOBJ
- Application.Visible プロパティ
- Application.ActivateMicrosoftApp メソッド
- GETID
- SLEEP
- CTRLWIN
- Application.Quit
Wordを起動する(Excel)
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
- CREATEOLEOBJ
- Application.Visible プロパティ
- Application.ActivateMicrosoftApp メソッド
- GETID
- SLEEP
- CTRLWIN
- Application.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
- Application.Visible プロパティ
- Workbooks.Add メソッド
- Application.ActiveCell プロパティ
- SLEEP
- Range.Value プロパティ
- Application.DisplayAlerts プロパティ
- 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
- Application.Visible プロパティ
- Workbooks.Add メソッド
- Application.ActiveSheet プロパティ
- Worksheet.Name プロパティ
- Application.DisplayAlerts プロパティ
- Application.Quit
アクティブプリンターの名前を取得
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
PRINT Excel.Application.ActivePrinter
Excel.Application.DisplayAlerts = FALSE
Excel.Quit
- CREATEOLEOBJ
- Application.Visible プロパティ
- Application.ActivePrinter プロパティ
- Application.DisplayAlerts プロパティ
- 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
- Application.Visible プロパティ
- Application.StartupPath プロパティ
- Application.DisplayAlerts プロパティ
- Application.Quit
- 結果
C:\Users\akita\AppData\Roaming\Microsoft\Excel\XLSTART