エクセルで空白のセルをAccessに入れると"0"をなる

前提・実現したいこと

エクセルの値をAccessに登録したい

発生している問題・エラーメッセージ

該当のソースコード

ExcelVBA
1Do While wb.Worksheets(sht).Cells(2, j).value <> ""
2   .AddNew
3       !DB項目1 = Application.WorksheetFunction.IfError(wb.Worksheets(sht).Cells(1, j).value, "参照エラー")
4       !DB項目2 = Application.WorksheetFunction.IfError(wb.Worksheets(sht).Cells(2, j).value, "参照エラー")
5       !DB項目3 = Application.WorksheetFunction.IfError(wb.Worksheets(sht).Cells(4, j).value, "参照エラー")
6       !DB項目4 = Application.WorksheetFunction.IfError(wb.Worksheets(sht).Cells(3, j).value, "参照エラー")
7   .Update
8   j = j + 1
9Loop

補足情報（FW/ツールのバージョンなど）

Excel 2016
Access 2016

stdio

2019/03/26 06:18

確実に"0"になるならStrComp等の関数で弾けばいいだけでは？

hatena19

2019/03/26 09:00

フィールドのデータ型はなんでしょうか。数値型だとしたら、そもそも、"参照エラー" という文字列を代入したらエラーになるはず。テキスト型(短いテキスト)なら、既定値の初期値は空白のはず。とりあえずフィールドのデータ型が何か追記してください。それと規定値の設定がどうなっているかも。

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

回答2件

ベストアンサー

確認してみました。
WorksheetFunction.IfError は未入力セルのValueを参照すると 0 を返す仕様のようです。

イミディエイトウィンドウで実行

vba
1?Activecell.Value = ""
2True
3
4?IsEmpty(Activecell.Value)
5True
6
7?Application.WorksheetFunction.IfError(Activecell.Value, "参照エラー")
8 0 
9

Textプロパティで参照すると空文字列("")が返るようです。

vba
1?Activecell.Text = ""
2True
3
4?IsEmpty(Activecell.Text)
5False
6
7?Application.WorksheetFunction.IfError(Activecell.Text, "参照エラー")
8
9
10?Application.WorksheetFunction.IfError(Activecell.Text, "参照エラー")=""
11True