UWSC

CREATEOLEOBJからExcelのCOMオブジェクトを作成し、
visibleプロパティを操作してExcel表示させます

EXCELを起動する

さあ、まずはExcelのCOMオブジェクトを生成し、起動させてみましょう。

上記のスクリプトを実行してみましょう。
するとExcelが画面に表示されます。
冒頭の「EXCEL = CREATEOLEOBJ(“Excel.Application”)」で、
ExcelのCOMオブジェクト(インスタンス)を作成し、EXCELという変数に格納しています。
続いて、そのExcelオブジェクトのvisibleプロパティの値をTrueに設定しています。
visibleとは「可視性」の意味で、オブジェクトの表示/非表示を司ります。
ただし、InternetExplorerとは少し異なり、Workbooks.add()という一文を加えることで、
通常Excelを起動した場合と同じ状況になります。

visibleプロパティの順番を変えてみよう

例えばVisible=Trueを先ではなく、Workbooks.add()の後に行った場合はどうなるでしょうか。
結果は変わらないことが想像できますが、
試しにやってみましょう。
スクリプトは以下になります。

どうでしょうか。
おそらく結果は変わらないでしょう。
ここでお伝えしたいことは、CREATEOLEOBJ(“Excel.Application”)で、
ExcelのCOMオブジェクトを作成した時点で、
利用や取得が可能になるメソッドやプロパティがあるという事です。

ExcelのCOMオブジェクトを作成し、
ワークブックを追加します

EXCELにワークブックを追加する

EXCELにワークブックを追加しましょう。
特に指定、設定をしていなければBook1という名前のワークブックが追加され
3枚のワークシート「Sheet1、Sheet2、Sheet3」が付属しているはずです。

上記のスクリプトを実行することで、結果を確認できます。

workbooks.addを複数実行するとどうなるか

workbooks.add()を連続してみましょう。 スクリプトは以下になります。

どうでしょうか。
2つのワークブックが追加され、
最後にワークブックの数をworkbooks.count()で取得しています。

Excelが起動しており、ワークブックが存在する場合に、
activeworkbookで選択しているワークブックを指定します。
そしてそのワークブックにワークシートを追加します。

選択しているワークブックを指定しEXCELにワークシートを追加する

EXCELにワークシートを追加しましょう。
下記のスクリプトでは4枚のワークシート「Sheet4」が追加されます。

上記のスクリプトを実行することで、結果を確認できます。

worksheets.addを複数実行し、数をかぞえる

worksheets.add()を連続してみましょう。 スクリプトは以下になります。

どうでしょうか。
ワークブックにワークシートが追加され、
最後にワークシートの数をworksheets.count()で取得しています。

Excelファイルが存在する場合に、
そのファイルをオープンする方法を解説します。

Excelファイルをオープンする

例えばデスクトップにいくつかのExcelファイルが並んでいるとしましょう。

その中の一つ(yes.xls)をオープンします。

上記のスクリプトを実行することで、結果を確認できます。

複数ファイルをオープンする

openを連続してみましょう。

デスクトップに3ファイル(yes.xls、no.xls、unknown.xls)が並んでいる場合
スクリプトは以下になります。

どうでしょうか。
3ファイルがオープンされ、ファイル名が出力されます。

ワークシートの追加、
および選択と名前取得をする方法を解説します

ワークシートの追加、選択、名前取得を実行

上記のスクリプトを実行することで、結果を確認できます。

複数のシートを追加し、シート名を変更する

シートの名前は変更することができます。複数のワークシートを処理する以下のスクリプトを見てみましょう。

ワークブックにワークシートが10枚追加され、全てが「Rename_」で始まる名前になりました。

セルの位置を取得する

新規ワークブックを追加した際の現在のセル位置を取得する

上記のスクリプトを実行することで、結果を確認できます。
ワークブックを新規追加すると、
A1の位置にセルが置かれています。
そのため結果が「$A$1」となります。

絶対参照、相対参照でセル位置を取得する

パラメータを利用することで、取得時に絶対参照か相対参照か選ぶことができます

それぞれ、絶対参照、列や行の相対参照、相対参照でセル位置を取得できました。

セルの行や列の位置を取得する

新規ワークブックを追加した際の現在のセルの行や列の位置を取得する

上記のスクリプトを実行することで、結果を確認できます。
ワークブックを新規追加すると、
A1の位置にセルが置かれています。
行は行番号となり、
列の場合はAから採番されているので、対応する数値が返ります。

セルの位置を変更してから取得してみる

上記のサンプルだと、結果がどちらも1となります。分かりやすい様にセルの位置を変えてから、再度取得してみましょう
サンプルは下記のようになります。

移動前と後で数値が変化しているのがわかると思います。

セルを絶対移動、相対移動する

セルを移動してみる

絶対移動で行のアルファベット、列の数字を組み合わせたセル位置を入力し、Selectすることで該当場所へ移動できます。
ActiveCell.Offsetで行の数字、列の数字を入力し、Selectすることで該当場所へ移動できます。

上記のスクリプトを実行することで、セルの移動結果を確認できます。
まずはA30の位置に移動、
そしてそこから下行に1つ、右列に2つ相対移動します。

セルの位置を確認しながら実行する

上記のサンプルだと、一瞬のうちに移動してしまうので確認がしづらいです。
分かりやすい様にメッセージを出しながら実行してみましょう。

スクリプトは下記のようになります。

視覚的にセル移動を確認できたと思います。

対象セルを含む領域の終端を取得する

終端を取得する

下記のサンプルでは3 × 3の範囲で値を入力した範囲の終端のアドレスを取得しています

上記のスクリプトを実行することで、終端の情報が取得できます。
冒頭の例や、サンプルスクリプトではAddressで位置情報を取得していますが、
Selectによる移動、Valueによる値取得も行えます。

30 × 30の範囲で終端のアドレス、値を取得する

上記のサンプルより規模を大きくし、
かつ位置情報以外にもセル移動や値取得をしてみましょう。

スクリプトは下記のようになります。

終端を検知できるため、繰り返し処理の時にどこまで実行すればよいのか把握するのに便利です。

特定の範囲を検索する

文字列を指定し、検索に合致するセルに移動する

範囲を指定(Range(X:X)し、Findを実行することで、該当キーワードに一致するセルの位置情報を取得できます。

以下のサンプルにおいて、「a」と入力してから、セルの移動を行い、その後でFindで見つけた位置を選択しています。

検索にヒットした箇所の背景色を変えてみる

上記のスクリプトでは、一瞬のうちに処理が完了してしまうので、本当に挙動したかわかりにくいです。
次のスクリプトで、メッセージによる処理のコメントや、検索結果セルの背景色の変更を実施してみます。
これで処理の流れがわかりやすくなると思います。
スクリプトは下記のようになります。

該当のセルが赤色になりました。

検索を繰り返す

検索を繰り返す

「特定の範囲を検索する」で、検索の方法について説明しました。
この記事では複数検索にヒットする状況の場合の、繰り返し方法を説明します。

複数の検索条件に合致するセルがあった場合に、次のセル、次のセルと移動する処理を実現するためFindNextやFindPreviousを使います。

メッセージを出しながら検索を繰り返す

上記のスクリプトでは、一瞬のうちに処理が完了してしまうので、挙動しているのか確認が難しいです。
次のスクリプトで、メッセージによる処理のコメント、背景色の変更が行われるので、検索の繰り返しがわかりやすく確認できます。
スクリプトは下記のようになります。

繰り返し「次」「前」と検索できることが確認できました。

セル内の値を数式や文字列で取得する

数式や文字列を取得する

valueの場合、セルに格納されている情報を取得しますが、
数式や、実際に表示されている値を取得する場合には上記の方法を使います。

数式のまま、あるいは表示文字列で取得できました。

valueとの違いを見てみる

続いて、valueにより取得した値も並べて表示し、違いを見て見ましょう

スクリプトは下記のようになります。

実現したい処理に応じて、取得する値の形式を分けてることができます。

オートフィルを実行する

1と入力したセルの下に2、3、4・・・と連続させる

AutoFillメソッドで呼ばれるオートフィルという機能は
Excelでも重宝する機能です。
連続した数値の範囲を選択し、ドラッグすると連続した値を自動で埋めてくれます。
これをスクリプトで実現すると下記のようになります。

1に続いて2～10までの値がオートフィルされました。

日付や曜日、適切な値の場合も見てみる

オートフィルのタイプに様々なタイプを指定してみましょう。
サンプルは下記の通りとなります。

それぞれ、任意のオートフィルで値が展開されています。

色を指定する

ColorもしくはColorIndexで色を指定する

Colorは16進数での色指定、ColorIndexはあらかじめ決められた色セットの数値(57色)から選択指定します。

ColorIndexの一覧を見てみる

実際はColorで16進数指定する事は煩雑なため、
ColorIndexを使うケースが多いです。
下記のスクリプトでColorIndexの一覧を出力してみましょう。

スクリプトは以下のようになります。

ColorIndexの一覧とその番号を確認できました。3=赤、5=青、46=オレンジなどを知っておくと便利です。

特定の範囲を置換する

文字列を指定し、検索で合致するセルを置換する

範囲を指定(Range(X:X)し、Replaceを実行することで、該当キーワードに一致するセルの文字列を指定文字列に置換できます。

以下のサンプルにおいて、「おにぎり」と入力し、セルの移動を行い、その後でReplaceで「パン」に置換しています。

複数の箇所が置換されるか確認する

上記のスクリプトでは、一瞬のうちに処理が完了してしまうので、本当に挙動したかわかりにくいです。
次のスクリプトで、メッセージによる処理のコメントを行い、複数セルの一斉処理が出来るか確認してみましょう
これで処理の流れがわかりやすくなると思います。
スクリプトは下記のようになります。

該当のセルが赤色になりました。

[ファイルを開く]を表示する

ユーザが指定してファイルを開くようにすることができます。
ファイルを開いた後もスクリプトの作業は継続できます。

ファイルを開いたかを判定する

FindFileはTRUE/FALSEの値を返すので、ファイルを開いたか、開いていないか判定しましょう。
下記のスクリプトのようになります。

ファイルを開くことができました。

再計算を実行する

計算式を再実行する

セルの値を再計算します。

例えば”=Now()”という関数が埋め込まれたセルは現在時間を表示します。再計算を実行することでまた最新の時間に更新されます。

ランダム値を更新する

上のスクリプトでは、時間の経過が確認しずらいかもしれません。
代わりに乱数を使って、いっせいに再更新するスクリプトを実行してみます。
10×10の範囲内に”=RAND()”関数を挿入し、0～1の間のランダムな数が表示されます。
そこで再計算を実行することで、ランダムな値が一斉に変わるようになります。 スクリプトは下記のようになります。

再計算が実行されました

[ファイルを開く]を表示して、選択されたファイル名を取得する

このメソッドは、ファイルを開くのではなく、選択されたファイルの名称を取得します

ファイルを開いたかを判定する

選択されなかった場合はFALSEの値を返すので、ファイルを開いたか、開いていないか判定しましょう。
下記のスクリプトのようになります。

ファイルを開くことができました。

ワークブック名、シート名を取得・選択する

ワークブック名、シート名を取得・選択する

ワークブックの名前やシートの名前をNameで取得することが出来ます。
またSheetsオブジェクトに対してCountをすることでシート数を取得できます。

全てのシート名を取得する

上のスクリプトで、ワークブック名、ワークシート名、シート数を取得できました。
これらのパーツを組み合わせて、現在選択しているワークブックの全てのシート名を取得、選択してみましょう。
下記のスクリプトのようになります。

シートの取得、選択を順番に行うので、最後のシートが選択されて終了していることでしょう。

ブックを保存し閉じる

ブックを保存し閉じる

ブックを上書き保存(Save)、別名で保存(SaveAs)をすることができます。
またブックの変更後に保存されたか否かをSavedで取得することができます。
最後にCloseとすることでブックが閉じられます。

上記のスクリプトを実施すると、ブックの保存やクローズが確認できます。
なお、上書き保存時に保存されるパスはご自身のマシンにより異なります。
※例えばマイドキュメントに保存されます

保存状況に応じて保存する

Savedを使うことにより、未保存時はFalse、保存時はTrueが返ります。
条件分岐に使用し、未保存ならば上書き、保存済みならば別名で保存をするようにしてみます。
スクリプトは下記のとおりです。

シートの取得、選択を順番に行うので、最後のシートが選択されて終了していることでしょう。