- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 源数据导入问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=22105)
-- 发布时间：2012/8/2 15:36:00
-- 源数据导入问题
我把一个EXCEL的源数据导入后，有些列内容为空。例如：
| 日期 | 存货名称 | 含税金额 | 差额 | 折价 | ||
|
7-1 |
A | 50 | 5 | 10 | ||
| 7-2 | B | 60 | 6 | 8 | ||
| 7-3 | C | 80 | 7 | 9 |
导入后就变成
| 日期 | 存货名称 | 含税金额 | 差额 | 折价 | ||
|
7-1 |
A | 50 | ||||
| 7-2 | B | 60 | ||||
| 7-3 | C | 80 |
-- 发布时间：2012/8/2 15:45:00
--
将这个excel文件保存为文本文件，再用foxtable导入看看。
或者将你的这个exce文件发上来看看
-- 发布时间：2012/8/2 17:13:00
--
但同样的另一个工作表导入就没问题！
-- 发布时间：2012/8/2 17:14:00
--
源数据里有公式，但同样的另外一个工作表里也有表达式就可以正常导入
-- 发布时间：2012/8/2 17:16:00
--
以下是引用狐狸爸爸在2012-8-2 15:45:00的发言：
将这个excel文件保存为文本文件，再用foxtable导入看看。
或者将你的这个exce文件发上来看看
另一个同样的工作表就可以正常导入！
-- 发布时间：2012/8/2 17:17:00
--
以下是引用muhua在2012-8-2 15:40:00的发言：
你有没有设置了表达式？
源数据里有公式，但同样的另外一个工作表里也有表达式就可以正常导入
-- 发布时间：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()
-- 发布时间：2012/8/3 9:48:00
--
以下是引用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()
这个问题我也遇到过 有些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()
谢谢！你好强哦。我都不懂代码。所以看不太懂
-- 发布时间：2012/8/3 13:05:00
--
这个问题值得关注
-- 发布时间：2012/8/3 13:14:00
--
数字前面有空字符，所以导入失败了···