从EXCEL导出到ACCESS有的情况前几行数据会丢失，这是什么原因呢？

gcloveu

从EXCEL导出到ACCESS有的情况前几行数据会丢失，这是什么原因呢？
sheet1,sheet2导出来都没问题
字段名改成中文后问题来了：
sheet3只是把sheet2前两行改成中文，导出后除了字段名数据全部丢失。
sheet4只是把sheet3的第二行删除，导出后数据丢失了两行。
各位老师，这是哪里出了问题呢？

数据转出.rar (1.19 MB, 下载次数: 12)

2018-6-25 16:16 上传

点击文件名下载附件

opiona

Excel内数据类型要统一！

ivccav

Excel只能近似看做数据库，还是有所限制的。数据丢失是ADO判断数据类型错误所致的。

Excel中是没有数据类型这种说法的，ADO在默认情况下回判断每一列的前8行，然后看哪一个数据类型占优，然后舍弃不占优的数据类型的数据。

给个链接给你，自己看Excel那一节吧，几句话说不清楚的。http://club.excelhome.net/thread-1412070-1-1.html

gcloveu

opiona 发表于 2018-6-25 17:51
Excel内数据类型要统一！

好的，谢谢，我试下统一数据类型试试！

gcloveu

ivccav 发表于 2018-6-25 21:34
Excel只能近似看做数据库，还是有所限制的。数据丢失是ADO判断数据类型错误所致的。

Excel中是没有数 ...

好的，谢谢，涨姿势了，我试下统一数据类型试试！

gcloveu

opiona 发表于 2018-6-25 17:51
Excel内数据类型要统一！

现在数据类型全部统一成文本格式了
我是用Sheets(i).Cells.NumberFormatLocal = "@"
         Sheets(i).UsedRange.Value = Sheets(i).UsedRange.Value
但是不行，现在反而所有表都只能导出第一列。这要怎么统一格式呢？

gcloveu

gcloveu 发表于 2018-6-26 08:41
好的，谢谢，涨姿势了，我试下统一数据类型试试！

现在数据类型全部统一成文本格式了
我是用Sheets(i).Cells.NumberFormatLocal = "@"
         Sheets(i).UsedRange.Value = Sheets(i).UsedRange.Value
但是不行，现在反而所有表都只能导出第一列。这要怎么统一格式呢？

ivccav

gcloveu 发表于 2018-6-26 10:50
现在数据类型全部统一成文本格式了
我是用Sheets(i).Cells.NumberFormatLocal = "@"
         Sheets(i ...

在Excel中没有数据类型这种概念，用NumberFormatLocal 是没有用的，它只是改变显示的效果，实际值没有任何变化，ADO并不知道文本显示的数字就是文本。要想改为文本，需要在每个单元格的内容前面加一个英文格式的单引号“'”，只有这样才能是真正的文本。
用Excel导入到Access很难做到完美，使用者需要熟悉程序，手动编辑前8行的数据，以避免丢失数据。修改注册表，修改IMEX=1都没有办法避免丢失数据，除非你的Excel表格非常规范，每一个单元格都有填写，且数据形式一致。

gcloveu

ivccav 发表于 2018-6-26 13:22
在Excel中没有数据类型这种概念，用NumberFormatLocal 是没有用的，它只是改变显示的效果，实际值没有 ...

我把前9行的数据前面都加了“‘”撇了，可还是不行啊！快崩溃了！还有别的导出方法吗？或者有什么数据库没这么严格的数据要求吗？

ivccav

gcloveu 发表于 2018-6-26 15:05
我把前9行的数据前面都加了“‘”撇了，可还是不行啊！快崩溃了！还有别的导出方法吗？或者有什么数据库 ...

数据库一直都严格数据类型，你这个问题跟数据库没有关系，是ADO自己判断之后把数据传给数据库的。

你打开注册表看看TypeGuessRows是多少，我的电脑没有改过，居然是17行（一般都是8行。）

可以试试用Recordset对象把数据循环写入数据库。

你也可以用窗体增删查改数据。并无完美的方法。