Foxtable(狐表)用户栏目专家坐堂 → 转excel文件


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

主题:转excel文件

帅哥哟,离线,有人找我吗?
15014737345
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:30 积分:389 威望:0 精华:0 注册:2017/12/21 16:21:00
转excel文件  发帖心情 Post By:2019/12/16 21:44:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:01ed81a6-53e6-4515-ab88-883cc12392f1.jpg
图片点击可在新窗口打开查看筛选后把结果和行号导入狐表表格该如何操作,求大神解答

 回到顶部
帅哥哟,离线,有人找我吗?
15014737345
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:30 积分:389 威望:0 精华:0 注册:2017/12/21 16:21:00
  发帖心情 Post By:2019/12/16 21:47:00 [只看该作者]

是excel转狐表

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:46622 积分:236552 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/16 22:08:00 [只看该作者]

比如

Dim Book As New XLS.Book("D:\问题\预期报表结果.xlsx")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("订单").StopRedraw()
'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = {"编号","产品","客户","雇员","单价","折扣","数量","日期"}
'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer = 1 To Sheet.Rows.Count -1
    If Sheet.Rows(n).Visible Then '如果不是隐藏的行
        Dim r As Row = Tables("订单").AddNew()
        r("行号") = n
        For m As Integer = 0 To nms.Length - 1
            r(nms(m)) = Sheet(n,m).Value
        Next
    End If
Next
Tables("订单").ResumeRedraw()

 回到顶部
帅哥哟,离线,有人找我吗?
15014737345
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:30 积分:389 威望:0 精华:0 注册:2017/12/21 16:21:00
  发帖心情 Post By:2019/12/17 22:14:00 [只看该作者]

多谢大神指教

 回到顶部
帅哥哟,离线,有人找我吗?
15014737345
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:30 积分:389 威望:0 精华:0 注册:2017/12/21 16:21:00
  发帖心情 Post By:2020/3/26 21:42:00 [只看该作者]

请教大神,出现了这样的错误提示
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20200326213820.png
图片点击可在新窗口打开查看,是哪里出了问题?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:46622 积分:236552 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/27 9:52:00 [只看该作者]

文件不存在。检查路径和文件名称是否错误

 回到顶部
帅哥哟,离线,有人找我吗?
15014737345
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:30 积分:389 威望:0 精华:0 注册:2017/12/21 16:21:00
  发帖心情 Post By:2020/3/27 22:47:00 [只看该作者]

已找到问题,感谢大神

 回到顶部