ExcelのVBAで数字のみの文字列カラムをシングルクォーテーションで囲みたいです。

Question

こんにちは、またExcelの質問です。

前回の疑問は、解決しました。
リンク内容

問題になってしまったのは、数字のみでできてる文字列の場合です。
たとえば、セルに123456という価が入っている場合、Textとして扱い（‘123456’）したいですが、書いたコードだと、SQLのValueに数字のまま123456が入ってしまいます。
Excelでセル形式を文字列にしてみたり、数字の前に「‘」をつけて文字列に強制変換してみましたが、やはり数字として入ってしまいます。

現在、テーブルにこんな感じでデータが入っていて、SQL文を生成したら、以下になります。（Excelで、create_id列は数値、その他は文字列として形式設定しました。）
|corp_name|description|create_id|create_at
|:--|:--:|--:|
|B会社|123456|1|null

INSERT INTO test_corps (corp_name,description,create_id,create_at) VALUES (‘B会社’,123456,1,NULL);

望ましい結果は、こんな感じです。

INSERT INTO test_corps (corp_name,description,create_id,create_at) VALUES (‘B会社’,‘123456’,1,NULL);

VBAでコードを書き、セルを繰り返しながら、数字か、空白か、その以外かを判別し、それぞれの処理を行う形です。コードは以下のようです。

 '列だけ繰り返す
        For currentColumnIndex = targetRange.Column + 1 To targetRange.Columns.Count
 
            '最初でなければ
            If (currentColumnIndex <> targetRange.Column + 1) Then
                sql = sql & ", "
            End If
 
            'セルを指定
            Set currentCell = srcSheet.Cells(currentRowIndex, currentColumnIndex)
 
            'nullか空白なら
            If IsNull(currentCell) Or Trim(currentCell.Value) = "" Then
                sql = sql & "null"
 
            '数値なら
            ElseIf IsNumeric(currentCell.Value) Then
                sql = sql & currentCell.Value
 
            'それ以外なら
            Else
                sql = sql & "'" & currentCell.Value & "'"
            End If
 
        Next

行か列の形式で数字か文字列かを判別するか、何かIsNumeric以外のメソッドでできる方法がありましたら、教えてください。

長くなりましたが、よろしくお願いします。

Answer 1

DB側でdescriptionのデータ型がテキストならそのままでもテキストとして保存されると思います。

そんなのは関係なくSQLを直したいのであれば
currentCellの型を判断している辺りでcurrentColumnIndexが2列目の場合の分岐を設けてはどうでしょうか。

Comments

[kobac]

そもそもの話になってしまいますが「データが数値かどうかを見てSQLを変える」という方法に違和感を感じます・・・。
テーブルのデータ定義がまず先にありきで、それに沿ったSQLを書くべきかと。

Answer 2

先の回答にあるようにDBで文字列にしてくれると思いますが、VBAでは

If VarType(currentCell.Value) = vbString Then

で判定できると思います

Comments

[lovelydai]

大変参考になりました。ありがとうございます。

Answer 3

列によって、「文字列の列」か「数値の列」かが決まってくるかと思いますので、「格納されている値が数値か文字列か」ではなく、単純に「対象の列が数値の列かどうか」で判定するのが無難かと思われます。

具体的には

            '数値なら
            ElseIf IsNumeric(currentCell.Value) Then
                sql = sql & currentCell.Value

            'それ以外なら
            Else
                sql = sql & "'" & currentCell.Value & "'"

のところを

            '数値列なら
            ElseIf currentColumnIndex = 3 Or currentColumnIndex = 5 Then ' 列番号は仮です。実際のものに合わせて適宜修正してください
                sql = sql & currentCell.Value

            'それ以外なら
            Else
                sql = sql & "'" & currentCell.Value & "'"

とすれば良いのではないかと（動作未検証）。

Answer 4

回答ありがとうございました。
原始的ですが、以下のように書いて解決しました。

            '数値なら
            ElseIf IsNumeric(currentCell.Value) Then
            
                If VarType(currentCell.Value) = vbString Then
                    sql = sql & "'" & currentCell.Value & "'"
                Else
                    sql = sql & currentCell.Value
                End If
 
            'それ以外なら
            Else
                sql = sql & "'" & currentCell.Value & "'"
            End If