主题：合并导入

怎么导入xls 时按照列名导入呢

Dim  Book As New XLS.Book("d:\产品资料.xls")
 Dim  Sheet As XLS.Sheet = Book.Sheets(0)
Tables("产品资料").StopRedraw()
Dim nms() As  String = {"公司","本厂型号","中文描述","规格","中高对角","库存","可用数"}
  
 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()

出现错误

此主题相关图片如下：qq截图999999999999999999999.png

谢谢  已经搞懂了

大量数据导入太慢   有没有更快的办法  一万行得十几分钟  太慢了  有没有更快的代码 

Dim  Book As New XLS.Book("d:\产品资料.xls")
 Dim  Sheet As XLS.Sheet = Book.Sheets(0)
Tables("产品资料").StopRedraw()
Dim nms() As  String = {"公司","本厂型号","中文描述","规格","中高对角","库存","可用数"}
  
 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()

 

还有就怎么实现用手工指定要导入的XLS数据表

没搞懂  不能直接合并到数据表吗   

还是非得先生成一个临时表再填充到数据表中

还有临时表中的数据怎么清楚呢

合并进来的列怎么变成  字符型   长度都是225   老师帮我  看看怎么解决呢

没办法填充到其他数据表