Foxtable(狐表)用户栏目专家坐堂 → 导出excel


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

主题:导出excel

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


加好友 发短信
等级:一尾狐 帖子:401 积分:3639 威望:0 精华:0 注册:2016/11/12 18:42:00
导出excel  发帖心情 Post By:2020/5/19 16:41:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:7.jpg
图片点击可在新窗口打开查看

导出excel,为什么会出现两个b公司

图片点击可在新窗口打开查看此主题相关图片如下:000.jpg
图片点击可在新窗口打开查看


Dim Products As List(Of String)

Products = DataTables("表A").GetValues("配送公司")

For Each Product As String In Products

    Dim Book As New XLS.Book(ProjectPath & "Attachments\报表.xls")

    Dim fl As String = ProjectPath & "Reports\出库单" & Product  & ".xls"

    book.sheets(0)(2,6).value = "<配送公司='" & Product & "'>"

    Book.Build() '生成细节区

    Book.Save(fl) '保存工作簿

    Dim Proc As New Process '打开工作簿

    Proc.File = fl

    Proc.Start()

Next

 下面的导出到不同的工作簿中也有两个b公司
[此贴子已经被作者于2020/5/19 16:48:08编辑过]

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


加好友 发短信
等级:一尾狐 帖子:401 积分:3639 威望:0 精华:0 注册:2016/11/12 18:42:00
  发帖心情 Post By:2020/5/19 17:02:00 [显示全部帖子]

谢谢,确实如此!

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


加好友 发短信
等级:一尾狐 帖子:401 积分:3639 威望:0 精华:0 注册:2016/11/12 18:42:00
  发帖心情 Post By:2020/5/19 17:33:00 [显示全部帖子]

With Tables("残疾学生")
    Dim dyl_L As List(Of String) = .DataTable.Getvalues("班级")
    For Each dyl_ As String In dyl_L
        .Filter = "班级 = '" & dyl_ & "'"
        .SaveExcel("C:\Users\Administrator\Desktop\数据.xls",dyl_)
    Next
    MessageBox.Show("已保存在桌面,请查看!","提示") '提示用户选择的文件

End With

上面的导出到同一个工作簿中的不同工作表
怎么修改让导出到不同的工作簿中

Dim Products As List(Of String)

Products = DataTables("残疾学生").GetValues("班级")

For Each Product As String In Products

    Dim Book As New XLS.Book(ProjectPath & "Attachments\残疾学生.xls")

    Dim fl As String = ProjectPath & "Reports\信息-" & Product  & ".xls"

    book.sheets(0)(2,36).value = "<班级='" & Product & "'>"

    Book.Build() '生成细节区

    Book.Save(fl) '保存工作簿

    Dim Proc As New Process '打开工作簿

    Proc.File = fl

    Proc.Start()

Next

这个虽然可以导出为不同的工作簿,但是结果不对,工作簿除了名称按要求,内容都一样?不知道那点有问题,怎么改?


[此贴子已经被作者于2020/5/19 17:37:06编辑过]

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


加好友 发短信
等级:一尾狐 帖子:401 积分:3639 威望:0 精华:0 注册:2016/11/12 18:42:00
  发帖心情 Post By:2020/5/19 17:41:00 [显示全部帖子]

非常的感谢!

 回到顶部