Application.ActiveSheetアクティブシート プロパティ

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

アクティブシートを表すWorksheet オブジェクトを返します。

構文
Worksheet = Application.ActiveSheet
引数
戻り値
Worksheet オブジェクト

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

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

プログラム実行例

ソート

人口の多い順にソートします。

使用したファイルをダウンロードできます。

[download "/example/510/都道府県別人口.xlsx"]
UWSC
CONST xlDown = -4121
CONST xlSortOnValues = 0
CONST xlDescending = 2
CONST xlSortNormal = 0
CONST xlYes = 1
CONST xlGuess = 0
CONST xlTopToBottom = 1
CONST xlPinYin = 1

DIM Excel = ExcelBoot("D:\Documents\都道府県別人口.xlsx")

WITH Excel.ActiveSheet
	WITH .Sort
		WITH .SortFields
			.Clear
			.Add(Excel.Range("C2").End(xlDown), xlSortOnValues, xlDescending, xlSortNormal)
		ENDWITH
		.SetRange(Excel.Range("A1").CurrentRegion)
		.Header = xlYes
		.MatchCase = FALSE
		.Orientation = xlTopToBottom
		.SortMethod = xlPinYin
		.Apply		
	ENDWITH
ENDWITH
使用関数
解説

アクティブシート名を取得する

UWSC
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
使用関数

気象庁のホームページから一月分の気温を取得しExcelでグラフを作成

UWSC
CONST xlUp = -4162
CONST xlLineMarkers = 65

DIM year = 2020
DIM month = 8

DIM IE = IEBoot()
IE.Navigate("https://www.data.jma.go.jp/obd/stats/etrn/view/daily_s1.php?prec_no=14&block_no=47412&year=" + year + "&month=" + month + "&day=&view=p1")
BusyWait(IE)

DIM array[-1][-1]
DIM element = IE.document.getElementById("tablefix1")
getTableData(element, array)

IE.Quit

DIM Excel = XLOPEN()
DIM SheetName = Excel.ActiveSheet.Name

XLSETDATA(Excel, array, "A1")

DIM row = Excel.Cells(Excel.Rows.Count, 1).End(xlUp).Row
DIM Charts = Excel.Charts.Add

WITH Charts
	.ChartType = xlLineMarkers
	.SeriesCollection.NewSeries
	.HasTitle = TRUE
	.ChartTitle.Text = "札幌 " + year + "年" + month + "月気温"

	WITH .FullSeriesCollection(1)
		.XValues = "=Sheet1!$A$5:$A$35"
		.Name = "=<#DBL>最高気温<#DBL>"
		.Values = "=Sheet1!$H$5:$H$35"
		WITH .Format
			.Fill.ForeColor.RGB = 255
			.Line.ForeColor.RGB = 255
		ENDWITH
	ENDWITH

	WITH .FullSeriesCollection(2)
		.XValues = "=Sheet1!$A$5:$A$35"
		.Name = "=<#DBL>最高気温<#DBL>"
		.Values = "=Sheet1!$I$5:$I$35"
		WITH .Format
			.Fill.ForeColor.RGB = 16711680
			.Line.ForeColor.RGB = 16711680
		ENDWITH
	ENDWITH
ENDWITH
結果
2020年8月気温.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
使用関数

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

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

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
使用関数

関連記事

XLSHEET関数 (スクリプト関数)
Sheets オブジェクト
指定されたブックまたは作業中のブックにあるすべてのシートのコレクションです。
Sheets.Add メソッド (Excel)
新しいワークシート・グラフ・またはマクロ シートを作成します。新しいワークシートがアクティブ シートになります。
Sheets.Delete メソッド (Excel)
シートを削除します。
Sheets.Item プロパティ (Excel)
シートコレクションから単一のシートを返します。
XLOPEN関数 (スクリプト関数)
XLOPEN関数は、Excelまたは OOoのCalcを起動する関数です。第一引数に読み込むファイル名（新規の場合は省略）、第二引数に起動フラグ、第三引数以降にパラメータ（パスワードや読み込み専用）を指定します。
PageSetup オブジェクト
Application オブジェクト
Border オブジェクト
Characters オブジェクト