Contents
指定されたブックまたは作業中のブックにあるすべてのシートのコレクションです。
- 構文
- 引数
- 戻値
プログラム実行例
指定したシートが存在するか
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は存在しません