数值字段溢出的解决.docVIP

数值字段溢出的解决 EXCEL文件是目前采用通用表格编辑的常用软件，具有操作方便简易，便于计算和统计的特点，是办公一族常用的计算统计工具。作为数据库的接口之一，EXCEL文件也是用于对数据进行前期处理的常用工具，便于各岗位和程序间的文件交换和传递。 ACCESS也是微软办公工具中的简单数据库之一，具有数据应用灵活，配置简单，编程易上手的特点。而ACCESS与EXCEL软件的配合应用就显得比较普遍了。 我在办公工作中经常需要从ACCESS中导入与其它岗位配合工作形成的EXCEL文件，奇怪的是经常会出现数值字段溢出的情况，检查了半天也没发现程序有什么漏洞。开始一直认为是数据量大造成的，因为每次降低导入数据的数量，都会顺利导入，于是准备分段导入大片的连续数据，但研究后发现这种编程不是我这种菜鸟能够实现的，而且从程序中也找不到实现的方法，只好针对数值字段溢出的问题开展针对性的研究。 在一次试验中，在EXCEL中删除了前10行的数据，居然就成就了后面百余行数据的顺利导入，让我困惑不解，而且无论怎么处理，只要这10行数据填入内容，后面就无法顺利导入了。 我在网上查阅了大量资料，发现这个问题还是来自于EXCEL数值字段的约定方式带来的问题，在通过DoCmd.TransferSpreadsheet导入时，会把EXCEL前8行数据认为是判断每个字段数据的性质的一个定义，当为空时，被认为是文本，于是数据的导入就能够比较顺利。而解决这个问题也没什么好的办法，微软的在线帮助中给出了一段代码，编制成一个宏，先对EXCEL的数据进行处理，而处理过后，就能顺利导入了。这段代码是： Sub Addspace() Dim cell As Object For Each cell In Selection cell.Value = cell.Value cell.Value = Right(cell.Value, Len(cell.Value) - 1) Next End Sub 意思就是在每个选定的数据前加一个空格，然后取形成的数据右边的部分，长度减1，这样又把那个空格去掉了。我实际操作了一下，还是有问题，当处理文本数据时没什么，当数据为数字时，就乱套了，经常会莫名其妙地减短数据长度，尤其是数量和日期这类数据，一次处理下来简直面目全非，数据的完整性和可靠性根本无从提起。 但这段话有的时候是能够进行正常操作的，这让我非常奇怪，几个轮次测试下来，总算发现了问题：在执行这个宏之前，需要对每个单元格进行文本格式约定。为了一次性搞定，简化操作步骤，我重新编辑了这段话： Sub Addspace() Selection.NumberFormatLocal = @ Dim cell As Object For Each cell In Selection cell.Value = cell.Value cell.Value = Right(cell.Value, Len(cell.Value) - 1) Next End Sub 结果非常令人满意，罗乱的数据总算是老实了。