XLCLOSEエクセルクローズ関数

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

Excelを終了します。

構文
  1. Boolean = XLCLOSE( Excel, ファイル名 )
引数
Excel （Object）必須
Excel(またはOOoのCalc)のCOMオブジェクト
ファイル名 （String）省略可
保存するファイル名
ファイル名が付いている場合は省略可
TRUEを指定した場合は保存せずに終了
戻り値
TRUE
正常
FALSE
処理不能

自作のXLCLOSE関数

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

UWSC
FUNCTION XLCLOSE(Excel, filename = EMPTY)
    DIM flg = TRUE
    IFB filename <> EMPTY AND filename <> TRUE THEN
        TRY
            Excel.ActiveWorkbook.SaveAs(filename)
        EXCEPT
            flg = FALSE
        ENDTRY
    ENDIF
    Excel.Application.DisplayAlerts = FALSE
    Excel.Quit
    RESULT = flg
FEND

使い方

保存して終了

ブックを保存してExcelを終了します。新規ブックで変更が加えられている場合、'ブック名' への変更を保存しますか?というダイアログが表示されます。変更が加えられていない場合は、保存せずに終了します。

UWSC
XLCLOSE(Excel)

保存せずに終了

ブックを保存せずにExcelを終了します。

UWSC
XLCLOSE(Excel, TRUE)

プログラム実行例

Excelを起動

UWSC
DIM Excel = XLOPEN()
//XLCLOSE(Excel, TRUE)
使用関数

LibreOffice Calcを起動

UWSC
DIM Excel = XLOPEN(, XL_OOOC)
//XLCLOSE(Excel, TRUE)
使用関数

Excelでセルに値を代入

UWSC
DIM Excel = XLOPEN()

FOR row = 1 TO 5
	FOR col = 1 TO 5
		XLSETDATA(Excel, row + ", " + col, row, col)
	NEXT
NEXT

//XLCLOSE(Excel, TRUE)
使用関数

セルに配列の値を代入

配列の場合、セル位置は必須。

UWSC
DIM Excel = XLOPEN()
DIM arr[2][1] = 12, 45, 78, 2417, 51, 478

XLSETDATA(Excel, arr, "A1")

//XLCLOSE(Excel, TRUE)
使用関数

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

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

//XLCLOSE(Excel, TRUE)
使用関数

指定したセルから値を取得します

UWSC
DIM Excel = XLOPEN()
XLSETDATA(Excel, RANDOM(), "A1")
PRINT XLGETDATA(Excel, "A1")

//XLCLOSE(Excel, TRUE)
使用関数

楽天銀行定期預金の金利をExcelに保存

UWSC
DIM IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.Visible = TRUE
IE.Navigate("https://rbweb.rakuten-bank.co.jp/REF/main/fis/BasicTimeDepositInterestRate.html?PageID=BasicTimeDepositInterestRatePresentationLogicBean")
BusyWait(IE)

DIM elements = IE.document.getElementsByTagName("table")
DIM element = elements.Item(0)
DIM arr[-1][-1]

getTableData(element, arr)

IE.Quit

DIM Excel = XLOPEN()
XLSETDATA(Excel, arr, "A1")

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM path = uniqueFilename(FSO.BuildPath(GET_CUR_DIR, "楽天銀行定期預金金利.xlsx"))
XLCLOSE(Excel, path)
使用関数