- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 导入excel的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=4385)
-- 发布时间：2009/9/18 13:59:00
-- 导入excel的问题
我将一个excel文件导入狐表。生成一个新的数据表。原文件中的某些字段就变成空白了。我查看了一下，变成空白的是原excel中的文本格式的数字内容。比如以文本格式保存的学号、身份证号码等。但有些身份证号码导入狐表后却能正常显示。感觉狐表在导入数据时有遗漏现象。以前在使用易表时就遇到过这种情况。有时大量数据缺失还能发现，如果只是少掉个别数据就比较麻烦了。不知是我操作不对，还是另有原因。请教各位。
-- 发布时间：2009/9/18 16:42:00
--
你可以试试看，导入后，第二列有些单元格就没有内容了。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:book1.zip |
-- 发布时间：2009/9/18 17:59:00
--
你同一列中的数字格式不一致，要一致才行吧，这样处理一下再试一试：
此主题相关图片如下：未命名.jpg
[此贴子已经被作者于2009-9-18 18:05:32编辑过]
-- 发布时间：2009/9/18 18:28:00
--
或可自編代碼解決(Tables("Sheet1")已建立),如:
DataTables("Sheet1").DataRows.Clear()
Dim r As Row
Dim Book As New XLS.Book("C:\\book1.xls")
Dim Sht As XLS.Sheet = Book.Sheets(0)
with Tables("Sheet1")
.Redraw = False
For i As Integer = 1 To Sht.Rows.Count
if Sht(i, 0).Value > 0 then
r = Tables("Sheet1").AddNew
r("fz") = Sht(i, 0).Value
r("xh") = Sht(i, 1).Value
end if
Next
.Redraw = True
End with
-- 发布时间：2009/9/24 10:57:00
--
谢谢
-- 发布时间：2009/9/24 11:02:00
--
对文本格式中的单元格在字段前加一个分号即可。没有导入数据的单元格式不对，我有遇到这个问题。