Applicationアプリケーション オブジェクト

本ページには広告が含まれています。

Excel全体を表すオブジェクトです。Excel全体に対しての操作、設定変更をしたい場合に使います。

構文
Application = Excel.Application
引数
戻り値
Excelアプリケーション全体を表します。

Application オブジェクト を返すメソッド・プロパティ

Excel.Application
Microsoft Excelアプリケーションを表すApplication オブジェクトを返します。
Borders.Application プロパティ
Application オブジェクトが属するApplication オブジェクトを返します。

関連するメソッド・プロパティ

_表示形式.png
項目メソッド・プロパティ
表示形式Range.NumberFormatLocal プロパティ
_配置.png
項目メソッド・プロパティ
文字の配置
横位置Excel.Application
縦位置Excel.Application
インデントExcel.Application
前後にスペースを入れるExcel.Application
文字の制御
折り返して全体を表示するExcel.Application
縮小して全体を表示するExcel.Application
セルを結合するExcel.Application
右から左
文字の方向Excel.Application
方向Range.Orientation プロパティ
_フォント.png
項目メソッド・プロパティ
フォント名Font.Name プロパティ
スタイルFont.FontStyle プロパティ
サイズExcel.Application
下線Excel.Application
色Excel.Application
標準フォントExcel.Application
文字飾り
取り消しExcel.Application
上付きFont.Superscript プロパティ
下付きExcel.Application
_罫線.png
項目メソッド・プロパティ
線
スタイルExcel.Application
Excel.Application
Excel.Application
色Excel.Application
罫線Excel.Application
_塗りつぶし.png
項目メソッド・プロパティ
背景色Excel.Application
Excel.Application
塗りつぶし効果Excel.Application
その他の色Excel.Application
パターンの色Excel.Application
パターンの種類Excel.Application
_保護.png
項目メソッド・プロパティ
ロックExcel.Application
表示しないExcel.Application

プログラム実行例

&[ページ番号] ページ*

フッターの中央部に&[ページ番号] ページを表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

WITH PageSetup
	.LeftFooter = ""
	.CenterFooter = "&P ページ"
	.RightFooter = ""
ENDWITH

PRINT Worksheet.PrintPreview
結果
&[ページ番号] ページ.png
使用関数

&[ページ番号] / &[総ページ数] ページ*

フッターの中央部に&[ページ] / &[総ページ数] ページを表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

WITH PageSetup
	.LeftFooter = ""
	.CenterFooter = "&P / &N ページ"
	.RightFooter = ""
ENDWITH

PRINT Worksheet.PrintPreview
結果
&[ページ番号] ／ &[総ページ数] ページ.png
使用関数

&[シート名]*

フッターの中央部に&[シート名]を表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

WITH PageSetup
	.LeftFooter = ""
	.CenterFooter = "&A"
	.RightFooter = ""
ENDWITH

PRINT Worksheet.PrintPreview
結果
&[シート名].png
使用関数

<機種名> 社外秘、&[日付]、&[ページ番号] ページ*

フッターの左側に 社外秘、中央部に&[日付]、右側に&[ページ番号] ページを表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

HASHTBL INFO

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")

DIM filename = FSO.BuildPath(GET_CUR_DIR, "SYSTEMINFO.csv")
FID = FOPEN(filename, F_READ OR F_WRITE)
FPUT(FID, DOSCMD("systeminfo /FO CSV"))
FCLOSE(FID)

FID = FOPEN(filename, F_READ OR F_WRITE)
FOR col = 0 TO 33
	INFO[FGET(FID, 1, col)] = FGET(FID, 2, col)
NEXT
FCLOSE(FID)

FSO.DeleteFile(filename)

WITH PageSetup
	.LeftFooter = INFO["登録されている組織"] + " 社外秘"
	.CenterFooter = "&D"
	.RightFooter = "&P ページ"
ENDWITH

PRINT Worksheet.PrintPreview
結果
社外秘、&[日付]、&[ページ番号] ページ.png
使用関数

&[ファイル名]*

フッターの中央部に&[ファイル名]を表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

WITH PageSetup
	.LeftFooter = ""
	.CenterFooter = "&F"
	.RightFooter = ""
ENDWITH

PRINT Worksheet.PrintPreview
結果
&[ファイル名].png
使用関数

&[パス]&[ファイル名]*

フッターの中央部に&[パス]&[ファイル名]を表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

WITH PageSetup
	.LeftFooter = ""
	.CenterFooter = "&Z&F"
	.RightFooter = ""
ENDWITH

PRINT Worksheet.PrintPreview
結果
&[パス]&[ファイル名].png
使用関数

&[シート名]、Page &[ページ番号]*

フッターの中央部に&[シート名]、右側にPage &[ページ番号] を表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

WITH PageSetup
	.LeftFooter = ""
	.CenterFooter = "&A"
	.RightFooter = "Page &P"
ENDWITH

PRINT Worksheet.PrintPreview
結果
&[シート名]、Page &[ページ番号].png
使用関数

&[シート名]、<機種名> 社外秘、&[ページ番号] ページ*

フッターの左側に&[シート名]、中央部に 社外秘、右側に&[ページ番号] ページを表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

HASHTBL INFO

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")

DIM filename = FSO.BuildPath(GET_CUR_DIR, "SYSTEMINFO.csv")
FID = FOPEN(filename, F_READ OR F_WRITE)
FPUT(FID, DOSCMD("systeminfo /FO CSV"))
FCLOSE(FID)

FID = FOPEN(filename, F_READ OR F_WRITE)
FOR col = 0 TO 33
	INFO[FGET(FID, 1, col)] = FGET(FID, 2, col)
NEXT
FCLOSE(FID)

FSO.DeleteFile(filename)

WITH PageSetup
	.LeftFooter = "&A"
	.CenterFooter = INFO["登録されている組織"] + " 社外秘"
	.RightFooter = "&P ページ"
ENDWITH

PRINT Worksheet.PrintPreview
結果
&[シート名]、＜機種名＞ 社外秘、&[ページ番号] ページ.png
使用関数

&[ファイル名]、&[ページ番号] ページ*

フッターの中央部に&[ファイル名]、右側に&[ページ番号] ページを表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

WITH PageSetup
	.LeftFooter = ""
	.CenterFooter = "&F"
	.RightFooter = "&P ページ"
ENDWITH

PRINT Worksheet.PrintPreview
結果
&[ファイル名]、&[ページ番号] ページ.png
使用関数

&[パス]&[ファイル名]、&[ページ番号] ページ*

フッターの中央部に&[パス]&[ファイル名]、右側に&[ページ番号] ページを表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

WITH PageSetup
	.LeftFooter = ""
	.CenterFooter = "&Z&F"
	.RightFooter = "&P ページ"
ENDWITH

PRINT Worksheet.PrintPreview
結果
&[パス]&[ファイル名]、&[ページ番号] ページ.png
使用関数

&[ページ番号] ページ、&[シート名]*

フッターの中央部に&[ページ番号] ページ、右側に&[シート名]を表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

WITH PageSetup
	.LeftFooter = ""
	.CenterFooter = "&P ページ"
	.RightFooter = "&A"
ENDWITH

PRINT Worksheet.PrintPreview
結果
&[ページ番号] ページ、&[シート名].png
使用関数

&[ページ番号] ページ、&[ファイル名]*

フッターの中央部に&[ページ番号] ページ、右側に&[ファイル名]を表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

WITH PageSetup
	.LeftFooter = ""
	.CenterFooter = "&P ページ"
	.RightFooter = "&F"
ENDWITH

PRINT Worksheet.PrintPreview
結果
&[ページ番号] ページ、&[ファイル名].png
使用関数

&[ページ番号] ページ、&[ファイル名]*

フッターの中央部に&[ページ番号] ページ、右側に&[ファイル名]を表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

WITH PageSetup
	.LeftFooter = ""
	.CenterFooter = "&P ページ"
	.RightFooter = "&F"
ENDWITH

PRINT Worksheet.PrintPreview
結果
&[ページ番号] ページ、&[ファイル名].png
使用関数

&[ページ番号] ページ、&[パス]&[ファイル名]*

フッターの中央部に&[ページ番号] ページ、右側に&[パス]&[ファイル名]を表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

WITH PageSetup
	.LeftFooter = ""
	.CenterFooter = "&P ページ"
	.RightFooter = "&Z&F"
ENDWITH

PRINT Worksheet.PrintPreview
結果
&[ページ番号] ページ、&[パス]&[ファイル名].png
使用関数

<ユーザー名>、&[ページ番号] ページ、&[日付]*

フッターの左側に、中央部に&[ページ番号] ページ、右側に&[日付]を表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

WITH PageSetup
	.LeftFooter = "akita"
	.CenterFooter = "&P ページ"
	.RightFooter = "&D"
ENDWITH

PRINT Worksheet.PrintPreview
結果
&[ページ番号] ページ、&[日付].png
使用関数

作成者 : <ユーザー名> &[日付]、&[ページ番号] ページ*

フッターの左側に作成者 : 、中央部に&[日付]、右側に&[ページ番号] ページを表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

HASHTBL INFO

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")

DIM filename = FSO.BuildPath(GET_CUR_DIR, "SYSTEMINFO.csv")
FID = FOPEN(filename, F_READ OR F_WRITE)
FPUT(FID, DOSCMD("systeminfo /FO CSV"))
FCLOSE(FID)

FID = FOPEN(filename, F_READ OR F_WRITE)
FOR col = 0 TO 33
	INFO[FGET(FID, 1, col)] = FGET(FID, 2, col)
NEXT
FCLOSE(FID)

FSO.DeleteFile(filename)

WITH PageSetup
	.LeftFooter = "作成者 : " + INFO["登録されている所有者"]
	.CenterFooter = "&P ページ"
	.RightFooter = "&D"
ENDWITH

PRINT Worksheet.PrintPreview
結果
&[日付]、&[ページ番号] ページ.png
使用関数

&[ページ番号]*

フッターの中央部に&[ページ番号]を表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

WITH PageSetup
	.LeftFooter = ""
	.CenterFooter = "&P"
	.RightFooter = ""
ENDWITH

PRINT Worksheet.PrintPreview
結果
&[ページ番号].png
使用関数

メソッド

<表示切り替え>

Calculate
計算を実行します。対象となるのは、開かれているすべてのブック、ブック内の特定のワークシート、ワークシート内の指定されたセル範囲のいずれかです。
ConvertFormula
数式内のセル参照を、A1とR1C1の参照スタイル間、相対参照と絶対参照の間、または両方の間で変換します。
DDEPoke
アプリケーションにデータを送ります。
DDETerminate
他のアプリケーションへのチャネルを閉じます。
FindFile
[ファイルを開く]タイアログボックスを表示します。ファイルを正しく開けたらTrue、開けなければFalseを返します。
GetOpenFilename
[ファイルを開く]ダイアログボックスを表示します。選択したファイルのパスを戻値として返します。
GetSaveAsFilename
ユーザーからファイル名を取得するために、[名前を付けて保存] ダイアログ ボックスを表示します。ダイアログ ボックスで指定したファイルは、実際には保存されません。
Quit
Excelを終了します。

プロパティ

<表示切り替え>

ActiveCell
セルまたはセル範囲を表すRangeオブジェクトを返します。
ActiveSheet
Worksheet オブジェクト
Cells
作業中のワークシートのすべてのセルを表すRange オブジェクトを返します。
CustomListCount
定義済みのユーザー設定リスト（組み込みリストを含む）の数を返します。
DisplayAlerts
Trueの場合、マクロの実行中に特定の警告やメッセージを表示します。
Selection
Applicationオブジェクトのアクティブなワークシートで現在選択されているオブジェクトを返します。
Visible
Workbooks
開いているすべてのワークブックを表すWorkbooks オブジェクトを返します。

参考文献

  1. Application オブジェクト (Excel) | Microsoft Learn

関連記事

XLOPEN関数 (スクリプト関数)
XLOPEN関数は、Excelまたは OOoのCalcを起動する関数です。第一引数に読み込むファイル名（新規の場合は省略）、第二引数に起動フラグ、第三引数以降にパラメータ（パスワードや読み込み専用）を指定します。
XLSETDATA関数 (スクリプト関数)
Excelのセルに値を代入します。
XLSHEET関数 (スクリプト関数)
PageSetup オブジェクト
Border オブジェクト
Characters オブジェクト
Charts オブジェクト
Comment オブジェクト
FullSeriesCollection オブジェクト
LineFormat オブジェクト
線に関する書式設定。