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


  共有3433人关注过本帖树形打印复制链接

主题：[求助]小白求教，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
        Next
    Next
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 [显示全部帖子]

多谢~~~再次灵光！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 6 次数据查询