共15 条记录, 每页显示 10 条, 页签: [1] [2]

标题：狐表导出到Excel时，能否不导出狐表的列名?

1楼

mr725 发表于：2009/8/24 19:45:00

如题：如果现在不可以得的话，建议增加这个选项～

Dim ex as New Exporter
ex.SourceTableName = "订单"
ex.FilePath = "C:\downloads\订单11.xls"
ex.Format = "Excel" '导出格式为Excel
ex.Fields = "日期,客户,数量,单价"
ex.Filter = "[产品] = 'PD01'" '
ex.Export()

比如上面代码导出后，会有列名称一并导出，能否限制这个列名称：不要导出它···

2楼

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

3楼

mr725 发表于：2009/8/25 10:30:00

谢谢yang版~

4楼

mr725 发表于：2009/8/25 18:07:00

有没有办法在1楼代码的基础上，不到列名？？

5楼

kylin 发表于：2009/8/25 19:41:00

以下是引用mr725在2009-8-25 18:07:00的发言：
有没有办法在1楼代码的基础上，不到列名？？

参考2楼红色的代码，清除掉列名不就可以了吗？

6楼

mr725 发表于：2009/8/25 19:48:00

以下是引用kylin在2009-8-25 19:41:00的发言：

参考2楼红色的代码，清除掉列名不就可以了吗？

呵呵，2楼代码很好用，只是想着其他方面的应用～不知能否在1楼代码基础上，不导出列名。

7楼

狐狸爸爸 发表于：2009/8/26 7:06:00

不可以

8楼

mr725 发表于：2009/8/26 11:12:00

以下是引用狐狸爸爸在2009-8-26 7:06:00的发言：
不可以

那有没有删除excel报表模板中第一行的代码（或清空模板的第一行的内容也行）？

9楼

yangming 发表于：2009/8/26 11:14:00

是模板,那就不要做第一行就是了

10楼

狐狸爸爸 发表于：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")

共15 条记录, 每页显示 10 条, 页签: [1] [2]