专家坐堂-导出excelFoxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  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=150057)

--  作者：nxdx112
--  发布时间：2020/5/19 16:41:00
--  导出excel

此主题相关图片如下：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编辑过]

--  作者：有点蓝
--  发布时间：2020/5/19 16:53:00
--
数据有问题，有一个B公司后面有一个空格。单元格复制粘贴覆盖一下

--  作者：nxdx112
--  发布时间：2020/5/19 17:02:00
--
谢谢，确实如此！

--  作者：nxdx112
--  发布时间：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编辑过]

--  作者：有点蓝
--  发布时间：2020/5/19 17:34:00
--
.SaveExcel("C:\\Users\\Administrator\\Desktop\\数据" & dyl_ & ".xls",dyl_)

--  作者：nxdx112
--  发布时间：2020/5/19 17:41:00
--
非常的感谢！