XLSHEETエクセルシート関数

Excelのシートを追加もしくは削除します。

構文
  1. Boolean = XLSHEET( Excel, Sheet名, 削除フラグ )
引数
Excel (Object)必須
Excel(またはOOoのCalc)のCOMオブジェクト
Sheet名 (String)必須
追加/削除するシート名
削除フラグ (Boolean = False)省略可
FALSE
シート追加(デフォルト)
TRUE
シート削除
戻り値
TRUE
正常
FALSE
処理不能

自作のXLSHEET関数

Pro版でしか使えないXLSHEET関数をFree版でも使えるように自作しました。

UWSC
FUNCTION XLSHEET(Excel, sheetName, deleteFlg = FALSE)
    DIM Worksheet
    DIM flg = TRUE
    IFB deleteFlg THEN
        TRY
            Worksheet = Excel.Worksheets(sheetName)
            Worksheet.Delete
        EXCEPT
            flg = FALSE
        ENDTRY
    ELSE
        TRY
            WorkSheet = Excel.Worksheets.Add(EMPTYPARAM,  Excel.Worksheets(Excel.Worksheets.Count))
            Worksheet.Name = sheetName
        EXCEPT
            flg = FALSE
        ENDTRY
    ENDIF
    RESULT = flg
FEND

使い方

シート追加

Sheet4を追加します。追加に成功した場合はTrue、既にシートが存在するなどで失敗した場合はFalseを返します。

UWSC
PRINT XLSHEET(Excel, "Sheet4")

シート削除

Sheet1を削除します。削除に成功した場合はTrue、シートが存在しないなど失敗した場合はFalseを返します。

UWSC
PRINT XLSHEET(Excel, "Sheet1", TRUE)

ライセンス登録の有無で条件分岐

XLSHEET関数はPro版でしか使用できない関数のため、GET_UWSC_PROでライセンス登録の有無をチェックします。

UWSC
IF GET_UWSC_PRO THEN PRINT XLSHEET(Excel, "Sheet4")

この記事は役に立ちましたか?

はい
いいえ
ご協力ありがとうございます。

関連記事

Sheets.Delete メソッド (Excel)
シートを削除します。
Sheets.Add メソッド (Excel)
新しいワークシート・グラフ・またはマクロ シートを作成します。新しいワークシートがアクティブ シートになります。
Sheets オブジェクト
指定されたブックまたは作業中のブックにあるすべてのシートのコレクションです。
Application.ActiveSheet プロパティ (Excel)
Worksheet オブジェクト
Range.ClearHyperlinks メソッド (Excel)
指定された範囲からすべてのハイパーリンクを削除します。
Range.AddComment メソッド (Excel)
指定してセルにコメントを設定する。
Range.ClearComments メソッド (Excel)
指定されたセル範囲からすべてのコメントを消去します。
Range.ClearFormats メソッド (Excel)
オブジェクトの書式設定を削除します。
Sheets.Move メソッド (Excel)
シートをブック内の他の場所に移動します。
Worksheets.Delete メソッド (Excel)
ワークシートを削除します。