我在导入一个EXCEL表格时出现3个问题，请教一下：

1，

该列的表结构是

  

 

 

  这是什么原因？

此主题相关图片如下：d`}`3qxj(9m{15i9ksi7bk.png

问题2：EXCEL表格中有3列日期型列，只导入了一列数据，其他2列全是空列。

此主题相关图片如下：excel中三列日期型数据.png

此主题相关图片如下：导入后只有一列日期型.png

第三个问题：

EXCEL中有3000多条数据，只导入了234条数据，什么原因？

就是说导入或者合并EXCEL文件就是有这样的问题，没有办法解决么？只能转换为文本文件才可以？

Dim ip As New Importer
ip.SourcePath = "e:\\保险\\" \'指定目录
ip.SourceTableName = "01月起保3384" \'指定要导入的文件"订单.txt"
ip.NewTableName ="客户信息表" \'导入后的表名
ip.Format = "Delimited" \'指定导入格式
ip.Import()

我用了以上筛选器，又出现如下图的异常：

此主题相关图片如下：select与剧中又错误.png

代码如下：

Dim  Book As New XLS.Book("e:\\保险\\01月起保3384.xlsx")
 Dim  Sheet As XLS.Sheet = Book.Sheets(0)
Tables("客户信息表").StopRedraw()
 \'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As  String = {"保单号","姓名","车牌号车架号后6位","厂牌型号","购置价","发动机号","登记日期","保险生效日","保险终止日","证件号","电话号码"}
 \'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
 For n As Integer = 1 To Sheet.Rows.Count -1
     Dim r As  Row = Tables("客户信息表").AddNew()
     For  m As  Integer = 0 To nms.Length - 1
           r(nms(m)) = Sheet(n,m).Value
     Next
 Next
 Tables("客户信息表").ResumeRedraw()

出现转换无效提示：

实例上传

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:示例.xlsx

尝试导入一个EXCEL表格，除了出现MAXLENGTH错误，还出现了格式转换错误。

此主题相关图片如下：无法设置列违法了maxlength.png


此主题相关图片如下：转换无效.png

以前导入虽然也出现上述错误，但是还能导入部分记录，今天出现这些错误没有导入任何数据。