1. Excel

ExcelまたはOOoのCalcを起動する関数です。第一引数に読み込むファイル名（新規の場合は省略）、第二引数に起動フラグ、第三引数以降にパラメータ（パスワードや読み込み専用）を指定します。

XLOPEN関数を使うとファイルが既に開かれている場合そのファイルのオブジェクトを取得するので、同じファイルが開かれて[読み取り専用]になるのを防ぐことができます。

構文

1. Excel = XLOPEN( ファイル名, 起動フラグ, パラメータ, パラメータ, … )

引数

ファイル名 （String）省略可

読み込むファイル名、新規の場合は省略

起動フラグ （Boolean = 0,#xlopen = 0）省略可

0（デフォルト）

起動済みのExcelがある場合はそれを、なければ新規にExcelを起動

XL_NEW, True（1）

既にExcelが存在しても 新規にExcelを起動

XL_BOOK（2）

ExcelにてBOOK単位で制御したい場合（BOOKのオブジェクトを返す）

XL_OOOC（3）

OpenOffice.org/LibreOfficeの表計算(Calc)の起動

パラメータ （String）省略可

ファイルオープンに対し追加パラメータがある場合に（"password:=1234", "ReadOnly:=True" 等）
Excelのパラメータ

UpdateLinks

リンク更新方法（0:外部参照,リモート参照とも未更新、1:外部更新,リモート未更新、2:リモート更新,外部未更新、3:ともに更新）

ReadOnly

読み取り専用で開く場合にTrueを指定

Format

テキストファイル時の区切り文字（1:タブ、2:カンマ、3:スペース、4:セミコロン）

Password

パスワード保護されたブックを開くのに必要なパスワード

WriteResPassword

書き込み保護されたブックに書き込むのに必要なパスワード

IgnoreReadOnly

「読み取り専用を推奨する」のダイアログを抑止したい場合にTrueを指定

戻り値

ExcelのCOMオブジェクト
（XL_OOOC指定時はOOoのCalcのオブジェクト)

使い方

Excelを起動

起動済みのExcelがあればそれを、なければ新規にExcelを起動します。Excel オブジェクトを戻り値として返します。

Excelを起動（新規）

起動済みのExcelの有無に関係なく、Excelを新規で起動します。

パスワード保護のかかったブックを開く

パスワード保護のかかったBook1.xlsxを開きます。以下の例ではパスワードは1234です。パスワードが違う場合EXCEL cannot be startedエラーが発生します。

LibreOffice Calcを起動

LibreOffice Calcを新規で起動します。起動フラグにXL_OOOCを指定している場合は起動済みのCalcを取得することはできず、起動は新規でのみです。

LibreOffice Calcで起動（読み取り専用）

パラメータにReadOnly:=Trueを指定してBook1.xlsxをLibreOffice Calcで読み取り専用で起動します。

Workbookオブジェクトを取得

起動済み、なければ新規でExcelを起動します。Workbook オブジェクトを取得しブック名を出力します。

結果

プレーンテキスト

CopyBook1

複数のパラメータを指定

パラメータを複数指定する場合は、第三引数以降にカンマ区切りで指定します。以下は読み取り専用とパスワードの２つを指定しています。パラメータは順不同です。

Workbooks.Openでの書き換え

XLOPEN関数はUWSCのPro版限定なので、Free版で使用する場合はWorkbooks.Open メソッド (Excel)で書き換えることで同じように使うことができます。

Book1を1234のパスワードを入力して開く。

Book2を読み取り専用で開く。

Book3を1234のパスワードを入力して、読み取り専用で開く。

Free版でXLOPEN関数を使う

XLOPEN関数はPro版でしか使えないのですが、以下のXLOPEN関数を定義すればFree版でも使えるようになります。Pro版でXLOPEN関数が使える状態で以下の関数を定義すると、自分で定義した方の関数が優先的に使用されます。

プログラム実行例

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

結果

使用関数

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を起動

UWSC

CopyDIM Excel = XLOPEN() //XLCLOSE(Excel, TRUE)

使用関数

XLOPEN関数(1)

ExcelまたはOOoのCalcを起動。

XLCLOSE関数(2)

Excelを終了する。

LibreOffice Calcを起動

UWSC

CopyDIM Excel = XLOPEN(, XL_OOOC) //XLCLOSE(Excel, TRUE)

使用関数

XLOPEN関数(1)

ExcelまたはOOoのCalcを起動。

XLCLOSE関数(2)

Excelを終了する。

Excelでセルに値を代入

UWSC

CopyDIM Excel = XLOPEN() FOR row = 1 TO 5 FOR col = 1 TO 5 XLSETDATA(Excel, row + ", " + col, row, col) NEXT NEXT //XLCLOSE(Excel, TRUE)

使用関数

XLOPEN関数(1)

ExcelまたはOOoのCalcを起動。

XLSETDATA関数(5)

Excelのセルに値を代入する。

XLCLOSE関数(9)

Excelを終了する。

セルに配列の値を代入

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

UWSC

CopyDIM Excel = XLOPEN() DIM arr[2][1] = 12, 45, 78, 2417, 51, 478 XLSETDATA(Excel, arr, "A1") //XLCLOSE(Excel, TRUE)

使用関数

XLOPEN関数(1)

ExcelまたはOOoのCalcを起動。

XLSETDATA関数(4)

Excelのセルに値を代入する。

XLCLOSE関数(6)

Excelを終了する。

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

UWSC

CopyDIM Excel = XLOPEN() XLACTIVATE(Excel, "Sheet2") //XLCLOSE(Excel, TRUE)

使用関数

XLOPEN関数(1)

ExcelまたはOOoのCalcを起動。

XLACTIVATE関数(2)

Excelシートをアクティブ化する。

XLCLOSE関数(4)

Excelを終了する。

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

UWSC

CopyDIM Excel = XLOPEN() XLSETDATA(Excel, RANDOM(), "A1") PRINT XLGETDATA(Excel, "A1") //XLCLOSE(Excel, TRUE)

使用関数

XLOPEN関数(1)

ExcelまたはOOoのCalcを起動。

XLSETDATA関数(2)

Excelのセルに値を代入する。

XLGETDATA関数(3)

Excelのセルからの値の取得する。

XLCLOSE関数(5)

Excelを終了する。

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

UWSC

CopyDIM 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) ////////////////////////////////////////////////// // 【引数】 // 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 ////////////////////////////////////////////////// // 【引数】 // 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 ////////////////////////////////////////////////// // 【引数】 // 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

使用関数

CREATEOLEOBJ関数 (スクリプト関数)(1,17)

COMオブジェクトを生成します。

オブジェクトが表示されているかどうかの値を取得もしくは設定します。

IE.Navigate メソッド(3)

URLまたは絶対パスで指定されたファイルを開きます。

BusyWait関数 (自作関数)(4)

IEオブジェクトの読み込みが完了するのを待ちます。

IE.Document プロパティ(6)

ドキュメントオブジェクトを取得

getTableData関数 (自作関数)(10)

Web上のtableタグのデータを取得し、二次元配列に格納します。

XLOPEN関数(14)

ExcelまたはOOoのCalcを起動。

XLSETDATA関数(15)

Excelのセルに値を代入する。

uniqueFilename関数 (自作関数)(18)

重複しないファイル名を生成します。

FSO.BuildPath メソッド(18)

フォルダパスとフォルダまたはファイルの名前を結合したパス文字列を返します。

XLCLOSE関数(19)

Excelを終了する。

関連記事

XLSETDATA関数 (スクリプト関数)

Excelのセルに値を代入する。

XLSHEET関数 (スクリプト関数)

Excelシートを追加・削除する。

PageSetup オブジェクト

Excel のシートの印刷設定を表すオブジェクトです。シートの用紙サイズ、余白、方向、印刷タイトルなど、印刷に関連する設定を管理するのに使用されます。

Application オブジェクト

Excel全体を表すオブジェクトです。Excel全体に対しての操作、設定変更をしたい場合に使います。

Border オブジェクト

上下左右一つひとつの罫線を表します。

Characters オブジェクト

オブジェクトに含まれる文字列の文字を表します。

Charts オブジェクト

指定されたブックまたは作業中のブックにあるすべてのグラフシートのコレクションです。

Comment オブジェクト

セルに関連付けられたコメントを表します。

FullSeriesCollection オブジェクト

グラフのデータ系列を表すコレクション。

LineFormat オブジェクト

線に関する書式設定。