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. CREATEOLEOBJ
  2. Application.Visible プロパティ
  3. GETID
  4. CTRLWIN
  5. Workbooks.Add メソッド
  6. Application.Cells プロパティ
  7. Range.Value プロパティ
  8. Application.DisplayAlerts プロパティ
  9. Application.Quit
解説
  1. 1-2行目
    Excel = CREATEOLEOBJ("Excel.Application")Excel.Visible = TRUE
    Excelを起動。
  2. 4-5行目
    ID = GETID("Microsoft Excel")CTRLWIN(ID, ACTIVATE)
    Excelをアクティブ化
  3. 7行目
    Excel.Workbooks.Add()
    新規ブックの作成
  4. 8行目
    Excel.Cells(1, 1).Value = "UWSC"
    A1セルに「UWSC」と代入する。
  5. 10行目
    // Excel.DisplayAlerts = FALSE
    確認メッセージを表示しない。
  6. 11行目
    // Excel.Quit
    Excelを終了する。

指定したテキストファイルのパスを出力

DIM Excel = CREATEOLEOBJ("Excel.Application")
DIM path = Excel.Application.GetOpenFilename("テキスト文書,*.txt,すべてのファイル,*.*")

IF path <> FALSE THEN PRINT path

Excel.Quit
  1. CREATEOLEOBJ
  2. Application.GetOpenFilename メソッド
  3. Application.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
  1. CREATEOLEOBJ
  2. Application.Visible プロパティ
  3. Application.ActivateMicrosoftApp メソッド
  4. GETID
  5. SLEEP
  6. CTRLWIN
  7. 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
  1. CREATEOLEOBJ
  2. Application.Visible プロパティ
  3. Application.ActivateMicrosoftApp メソッド
  4. GETID
  5. SLEEP
  6. CTRLWIN
  7. 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
  1. CREATEOLEOBJ
  2. Application.Visible プロパティ
  3. Application.ActivateMicrosoftApp メソッド
  4. GETID
  5. SLEEP
  6. CTRLWIN
  7. 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
  1. CREATEOLEOBJ
  2. Application.Visible プロパティ
  3. Workbooks.Add メソッド
  4. Application.ActiveCell プロパティ
  5. SLEEP
  6. Range.Value プロパティ
  7. Application.DisplayAlerts プロパティ
  8. 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
  1. CREATEOLEOBJ
  2. Application.Visible プロパティ
  3. Workbooks.Add メソッド
  4. Application.ActiveSheet プロパティ
  5. Worksheet.Name プロパティ
  6. Application.DisplayAlerts プロパティ
  7. Application.Quit

アクティブプリンターの名前を取得

DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE

PRINT Excel.Application.ActivePrinter

Excel.Application.DisplayAlerts = FALSE
Excel.Quit
  1. CREATEOLEOBJ
  2. Application.Visible プロパティ
  3. Application.ActivePrinter プロパティ
  4. Application.DisplayAlerts プロパティ
  5. 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
  1. CREATEOLEOBJ
  2. Application.Visible プロパティ
  3. Application.StartupPath プロパティ
  4. Application.DisplayAlerts プロパティ
  5. Application.Quit
結果
C:\Users\akita\AppData\Roaming\Microsoft\Excel\XLSTART