从Excel导入到Access错误

时间:2015-11-09 19:45:21

标签: excel vba

我正在尝试查找从xls电子表格导入时收到的访问错误的帮助。

我正在使用Access 2010和Excel 2010

错误仅发生在格式为Accounting的空白单元格中,其值为0.00硬编码到所有空白单元格的公式中。我已将单元格格式更改为数字(并将值更改为0),甚至将值替换为"" (使它们为空)。

在导入之前,我仅重新调整值(仅粘贴特殊值),使所有数字数据仅为值。

对于导入我每次都在替换访问中的现有表(它的设计方式不是我的想法)所以我不确定这是否会产生任何影响。当我运行导入时,只有0.00数字字段被放入错误表中。

我一直在尝试使用VBA中的.value = .value命令谈论这个主板上的其他地方,但到目前为止我没有运气。关于这个问题的任何帮助或想法都会很棒。

谢谢你, 丹尼尔

1 个答案:

答案 0 :(得分:0)

首先,在Excel工作表上运行此代码。

sub cleanup
    dim c as long
    with worksheets("sheet1").cells(1, 1).currentregion
        for c = 1 to .columns.count
            .columns(c).cells = .columns(c).cells.value2
        next c
    end with
end sub

将Access货币字段设置为 Currency 。允许必需:否默认值:0

Excel工作表单元格不能是零长度字符串(例如"")。他们必须真正空白。用简短的清理程序来处理。真正空白的单元格将作为空值进入Access字段,并接收默认值0