- 構文
- 戻値 = XLSETDATA( Excel, 値, [セル位置, Column, Sheet名, 文字色, セル色] )
- 引数
- Excel
- Excel(またはOOoのCalc)のCOMオブジェクト
- 値
- 設定する値
- セル位置
- A1形式、もしくはR1C1形式の行を指定 （省略された場合は現在の選択セル）
- Column
- R1C1形式時の列
- Sheet名
- 指定シートへ設定（指定がなければアクティブシート）
- 文字色
- BGR値にて指定
- セル色
- BGR値にて指定
- 戻値
- TRUE
- 正常
- FALSE
- 処理不能
配列を渡す時にRangeの大きさを指定する必要はありません（ [2,2]の配列を渡す時に"A1B2"ではなく、"A1"だけで可 ）
BGR値 例) 青：$FF0000、緑：$00FF00、赤：$0000FF、オレンジ：$80FF、黄：$FFFF
プログラム実行例
Excelでセルに値を代入
DIM Excel = XLOPEN()
FOR row = 1 TO 5
FOR col = 1 TO 5
XLSETDATA(Excel, row + ", " + col, row, col)
NEXT
NEXT
//XLCLOSE(Excel, TRUE)セルに配列の値を代入
配列の場合、セル位置は必須。
DIM Excel = XLOPEN()
DIM arr[2][1] = 12, 45, 78, 2417, 51, 478
XLSETDATA(Excel, arr, "A1")
//XLCLOSE(Excel, TRUE)指定したセルから値を取得します
DIM Excel = XLOPEN()
XLSETDATA(Excel, RANDOM(), "A1")
PRINT XLGETDATA(Excel, "A1")
//XLCLOSE(Excel, TRUE)楽天銀行定期預金の金利をExcelに保存
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)
//////////////////////////////////////////////////
// 【引数】
// IE : IEオブジェクト
// 【戻値】
//
//////////////////////////////////////////////////
PROCEDURE BusyWait(IE)
TRY
SLEEP(0.500)
REPEAT
SLEEP(0.010)
UNTIL !IE.Busy AND IE.readyState = 4
EXCEPT
SLEEP(5.000)
ENDTRY
FEND
//////////////////////////////////////////////////
// 【引数】
// table : tableエレメント
// arr : 取得したデータを格納する配列（参照引数）
// 【戻値】
//
//////////////////////////////////////////////////
PROCEDURE getTableData(table, Var arr[][])
// 何行何列のテーブルか求める
rowMax = table.rows.length - 1
colMax = 0
FOR row = 0 TO table.rows.length - 1
IFB table.rows(row).cells.length - 1 > colMax THEN
colMax = table.rows(row).cells.length - 1
ENDIF
NEXT
// テーブルの値を格納するための2次元配列を作成
DIM arr[rowMax][colMax]
// テーブルの値を格納
FOR row = 0 TO table.rows.length - 1
FOR col = 0 TO table.rows(row).cells.length - 1
n = 0
WHILE arr[row][col + n] <> ""
n = n + 1
WEND
arr[row][col + n] = table.rows(row).cells(col).innerText
// rowSpan（行結合）とcolSpan（列結合）の両方があれば
IFB table.rows(row).cells(col).rowSpan > 1 AND table.rows(row).cells(col).colSpan > 1 THEN
rmax = table.rows(row).cells(col).rowSpan - 1
cmax = table.rows(row).cells(col).colSpan - 1
FOR r = 1 TO rmax
FOR c = 1 TO cmax
arr[row + r][col + c] = "←"
NEXT
NEXT
ENDIF
// rowSpan（行結合）があれば結合セルに「↑」を代入
IFB table.rows(row).cells(col).rowSpan > 1 THEN
n = table.rows(row).cells(col).rowSpan - 1
WHILE n
arr[row + n][col] = "↑"
n = n - 1
WEND
ENDIF
// colSpan（列結合）があれば結合セルに「←」を代入
IFB table.rows(row).cells(col).colSpan > 1 THEN
n = table.rows(row).cells(col).colSpan - 1
WHILE n
arr[row][col + n] = "←"
n = n - 1
WEND
ENDIF
NEXT
NEXT
FEND
//////////////////////////////////////////////////
// 【引数】
// path : ファイルのパス
// 【戻値】
// 重複しないファイル名
//////////////////////////////////////////////////
FUNCTION uniqueFilename(path)
DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
IFB FSO.FileExists(path) THEN
fol = FSO.GetParentFolderName(path)
filename = FSO.GetBaseName(path)
extension = FSO.GetExtensionName(path)
i = 2
WHILE FSO.FileExists(FSO.BuildPath(fol, filename + " (" + i + ")." + extension))
i = i + 1
WEND
RESULT = FSO.BuildPath(fol, filename + " (" + i + ")." + extension)
ELSE
RESULT = path
ENDIF
FEND
