[求助]小白求教，excel导如 foxtable里，格式不对求教！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]小白求教，excel导如 foxtable里，格式不对求教！

共有3251人关注过本帖树形打印复制链接主题：[求助]小白求教，excel导如 foxtable里，格式不对求教！

foxbable_saber

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：58 积分：431 威望：0 精华：0 注册：2015/4/16 17:25:00

[求助]小白求教，excel导如 foxtable里，格式不对求教！ 发帖心情

Post By：2015/5/5 16:34:00 [显示全部帖子]

数据文件EXCEL ，全数字列导入会“丢失”数据怎么个解决？比如excel “周期列是【1.3456.】就可以，【1234567】就不行。

excel 列设置文本也不行，foxtable先建立框架然后【合并数据】方法导入excel也不行！

foxbable_saber

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：58 积分：431 威望：0 精华：0 注册：2015/4/16 17:25:00

Post By：2015/5/6 11:17:00 [显示全部帖子]

1请问：excel表单时间部分是“H:mm:ss”,带入foxtable后显示00:00:00！excel怎么去掉ss？或带入时过滤~？

2、如上方法如何做到“自选目录文件“？自己瞎写一下路径名等如何做？

Dim dlg As New OpenFileDialog

dlg.Filter= "Excel文件|*.xls"

If dlg.ShowDialog = DialogResult.Ok Then ’如何做到自选文件导入？

Dim Book As New XLS.Book("dlg.FilePath & ”“\”“ &dlg.FileName") ‘是这样表达路径么？

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Tables("sheet1").StopRedraw()

Dim nms() As String = { "Flt Desg","Eff Date","Dis Date","Freq","Dept Arp","Dept Time","Arrv Time","Arvl Arp","Subfleet" }

For n As Integer = 1 To Sheet.Rows.Count -1

Dim r As Row = Tables("sheet1").AddNew()

For m As Integer = 0 To nms.Length - 1

r(nms(m)) = Sheet(n,m).Value

End If

Tables("sheet1").ResumeRedraw()

foxbable_saber

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：58 积分：431 威望：0 精华：0 注册：2015/4/16 17:25:00

Post By：2015/5/6 11:40:00 [显示全部帖子]

有点意思~~~我试试

foxbable_saber

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：58 积分：431 威望：0 精华：0 注册：2015/4/16 17:25:00

Post By：2015/5/6 13:39:00 [显示全部帖子]

excel 时间部分是”H:mm:ss“格式，foxtable 时间列是“日期时间【LongTime】”，导入提示“ Double”到类型“Date”的转换无效

foxbable_saber

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：58 积分：431 威望：0 精华：0 注册：2015/4/16 17:25:00

Post By：2015/5/6 14:16:00 [显示全部帖子]

excel 时间列是“长时间”，foxtable时间列也是“长时间”导入就提示“ Double”到类型“Date”的转换无效！

如果foxtable时间列设置字符型 255宽度，那么得到“0.336805555555556” ！

此主题相关图片如下：11111.jpg

foxbable_saber

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：58 积分：431 威望：0 精华：0 注册：2015/4/16 17:25:00

Post By：2015/5/6 14:30:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.foxdb

下载信息 [文件大小：下载次数： ]
点击浏览该文件:1233.xlsx

foxbable_saber

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：58 积分：431 威望：0 精华：0 注册：2015/4/16 17:25:00

Post By：2015/5/6 16:32:00 [显示全部帖子]

地道，接地气~~~灵光。多谢

foxbable_saber

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：58 积分：431 威望：0 精华：0 注册：2015/4/16 17:25:00

Post By：2015/5/7 9:25:00 [显示全部帖子]

帅哥~~~请问，您的代码如何扩展出“指定导入需要的列”？

您的导入是全部倒入！

目前：

状况1：导入表到项目中的一个临时表里，因为excel表数据忒粗，不规范，废行太多。我目前是在该表中设立“逻辑判断列”，上述代码导入会在逻辑列认为“只读”，而导致导入错误。

状况2：原excel表有无用列，只想导入需要的数据列！

谢谢！

foxbable_saber

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：58 积分：431 威望：0 精华：0 注册：2015/4/16 17:25:00

Post By：2015/5/7 10:11:00 [显示全部帖子]

多谢~~~再次灵光！

下一主题 >> << 上一主题

主题：[求助]小白求教，excel导如 foxtable里，格式不对求教！