| 以文本方式查看主题 - 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=4032) |
| -- 作者：mr725 -- 发布时间：2009/8/24 19:45:00 -- 狐表导出到Excel时，能否不导出狐表的列名? 如题： 如果现在不可以得的话，建议增加这个选项～ Dim ex as New Exporter ex.SourceTableName = "订单" ex.FilePath = "C:\\downloads\\订单11.xls" ex.Format = "Excel" \'导出格式为Excel ex.Fields = "日期,客户,数量,单价" ex.Filter = "[产品] = \'PD01\'" \' ex.Export() 比如上面代码导出后，会有列名称一并导出，能否限制这个列名称：不要导出它··· |
| -- 作者：yangming -- 发布时间：2009/8/24 20:00:00 -- 下面的代码去掉红色部分 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() |
| -- 作者：mr725 -- 发布时间：2009/8/25 10:30:00 -- 谢谢yang版~ |
| -- 作者：mr725 -- 发布时间：2009/8/25 18:07:00 -- 有没有办法在1楼代码的基础上，不到列名？？ |
| -- 作者：kylin -- 发布时间：2009/8/25 19:41:00 -- 以下是引用mr725在2009-8-25 18:07:00的发言：
有没有办法在1楼代码的基础上，不到列名？？ 参考2楼红色的代码，清除掉列名不就可以了吗？ |
| -- 作者：mr725 -- 发布时间：2009/8/25 19:48:00 -- 以下是引用kylin在2009-8-25 19:41:00的发言：
参考2楼红色的代码，清除掉列名不就可以了吗？ 呵呵，2楼代码很好用， 只是想着其他方面的应用～ 不知能否在1楼代码基础上，不导出列名。 |
| -- 作者：狐狸爸爸 -- 发布时间：2009/8/26 7:06:00 -- 不可以 |
| -- 作者：mr725 -- 发布时间：2009/8/26 11:12:00 -- 以下是引用狐狸爸爸在2009-8-26 7:06:00的发言：
不可以 那有没有删除excel报表模板中第一行的代码（或清空模板的第一行的内容也行）？ |
| -- 作者：yangming -- 发布时间：2009/8/26 11:14:00 -- 是模板,那就不要做第一行就是了 |
| -- 作者：狐狸爸爸 -- 发布时间：2009/8/26 11:16:00 -- 可以在生成之后，删除指定位置的行。 Dim Book As New XLS.Book("c:\\reports\\test.xls") \'定义一个Excel工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表 Sheet.Rows.RemoveAt(0) \'删除第一行 Book.Save("c:\\reports\\test.xls")
|