Sheets

指定されたブックまたは作業中のブックにあるすべてのシートのコレクションです。

構文
引数
戻値

プログラム実行例

指定したシートが存在するか

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は存在しません