以下是引用rjh4078在2012-8-2 20:01:00的发言:
这个问题我也遇到过 有些excel的纯数字列无法用菜单栏里的高速导入或者合并功能来导入 只能用代码来了这是我用的一个代码 你可以根据需要修改下 Dim Book As New XLS.Book("C:\input.xls") ‘’源文件路径 Dim Sheet As XLS.Sheet = Book.Sheets(0) ‘’要导入的sheet编号0为第一个 Tables("期初库存").StopRedraw() '注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致 Dim nms() As String = {"产品名称","产品识别码","期初库存数","计量单位","备注","仓位","品牌"} ''注意下面的循环变量从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()
谢谢!你好强哦。我都不懂代码。所以看不太懂