前提・実現したいこと
エクセルの値をAccessに登録したい
発生している問題・エラーメッセージ
エクセルで空白のセルをAccessに入れると"0"をなる
該当のソースコード
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
回答2件
あなたの回答
tips
プレビュー