ActivateMicrosoftApp

構文
Application.ActivateMicrosoftApp( Index )
引数
Index(XlMSApplication必須
アクティブにするMicrosoftアプリケーションを指定
戻値

XlMSApplication

名前 説明
xlMicrosoftAccess 4 Microsoft Office Access
xlMicrosoftFoxPro 5 Microsoft FoxPro
xlMicrosoftMail 3 Microsoft Office Outlook
xlMicrosoftPowerPoint 2 Microsoft Office PowerPoint
xlMicrosoftProject 6 Microsoft Office Project
xlMicrosoftSchedulePlus 7 Microsoft Schedule Plus
xlMicrosoftWord 1 Microsoft Office Word

プログラム実行例

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
  1. script.function.CREATEOLEOBJ(3)
  2. com.Excel.Application.Visible(4)
  3. com.Excel.Application.ActivateMicrosoftApp(7)
  4. script.function.GETID(9)
  5. script.function.SLEEP(10)
  6. script.function.CTRLWIN(13)
  7. com.Excel.Application.Quit(14)