エクセルでテスト用データのsqlを生成

webプログラムやコンソールプログラムのテストデータを作るのにいつも時間がかかって困ってます。

エクセル2010でテスト用データのINSERT、UPDATE、DELETEのSQLを作ってるんですが、皆さんはどの様にテストデータを作成していますか？

現状は、必要なカラムを抽出してセルに貼り付け、隣の列で文字列結合してフィル機能でなるべく自動化しています。
ただし、この方法だと以下のような手間がかかかります。
①カラム数が増えると結合すら面倒。
②数値はそのままSQLを作成できるが、varchar、Date型は「'」で囲まなきゃいけないのでその分結合が増える。
③そして「'」はエクセルで特殊文字扱いなので、セルの先頭は「''」とエスケープが必要。でも貼り付けを行なった場合はエスケープされずに「''」とそのまま表示されてしまう。逆にセルの編集を一度でも行うとそのセルだけエスケープされてしまうので動作が不安定で結局機械的にSQLを作成できない。

テストを自動化するようなツールがあると聞いたこともあります。皆さんはどうやってテストしていますか？

行動規範の内容に同意します

回答2件

ベストアンサー

分かります。
文字列の結合って面倒ですよね。
CONCATENATE関数を使ってもアンパサンドとあまり手間変わりませんし。

私は、左から順に結合する前提なら、自分で関数作ってしまいますね。

VBAで以下のような関数を用意します。

lang
1Function ConcR(範囲 As Range)
2    Dim ret As String
3    Dim r As Range
4    For Each r In 範囲
5        ret = ret & CStr(r.Value)
6    Next
7    ConcR = ret
8End Function

ワークシート側では、例えばE1セルに「=concr(A1:D1)」と入力すると、A1～D1までの範囲が結合されます。

先頭のシングルクォートを補完するには、次のようにIIF関数で末尾がシングルクォートかどうかを判定させて先頭に付ければ良いかと思います。

lang
1Function ConcR(範囲 As Range)
2    Const SQ As String = "'"
3    Dim ret As String
4    Dim r As Range
5    For Each r In 範囲
6        ret = ret & IIf(Right(r.Value, 1) = SQ, SQ, "") & CStr(r.Value)
7    Next
8    ConcR = ret
9End Function