Contents
Excelを起動します。引数を指定した場合、そのファイルを開きます。
- 構文
- Excel = ExcelBoot( [path] )
- 引数
- path
- 開くファイルのパス名
- 戻値
- Excelオブジェクト
プログラム
//////////////////////////////////////////////////
// 【引数】
// path : 開くファイルのパス名
// 【戻値】
// Excelオブジェクト
//////////////////////////////////////////////////
FUNCTION ExcelBoot(path = "")
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
IFB path = "" THEN
Excel.Workbooks.Add
ELSE
DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
IFB FSO.GetParentFolderName(path) = "" THEN
path = GET_CUR_DIR + "\" + path
ENDIF
Excel.Workbooks.Open(path)
ENDIF
RESULT = Excel
FEND
解説
- 2行目
- Excelオブジェクトを生成。
DIM Excel = CREATEOLEOBJ("Excel.Application")
- 3行目
- Excelを表示する。
Excel.Visible = TRUE
- 5行目
- ワークブックを追加する。
Excel.Workbooks.Add
- 7-11行目
- 親フォルダ名を取得できなければカレントディレクトリとpathを繋げて絶対パスにし、そのパスにあるファイルを開く。
DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject") IFB FSO.GetParentFolderName(path) = "" THEN path = GET_CUR_DIR + "\" + path ENDIF Excel.Workbooks.Open(path)
- 13行目
- Excelオブジェクトを戻り値として返す。
RESULT = Excel
プログラム実行例
罫線を引く
CONST xlEdgeTop = 8
CONST xlDiagonalUp = 6
CONST xlDouble = -4119
CONST xlDash = -4115
CONST xlContinuous = 1
DIM Excel = ExcelBoot()
WITH Excel
.Range("B2").Borders.LineStyle = xlContinuous
.Range("B4").Borders(xlEdgeTop).LineStyle = xlDash
.Range("B6").Borders(xlDiagonalUp).LineStyle = xlDouble
.Range("D2:F6").Borders.LineStyle = xlContinuous
ENDWITH
//////////////////////////////////////////////////
// 【引数】
// path : 開くファイルのパス名
// 【戻値】
// Excelオブジェクト
//////////////////////////////////////////////////
FUNCTION ExcelBoot(path = "")
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
IFB path = "" THEN
Excel.Workbooks.Add
ELSE
DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
IFB FSO.GetParentFolderName(path) = "" THEN
path = GET_CUR_DIR + "\" + path
ENDIF
Excel.Workbooks.Open(path)
ENDIF
RESULT = Excel
FEND
相対座標
DIM Excel = ExcelBoot()
WITH Excel.Range("E5")
FOR r = -3 TO 3
FOR c = -3 TO 3
DIM Range = .Offset(r, c)
Range.Value = "(" + r + ", " + c + ")"
IF r = 0 AND c = 0 THEN Range.Value = "基準セル"
NEXT
NEXT
ENDWITH
//////////////////////////////////////////////////
// 【引数】
// path : 開くファイルのパス名
// 【戻値】
// Excelオブジェクト
//////////////////////////////////////////////////
FUNCTION ExcelBoot(path = "")
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
IFB path = "" THEN
Excel.Workbooks.Add
ELSE
DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
IFB FSO.GetParentFolderName(path) = "" THEN
path = GET_CUR_DIR + "\" + path
ENDIF
Excel.Workbooks.Open(path)
ENDIF
RESULT = Excel
FEND
- 結果
2軸のグラフを作成する
CONST xlLine = 4
CONST xlColumnClustered = 51
CONST xlMarkerStyleCircle = 8
CONST xlValue = 2
CONST xlSecondary = 2
DIM Excel = ExcelBoot("東京の気温と降水量(2019年).xlsx")
DIM SheetName = "Sheet1"
DIM Charts = Excel.Charts.Add
DIM Series
Charts.ChartArea.ClearContents
Series = Charts.SeriesCollection.NewSeries
WITH Series
WITH Charts.Axes(xlValue)
.HasTitle = TRUE
.AxisTitle.Caption = "気温[℃]"
ENDWITH
.ChartType = xlLine
.MarkerStyle = xlMarkerStyleCircle
.XValues = Excel.Worksheets(SheetName).Range("B5:B16")
.Values = Excel.Worksheets(SheetName).Range("C5:C16")
.Name = Excel.Worksheets(SheetName).Range("C4")
.Format.Line.ForeColor.RGB = 255
.MarkerBackgroundColor = 255
ENDWITH
Series = Charts.SeriesCollection.NewSeries
WITH Series
.ChartType = xlLine
.MarkerStyle = xlMarkerStyleCircle
.XValues = Excel.Worksheets(SheetName).Range("B5:B16")
.Values = Excel.Worksheets(SheetName).Range("D5:D16")
.Name = Excel.Worksheets(SheetName).Range("D4")
.Format.Line.ForeColor.RGB = 16711680
.MarkerBackgroundColor = 16711680
ENDWITH
Series = Charts.SeriesCollection.NewSeries
WITH Series
TEXTBLOCK
WITH Charts.Axes(xlValue)
.HasTitle = TRUE
.AxisTitle.Caption = "降水量[mm]"
ENDWITH
ENDTEXTBLOCK
.ChartType = xlColumnClustered
.XValues = Excel.Worksheets(SheetName).Range("B5:B16")
.Values = Excel.Worksheets(SheetName).Range("E5:E16")
.Name = Excel.Worksheets(SheetName).Range("E4")
.Format.Line.ForeColor.RGB = 10341600
.AxisGroup = xlSecondary
ENDWITH
//////////////////////////////////////////////////
// 【引数】
// path : 開くファイルのパス名
// 【戻値】
// Excelオブジェクト
//////////////////////////////////////////////////
FUNCTION ExcelBoot(path = "")
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
IFB path = "" THEN
Excel.Workbooks.Add
ELSE
DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
IFB FSO.GetParentFolderName(path) = "" THEN
path = GET_CUR_DIR + "\" + path
ENDIF
Excel.Workbooks.Open(path)
ENDIF
RESULT = Excel
FEND
//////////////////////////////////////////////////
// 【引数】
// シリアル値 : 時間を表すシリアル値を指定
// 【戻値】
//
//////////////////////////////////////////////////
FUNCTION Second(serial)
RESULT = REPLACE(FORMAT(INT(serial * 86400) MOD 60, 2), " ", "0")
FEND
ソート
人口の多い順にソートします。
使用したファイルをダウンロードできます。

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
//////////////////////////////////////////////////
// 【引数】
// path : 開くファイルのパス名
// 【戻値】
// Excelオブジェクト
//////////////////////////////////////////////////
FUNCTION ExcelBoot(path = "")
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
IFB path = "" THEN
Excel.Workbooks.Add
ELSE
DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
IFB FSO.GetParentFolderName(path) = "" THEN
path = GET_CUR_DIR + "\" + path
ENDIF
Excel.Workbooks.Open(path)
ENDIF
RESULT = Excel
FEND
解説
- 10行目
- ファイルを開く。
DIM Excel = ExcelBoot("D:\Documents\都道府県別人口.xlsx")
- 16行目
- 並び替えのキー値をセル範囲で指定。並び替えの対象に「値(xlSortOnValues)」を指定。並び替えの順序に「降順(xlDescending)」を指定。
.Add(Excel.Range("C2").End(xlDown), xlSortOnValues, xlDescending, xlSortNormal)
- 18行目
- 並び替えが行われる範囲にセルA1を含む表全体を指定。CurrentRegionは空白で囲まれた範囲を取得するので、セルA1を含む表のセル範囲が取得できます。表のサイズが変わっても対応できます。
.SetRange(Excel.Range("A1").CurrentRegion)
- 19行目
- 最初の行がヘッダーなので「xlYes」を指定。
.Header = xlYes
- 20行目
- 大文字と小文字を区別しない(False)。
.MatchCase = FALSE
- 21行目
- 行の入れ替えを行う。
.Orientation = xlTopToBottom
- 22行目
- 日本語をふりがなで並び替えます。
.SortMethod = xlPinYin
- 23行目
- Sort.Applyでソートが実行されます。これを記述しないとソートされません。
.Apply
指定したシートが存在するか
Sheet1〜Sheet5のシートが存在するか調べます。
存在しなければ「Excel.Sheets(SheetName)」でエラーを出すので、存在有無を確認できます。
DIM Excel = ExcelBoot()
FOR n = 1 TO 5
TRY
DIM SheetName ="Sheet" + n
DIM Worksheet = Excel.Sheets(SheetName)
PRINT SheetName + "は存在します"
EXCEPT
PRINT SheetName + "は存在しません"
ENDTRY
NEXT
//////////////////////////////////////////////////
// 【引数】
// path : 開くファイルのパス名
// 【戻値】
// Excelオブジェクト
//////////////////////////////////////////////////
FUNCTION ExcelBoot(path = "")
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
IFB path = "" THEN
Excel.Workbooks.Add
ELSE
DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
IFB FSO.GetParentFolderName(path) = "" THEN
path = GET_CUR_DIR + "\" + path
ENDIF
Excel.Workbooks.Open(path)
ENDIF
RESULT = Excel
FEND
- 結果
Sheet1は存在します Sheet2は存在します Sheet3は存在します Sheet4は存在しません Sheet5は存在しません
人口の上位3位取得
上位3位まで赤文字にする。
使ったファイルのダウンロードは下記リンクからできます。

DIM Excel = ExcelBoot("都道府県別人口.xlsx")
CONST xlDown = -4121
CONST xlTop10Top = 1
WITH Excel
.Range("A:E").EntireColumn.AutoFit
FOR col = 3 TO 5
DIM Top10 = .Range(.Cells(2, col), .Cells(48, col)).FormatConditions.AddTop10
WITH Top10
.Rank = 3
.TopBottom = xlTop10Top
.Font.Color = 255
.Font.Bold = TRUE
ENDWITH
NEXT
ENDWITH
//////////////////////////////////////////////////
// 【引数】
// path : 開くファイルのパス名
// 【戻値】
// Excelオブジェクト
//////////////////////////////////////////////////
FUNCTION ExcelBoot(path = "")
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
IFB path = "" THEN
Excel.Workbooks.Add
ELSE
DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
IFB FSO.GetParentFolderName(path) = "" THEN
path = GET_CUR_DIR + "\" + path
ENDIF
Excel.Workbooks.Open(path)
ENDIF
RESULT = Excel
FEND
- ExcelBoot
- Excel.Range.EntireColumn.AutoFit
- Excel.Application.Range
- Excel.Application.Cells
- Excel.Range.FormatConditions
- Excel.FormatConditions
- Excel.FormatConditions.AddTop10
- Excel.Top10.Rank
- Excel.Top10.TopBottom
- Excel.Top10.Font
- Excel.Font.Color
- Excel.Font.Bold
- 結果
九九の表を作る
DIM Excel = ExcelBoot()
WITH Excel
DIM Cells1 = .Cells(2, 2)
DIM Cells2 = .Cells(11, 11)
.Range(Cells1, Cells2).Borders.LineStyle = xlContinuous
DIM size = 25
.Cells.ColumnWidth = size * (.Range("A1").ColumnWidth / .Range("A1").Width)
.Cells.RowHeight = size
.Range("B2:B11").Interior.Color = 255 + 204 * 256 + 255 * 65536
WITH .Range("B3")
.Value = 1
.AutoFill(.Resize(9), xlLinearTrend)
ENDWITH
.Range("B2:K2").Interior.Color = 255 + 204 * 256 + 255 * 65536
WITH .Range("C2")
.Value = 1
.AutoFill(.Resize(, 9), xlLinearTrend)
ENDWITH
.Range("C3").Value = "=$B3*C$2"
.Range("C3").AutoFill(.Range("C3:K3"), xlFillDefault)
.Range("C3:K3").AutoFill(.Range("C3:K11"), xlFillDefault)
.Range("B2:K2").Borders(xlEdgeBottom).LineStyle = xlDouble
.Range("B2:B11").Borders(xlEdgeRight).LineStyle = xlDouble
.Range(Cells1, Cells2).BorderAround(xlContinuous, xlThick)
ENDWITH
//////////////////////////////////////////////////
// 【引数】
// path : 開くファイルのパス名
// 【戻値】
// Excelオブジェクト
//////////////////////////////////////////////////
FUNCTION ExcelBoot(path = "")
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
IFB path = "" THEN
Excel.Workbooks.Add
ELSE
DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
IFB FSO.GetParentFolderName(path) = "" THEN
path = GET_CUR_DIR + "\" + path
ENDIF
Excel.Workbooks.Open(path)
ENDIF
RESULT = Excel
FEND
- 結果