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

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