标题：不导出指定列

1楼

pyh6918 发表于：2009/7/30 9:57:00

请问：Exporter的Fields属性可以导出指定字段(列)，那么有没有不导出指定字段(列)的属性或方法。

2楼

狐狸爸爸 发表于：2009/7/30 10:01:00

没有

3楼

yangming 发表于：2009/7/30 10:04:00

红色行不写就可以

Fields
字符型，指定导出字段(列)，不同的字段，用逗号隔开，如果不指定，则导出所有字段。

示例三

将产品PD01的订单导出为Excel格式保存，并只导出指定的列：

Dim ex as New Exporter
ex.SourceTableName = "订单" '指定导出表
ex.FilePath = "c:\Data\订单.xls" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Fields = "日期,客户,数量,单价" '指定导出字段
ex.Filter = "[产品] = 'PD01'" '指定导出条件
ex.Export() '开始导出

4楼

pyh6918 发表于：2009/7/30 10:41:00

1、我下面有十多个分支机构，他们的数据报到我这汇总。
2、表有200列，用的是外部access表，主键列为“ID”自动编号。
3、各分支机构都会有“ID"列为1的数据。
当我将第一家的数据导入之后，我的表中已存在“ID”列为1的数据。其它家“ID”列为1的数据则无法导入。如果在导出时“ID”列不导出，这个问题就不存在了。

5楼

狐狸爸爸 发表于：2009/7/30 10:45:00

Dim Str1 As String
For Each c As Col In Tables("某某").Cols
If c.Name <> "Id" Then
Str1= Str1 & "," & C.Name
End If
Next
ex.Fields = Str1.Trim(",")

6楼

pyh6918 发表于：2009/7/30 11:21:00

成功，这个办法实在是好，多谢多谢！！也谢谢杨版。

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