Visible

構文
Application.Visible
引数
戻値

プログラム実行例

セルに文字列を入力（A1形式）

// Excelを起動
EXCEL = CREATEOLEOBJ("Excel.Application")
EXCEL.Visible = TRUE

// Excelをアクティブ化
ID = GETID("Microsoft Excel")
CTRLWIN(ID, ACTIVATE)

// 新規ブックの作成
EXCEL.Workbooks.Add()
// セルA1に「UWSC」と代入する
EXCEL.Range("A1").Value = "UWSC"

// 確認メッセージを表示しない
//EXCEL.DisplayAlerts = FALSE
// Excelを終了する
//EXCEL.Quit

セルに文字列を入力（R1C1形式）

// Excelを起動
EXCEL = CREATEOLEOBJ("Excel.Application")
EXCEL.Visible = TRUE

// Excelをアクティブ化
ID = GETID("Microsoft Excel")
CTRLWIN(ID, ACTIVATE)

// 新規ブックの作成
EXCEL.Workbooks.Add()
// A1セルに「UWSC」と代入する
EXCEL.Cells(1, 1).Value = "UWSC"

// 確認メッセージを表示しない
//EXCEL.DisplayAlerts = FALSE
// Excelを終了する
//EXCEL.Quit

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

この記事は役に立ちましたか？
役に立った　役に立たなかった