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

此主题相关图片如下：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()

下面的导出到不同的工作簿中也有两个b公司

[此贴子已经被作者于2020/5/19 16:48:08编辑过]

数据有问题，有一个B公司后面有一个空格。单元格复制粘贴覆盖一下

谢谢，确实如此！

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_)

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()

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

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

.SaveExcel("C:\Users\Administrator\Desktop\数据" & dyl_ & ".xls",dyl_)

主题：导出excel