XLACTIVATEエクセルアクティベート関数

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

指定したSheetをアクティブ化します。

構文
  1. Boolean = XLACTIVATE( Excel, Sheet名, Book名 )
引数
Excel (Object)必須
Excel(またはOOoのCalc)のCOMオブジェクト
Sheet名 (String)必須
アクティブにするシート名(順番での指定も可)
Book名 (String)省略可
アクティブにするブック名
戻り値
TRUE
正常
FALSE
処理不能

自作のXLACTIVATE関数

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

UWSC
FUNCTION XLACTIVATE(Excel, sheetName, bookName = EMPTY)
   DIM flg = TRUE
   TRY
       IFB bookName = EMPTY THEN
           Excel.Sheets(sheetName).Select
       ELSE
           Excel = GETACTIVEOLEOBJ("Excel.Application", bookName)
           Excel.Sheets(sheetName).Select
       ENDIF
   EXCEPT
       flg = FALSE
   ENDTRY
   RESULT = flg
FEND

プログラム実行例

指定したシートをアクティブにする

UWSC
DIM Excel = XLOPEN()
XLACTIVATE(Excel, "Sheet2")

//XLCLOSE(Excel, TRUE)