XLSETDATA関数

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

Excel

Excelのセルに値を代入します。

構文

Boolean = XLSETDATA( Excel, 値, セル位置, Column, Sheet名, 文字色, セル色 )

引数

Excel （Object）必須: Excel(またはOOoのCalc)のCOMオブジェクト
値（Integer）必須: 設定する値
セル位置（Integer = 現在の選択セル）省略可: A1形式、もしくはR1C1形式の行を指定　（省略された場合は現在の選択セル）
Column （Integer）省略可: R1C1形式時の列
Sheet名（String = アクティブシート）省略可: 指定シートへ設定（指定がなければアクティブシート）
文字色（Integer）省略可: BGR値にて指定
セル色（Integer）省略可: BGR値にて指定

戻り値

TRUE: 正常
FALSE: 処理不能

配列を渡す時にRangeの大きさを指定する必要はありません（ [2,2]の配列を渡す時に"A1B2"ではなく、"A1"だけで可）

BGR値　例)　青：$FF0000、緑：$00FF00、赤：$0000FF、オレンジ：$80FF、黄：$FFFF

自作のXLSETDATA関数

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

FUNCTION XLSETDATA(Excel, value, position = EMPTY, column = EMPTY, sheetName =  EMPTY, fontColor = EMPTY, cellsColor = EMPTY)
    DIM flg = TRUE
    TRY
        IF sheetName = EMPTY THEN sheetName = Excel.ActiveSheet.Name
        IFB position = EMPTY THEN
            Excel.ActiveCell.Value = value
            IF fontColor <> EMPTY THEN Excel.ActiveCell.Font.Color = fontColor
            IF cellsColor <> EMPTY THEN Excel.ActiveCell.Interior.Color =  cellsColor
        ELSEIF VAL(position) = position AND VAL(column) = column THEN
            Excel.Worksheets(sheetName).Cells(position, column).Value = value
            IF fontColor <> EMPTY THEN  Excel.Worksheets(sheetName).Cells(position, column).Font.Color = fontColor
            IF cellsColor <> EMPTY THEN  Excel.Worksheets(sheetName).Cells(position, column).Interior.Color = cellsColor
        ELSE
            Excel.Worksheets(sheetName).Range(position).Value = value
            IF fontColor <> EMPTY THEN Excel.ActiveCell.Font.Color = fontColor
            IF cellsColor <> EMPTY THEN Excel.ActiveCell.Interior.Color =  cellsColor
        ENDIF
    EXCEPT
        flg = FALSE
    ENDTRY
    RESULT = flg
FEND

プログラム実行例

気象庁のホームページから一月分の気温を取得しExcelでグラフを作成

CONST xlUp = -4162
CONST xlLineMarkers = 65

DIM year = 2020
DIM month = 8

DIM IE = IEBoot()
IE.Navigate("https://www.data.jma.go.jp/obd/stats/etrn/view/daily_s1.php?prec_no=14&block_no=47412&year=" + year + "&month=" + month + "&day=&view=p1")
BusyWait(IE)

DIM array[-1][-1]
DIM element = IE.document.getElementById("tablefix1")
getTableData(element, array)

IE.Quit

DIM Excel = XLOPEN()
DIM SheetName = Excel.ActiveSheet.Name

XLSETDATA(Excel, array, "A1")

DIM row = Excel.Cells(Excel.Rows.Count, 1).End(xlUp).Row
DIM Charts = Excel.Charts.Add

WITH Charts
	.ChartType = xlLineMarkers
	.SeriesCollection.NewSeries
	.HasTitle = TRUE
	.ChartTitle.Text = "札幌 " + year + "年" + month + "月気温"

WITH .FullSeriesCollection(1)
		.XValues = "=Sheet1!$A$5:$A$35"
		.Name = "=<#DBL>最高気温<#DBL>"
		.Values = "=Sheet1!$H$5:$H$35"
		WITH .Format
			.Fill.ForeColor.RGB = 255
			.Line.ForeColor.RGB = 255
		ENDWITH
	ENDWITH

WITH .FullSeriesCollection(2)
		.XValues = "=Sheet1!$A$5:$A$35"
		.Name = "=<#DBL>最高気温<#DBL>"
		.Values = "=Sheet1!$I$5:$I$35"
		WITH .Format
			.Fill.ForeColor.RGB = 16711680
			.Line.ForeColor.RGB = 16711680
		ENDWITH
	ENDWITH
ENDWITH

//////////////////////////////////////////////////
// 【引数】
//   array : 要素を追加する配列（参照引数）
//   values : 追加する要素をvalue1から指定
// 【戻り値】
//   処理後の配列の要素の数
//////////////////////////////////////////////////
FUNCTION arrayPush(var array[], value1 = EMPTY, value2 = EMPTY, value3 = EMPTY, value4 = EMPTY, value5 = EMPTY, value6 = EMPTY, value7 = EMPTY, value8 = EMPTY, value9 = EMPTY, value10 = EMPTY, value11 = EMPTY, value12 = EMPTY, value13 = EMPTY, value14 = EMPTY, value15 = EMPTY, value16 = EMPTY)
    DIM i = 1
    WHILE EVAL("value" + i) <> EMPTY
	  DIM res = RESIZE(array, UBound(array) + 1)
	  array[res] = EVAL("value" + i)
	  i = i + 1
	WEND
	RESULT = LENGTH(array)
FEND

//////////////////////////////////////////////////
// 【引数】
//   needle : 検索する値
//   haystack : 配列
// 【戻り値】
//   needleが見つかった場合に配列のキー
//////////////////////////////////////////////////
FUNCTION arraySearch(needle, haystack[])
	DIM i = 0
	FOR item IN haystack
		IFB item = needle THEN
			RESULT = i
			EXIT
		ENDIF
		i = i + 1
	NEXT
FEND

//////////////////////////////////////////////////
// 【引数】
//   IE : IEオブジェクト
// 【戻り値】
//////////////////////////////////////////////////
PROCEDURE BusyWait(Var IE)
	SLEEP(0.500)
	DIM t = GETTIME()
	TRY
		REPEAT
			DIM tm = GETTIME() - t
			FUKIDASI("BusyWait：" + tm)
			SLEEP(0.010)
			IF tm >= 60 THEN BREAK
		UNTIL !IE.Busy AND IE.readyState = 4
	EXCEPT
		IE = getIEObj(-1)
		PRINT IE.document.URL + " のIEオブジェクトを取得しました。"
		BusyWait(IE)
	ENDTRY
	FUKIDASI()
FEND

//////////////////////////////////////////////////
// 【引数】
//   文字列 or 数値 : 取得したい<a href="https://uwsc.jp/com/ie/">InternetExplorer オブジェクト</a>のタイトル・URLもしくは数値を指定
//   完全一致フラグ : （TRUE : 文字列が完全一致したものを取得、FALSE : 文字列の一部を含むものを取得）
// 【戻り値】
//   条件に一致する<a href="https://uwsc.jp/com/ie">InternetExplorer</a>
//////////////////////////////////////////////////
FUNCTION getIEObj(str, flg = FALSE)
	DIM Shell = CREATEOLEOBJ("Shell.Application")
	DIM ShellWindows = Shell.Windows
	DIM IE[-1]
	FOR i = 0 TO ShellWindows.Count - 1
		TRY
			IFB ShellWindows.Item(i).Name = "Internet Explorer" THEN
				arrayPush(IE, ShellWindows.Item(i))
			ENDIF
		EXCEPT
		ENDTRY
	NEXT
	SELECT CHKNUM(str)
		CASE TRUE
			IFB str = 0 THEN
				RESULT = LENGTH(IE)
			ELSE
				IF str < 0 THEN str = str + LENGTH(IE) + 1
				TRY
					RESULT = IE[str-1]
				EXCEPT
					RESULT = ERR_VALUE
				ENDTRY
			ENDIF
		CASE FALSE
			DIM pattern = IIF(flg, "^" + str + "$", str)
			DIM titleList = SLICE(IE)
			FOR i = 0 TO UBound(titleList)
				titleList[i] = titleList[i].Document.title
			NEXT
			DIM urlList = SLICE(IE)
			FOR i = 0 TO UBound(urlList)
				urlList[i] = urlList[i].Document.URL
			NEXT
			DIM num = ERR_VALUE
			SELECT TRUE
				CASE pregGrep(pattern, titleList) <> FALSE;	num = arraySearch(pregGrep(pattern, titleList)[0], titleList)
				CASE pregGrep(pattern, urlList) <> FALSE;		num = arraySearch(pregGrep(pattern, urlList)[0], urlList)
			SELEND
			TRY
				RESULT = IE[num]
			EXCEPT
				RESULT = ERR_VALUE
			ENDTRY
	SELEND
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
	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
			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
			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
			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

//////////////////////////////////////////////////
// 【引数】
//   InPrivate : InPrivateブラウズ・モードを有効にするときはTRUEを指定
// 【戻り値】
//   InternetExplorerオブジェクト
//////////////////////////////////////////////////
FUNCTION IEBoot(InPrivate = FALSE)
	DIM IE
	SELECT InPrivate
		CASE TRUE
			DOSCMD("start iexplore -private")
			GETID("InPrivate - Internet Explorer - [InPrivate]", "IEFrame", -1)
			IE = GETACTIVEOLEOBJ("InternetExplorer.Application","InPrivate - Internet Explorer - [InPrivate]")
		CASE FALSE
			TRY
				IE = CREATEOLEOBJ("InternetExplorer.Application")
				IE.Visible = TRUE
			EXCEPT
				EXEC("C:\Program Files\Internet Explorer\iexplore.exe")
				GETID("Internet Explorer", "IEFrame", -1)
				TRY
					IE = GETACTIVEOLEOBJ("InternetExplorer.Application")	
				EXCEPT
					IE = getIEObj(-1)
				ENDTRY
			ENDTRY
	SELEND
	RESULT = IE
FEND

//////////////////////////////////////////////////
// 【引数】
//   expr : 評価する式
//   truepart : 評価した式がTrueのときに返す値
//   falsepart : 評価した式がFalseのときに返す値
// 【戻り値】
//   truepart : 評価した式がTrueのとき、falsepart : 評価した式がFalseのとき
//////////////////////////////////////////////////
FUNCTION IIF(expr, truepart, falsepart)
	IFB EVAL(expr) THEN
		RESULT = truepart
	ELSE
		RESULT = falsepart
	ENDIF
FEND

//////////////////////////////////////////////////
// 【引数】
//   pattern : 検索するパターンを表す文字列
//   array : 検索される配列
// 【戻り値】
//////////////////////////////////////////////////
FUNCTION pregGrep(pattern, array[], flags = 0)
	DIM res[-1]
	FOR item IN array
		IF reTest(item, pattern) THEN arrayPush(res, item)
	NEXT
	RESULT = SLICE(res)
FEND

//////////////////////////////////////////////////
// 【引数】
//   str : 正規表現による検索の対象となる文字列
//   Pattern : 正規表現で使用するパターンを設定
//   IgnoreCase : 大文字・小文字を区別しない場合はTrue、区別する場合はFalse
//   Global : 文字列全体を検索する場合はTrue、しない場合はFalse
// 【戻り値】
//   正規表現にマッチするかどうかを示すブール値
//////////////////////////////////////////////////
FUNCTION reTest(str, Pattern, IgnoreCase = TRUE, Global = TRUE)
	DIM re = CREATEOLEOBJ("VBScript.RegExp")
	re.Pattern = Pattern
	re.IgnoreCase = IgnoreCase
	re.Global = Global
	RESULT = re.Test(str)
FEND

//////////////////////////////////////////////////
// 【引数】
//   inputs : 繰り返す文字列
//   multiplier : inputsを繰り返す回数
// 【戻り値】
//   inputsをmultiplier回を繰り返した文字列を返します
//////////////////////////////////////////////////
FUNCTION strRepeat(inputs, multiplier)
	DIM res = ""
	FOR n = 1 TO multiplier
		res = res + inputs
	NEXT
	RESULT = res
FEND

//////////////////////////////////////////////////
// 【引数】
//   arrayname : 上限値を求める配列の名前
//   dimension : 返す次元を示す整数
// 【戻り値】
//   配列の上限値
//////////////////////////////////////////////////
FUNCTION UBound(arrayname[], dimension = 1)
	RESULT = EVAL("RESIZE(arrayname" + strRepeat("[0]", dimension - 1) + ")")
FEND

結果

使用関数

IEBoot関数 (自作関数)(7): Internet Explorerを起動する。
IE.Navigate メソッド(8): URLまたは絶対パスで指定されたファイルを開きます。
BusyWait関数 (自作関数)(9): IEオブジェクトの読み込みが完了するのを待ちます。
Document.getElementById メソッド (DOM)(12): 特定のidを持つエレメントへのオブジェクト参照を返します。
getTableData関数 (自作関数)(13): Web上のtableタグのデータを取得し、二次元配列に格納します。
XLOPEN関数(17): ExcelまたはOOoのCalcを起動。
Application.ActiveSheet プロパティ (Excel)(18): Worksheet オブジェクト
: シート名を取得または設定します。
XLSETDATA関数(20): Excelのセルに値を代入する。
Application.Cells プロパティ(22): 作業中のワークシートのすべてのセルを表すRange オブジェクトを返します。
: 対象セル範囲の領域における終端のRange オブジェクトへの参照を返します。
Range.Row プロパティ (Excel)(22): 範囲内の最初の領域の行番号を返します。
: アクティブなブック内のすべてのグラフシートを表すSheetsコレクションを返します。
Sheets.Add メソッド (Excel)(23): 新しいワークシート・グラフ・またはマクロシートを作成します。新しいワークシートがアクティブシートになります。
Charts オブジェクト(25): 指定されたブックまたは作業中のブックにあるすべてのグラフシートのコレクションです。
: グラフの種類を取得または設定します。
: グラフまたはグラフグループ内のすべての系列（SeriesCollectionコレクション）の1つの系列（Series オブジェクト）またはコレクションのいずれかを表すオブジェクトを返します。

Series オブジェクト(27): グラフのデータ系列を表します。
Chart.HasTitle プロパティ (Excel)(28): 軸やグラフのタイトルを表示する場合はTrueを指定します。
: 指定したグラフのタイトルを表すChartTitleオブジェクトを返します。


FullSeriesCollection オブジェクト(31,41): グラフのデータ系列を表すコレクション。
: FullSeriesCollection オブジェクトから1つのオブジェクトを返します。
: グラフの系列のx値の配列を取得または設定します。
: グラフの系列名を取得または設定します。
: グラフの系列値を取得または設定します。
Series.Format プロパティ (Excel)(35,45)
: 指定した前景の塗りつぶしまたは単色を表すColorFormatオブジェクトを取得または設定します。

Excelでセルに値を代入

使用関数

セルに配列の値を代入

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

使用関数

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

使用関数

楽天銀行定期預金の金利を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)

//////////////////////////////////////////////////
// 【引数】
//   path : ファイルのパス
// 【戻り値】
//   重複しないファイル名
//////////////////////////////////////////////////
FUNCTION uniqueFilename(path)
	DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
	IFB FSO.FileExists(path) THEN
		DIM fol = FSO.GetParentFolderName(path)
		DIM filename = FSO.GetBaseName(path)
		DIM extension = FSO.GetExtensionName(path)
		DIM 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

使用関数

XLOPEN関数 (スクリプト関数): ExcelまたはOOoのCalcを起動。
XLSHEET関数 (スクリプト関数): Excelシートを追加・削除する。
PageSetup オブジェクト: Excel のシートの印刷設定を表すオブジェクトです。シートの用紙サイズ、余白、方向、印刷タイトルなど、印刷に関連する設定を管理するのに使用されます。
Application オブジェクト: Excel全体を表すオブジェクトです。Excel全体に対しての操作、設定変更をしたい場合に使います。
Border オブジェクト: 上下左右一つひとつの罫線を表します。
Characters オブジェクト: オブジェクトに含まれる文字列の文字を表します。
Charts オブジェクト: 指定されたブックまたは作業中のブックにあるすべてのグラフシートのコレクションです。
Comment オブジェクト: セルに関連付けられたコメントを表します。
FullSeriesCollection オブジェクト: グラフのデータ系列を表すコレクション。
LineFormat オブジェクト: 線に関する書式設定。

XLSETDATAエクセルセットデータ関数

自作のXLSETDATA関数

プログラム実行例

気象庁のホームページから一月分の気温を取得しExcelでグラフを作成

Excelでセルに値を代入

セルに配列の値を代入

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

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

関連記事

検索フォーム

設定

最近の投稿・更新

関連記事

タグ一覧

このページを共有する

寄付・支援