- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何用代码导出不同的excel报表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97104)
-- 发布时间：2017/3/6 12:22:00
-- [求助]如何用代码导出不同的excel报表
老师您们好！
Dim dt As Table =
Tables("订单")
Dim
Book As New XLS.Book \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0)
\'引用工作簿的第一个工作表
Dim Style
As Xls.Style = Book.NewStyle \'新建一个样式
Style.BackColor = Color.Red \'样式的背景颜色设为红色
For c As
Integer = 0
To dt.Cols.Count -1
\'添加列标题
Sheet(0, c).Value = dt.Cols(c).Name
Next
For r As
Integer = 0
To dt.Rows.Count - 1
\'填入数据
For c As
Integer = 0
To dt.Cols.Count -1
Sheet(r +1,
c).Value = dt.rows(r)(c)
Next
If
dt.rows(r)("折扣") >= 0.15
Then
\'如果折扣大于等于0.15
Sheet(r + 1,dt.Cols("折扣").Index).Style =
Style \'设置折扣单元格的样式
End
If
Next
\'打开工作簿
Book.Save("c:\\reports\\test.xls")
Dim
Proc As New Process
Proc.File = "c:\\reports\\test.xls"
Proc.Start()
可不可以加入一个条件判断，比如判断姓名是王五，导出的报表就只包含姓名为王五的数据，生成的表名称也自定义为判断项（即王五呢？）
求老师们赐个思路，十分感谢！
-- 发布时间：2017/3/6 12:42:00
--
Dim dt As Table = Tables("表B")
for each s as string in dt.DataTable.GetValues("第一列", "第一列 is not null")
Dim Book As New XLS.Book \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
For c As Integer = 0 To dt.Cols.Count -1 \'添加列标题
Sheet(0, c).Value = dt.Cols(c).Name
Next
For r As Integer = 0 To dt.Rows.Count - 1 \'填入数据
For c As Integer = 0 To dt.Cols.Count -1
Sheet(r +1, c).Value = dt.rows(r)(c)
Next
Next
\'打开工作簿
Book.Save("d:\\" & s & ".xls")
Dim Proc As New Process
Proc.File = "d:\\" & s & ".xls"
Proc.Start()
next
-- 发布时间：2017/3/8 22:42:00
--
非常感谢您~~我试着导出之后，发现导出的excel文件里是各种姓名的数据都有，能否应用模板，只让选中数据中姓名为张三的数据套用模板，生成张三这个文件，姓名为李四的数据套用模板，生成李四这个文件……呢？帮助文档里的这个代码，如何能实现这样的功能呢？求老师们帮帮我~~
Dim Book As
New
XLS.Book(ProjectPath
&
"Attachments\\出库单.xls")
Dim
fl As String = ProjectPath
&
"Reports\\出库单.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim
Proc As New
Process
\'打开工作簿
Proc.File = fl
Proc.Start()
是不是要用选取的代码？自动选取符合条件的数据？但我不知道这需要怎样的知识可以做到~~
谢谢老师们，求您们帮帮我~~~
-- 发布时间：2017/3/8 23:27:00
--
可以，请上传实例。
-- 发布时间：2017/3/8 23:30:00
--
如果自己做的话，参考这里
http://www.foxtable.com/webhelp/scr/2626.htm
-- 发布时间：2017/3/9 15:47:00
--
老师您好~~我试着做了一下：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:试验批量导出.zip |
-- 发布时间：2017/3/9 16:01:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:试验批量导出.zip |
-- 发布时间：2017/3/9 23:03:00
--
谢谢老师！真的非常有效！
-- 发布时间：2017/3/10 1:40:00
--
改一下代码即可
Dim t As Table = Tables("表B")
For Each n As String In t.DataTable.GetValues("第一列", "第一列 is not null" & iif(t.Filter>"", " and (" & t.filter & ")", ""))
Dim Book As New XLS.Book(ProjectPath & "Attachments\\111.xls") \'打开模板
Dim fl As String = ProjectPath & "Reports\\" & n & ".xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(1,10).Value = "<第一列=\'" & n & "\'>" \'写入打印条件
Book.Build() \'生成报表
Book.Save(fl)
Next
-- 发布时间：2017/4/6 22:31:00
--
老师您好！谢谢您之前的指点。我还是遇到了1个问题，想请教您。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:正在学习.zip |