导出EXCEL,因为有的列隐藏起来了,且不想让用户导出这些隐藏的列,而用高速导出时用户可以选择所有列。
将产品PD01的订单导出为Excel格式保存,并只导出指定的列:
Dim ex as New Exporterex.SourceTableName = "订单" '指定导出表ex.FilePath = "c:\Data\订单.xls" '指定目标文件ex.Format = "Excel" '导出格式为Excelex.Fields = "日期,客户,数量,单价" '指定导出字段ex.Filter = "[产品] = 'PD01'" '指定导出条件ex.Export() '开始导出
上面这个比较麻烦,需要指定列(因为不同的用户看到的列都是不同的,而且用户太多,所以不方便这样设)
因此要求:设置一个导出EXCEL公式,用户点后,只能导出当前显示的列,隐藏的不导出。