2013-11-04

VBAをRubyでテストする(4)

VBA

今回テスティングフレームワークは RSpec を使用します。

RSpec をインストール

コマンドプロンプトを起動し、Rubyのバージョンを確認する。
f:id:jsuo:20131121171016p:plain

コマンドプロンプトに install コマンドを入力する。

>gem install rspec

RSpecが無事にインストールされていることを確認する。
f:id:jsuo:20131121172206p:plain

exlap.rb

Rubyから直接Excelを扱うのは多少やり辛いため何かないかと探したことろ
T. Yoshiizumi氏作成の exlap という良さげなライブラリが見つかりました。
使わさせて頂きます。ありがとう T. Yoshiizumi氏
T. Yoshiizumi - Excel用ライブラリexlap.rbの使い方

DLした exlap.rb を受注検索.xlsmと同じフォルダに保存し練習としてテストコードを書いてみます。
受注検索.xlsmに標準モジュール Module1 を追加し
Module1 に sayHelloプロシージャを書きます。
見てのとおり引数を渡すとヘロー!{名前} と返すだけの処理です。

Option Explicit
Function sayHello(ByVal str As String) As String
    
    If Trim(str) = "" Then str = "名無し"
    
    sayHello = "Hello! " & str

End Function

sayHello_spec.rb を新規作成し sayHelloプロシージャのテストコードを書きます。

コマンドプロンプトから rspecコマンドでテストを実行します。

>rspec -fs sayHello_spec.rb

実行結果は 0 failures でした。問題ないようです。
f:id:jsuo:20131121224036p:plain

社員モデルクラスのテストコードを書く

テストを実行します。

>rspec -fs mdlEmployee_spec.rb

実行結果です。問題ないようです。
f:id:jsuo:20131122220200p:plain

RSpecに関しては「The RSpec Book」が参考になりました。

2013-11-03

VBAをRubyでテストする(3)

VBA

[受注検索] カスタムタブの社員IDと社員氏名はプルダウンでリスト表示する仕様にするため、リストの値をデータベースの [社員] テーブルから取得します。

まずはADOコネクションを管理するヘルパークラスを作ります。

hlpAdoConnect クラス

※フォントが妖しげな色になっていますがGistによるものです。ご了承下さい。

次に社員のモデルクラスを作ります。

mdlEmployee クラス

2013-11-02

VBAをRubyでテストする(2)

VBA

受注検索.xlsm を作成

1. Excel2010を起動する。

2. [ファイル] > [名前を付けて保存]を選択する。

3. ファイルの種類を [Exce マクロ有効ブック (*.xlsm)] に設定しファイル名を入力し [保存] ボタンを押します。
f:id:jsuo:20131116160048p:plain

4. Alt + F11キーを押して Visual Basic Editor をする。

5. 今回はデータベースとの接続に ActiveX Data Objects というAPIを使います。
Visual Basic Editor の[ツール] > [参照設定]を押してライブラリのリストから[Microsoft ActiveX Data Objects 6.1 Library]というヤツを探しチェックを入れて[OK]ボタンを押します。
f:id:jsuo:20131116161539p:plain

6. Excelに戻ります。UIとして[受注検索]というカスタムタブを用意しました。社員情報等の検索条件を入力し[実行]ボタンを押すと検索結果がシートに出力される仕様とします。
カスタムタブの作成は Office Ribbon Editor というアプリを使用しました。
私はバージョン4.4.2を使いましたが、このアプリには若干のバグがあるようで、使うには注意が必要です。
f:id:jsuo:20131116163004p:plain