Dim flds as String
For each c as Col In Tables("订单").Cols
if v.Visible Then
flds = flds & "," & c.name
end if
Next
flds= flds.Trim(",")
Dim ex as New Exporterex.SourceTableName = "订单" '指定导出表ex.FilePath = "c:\Data\订单.xls" '指定目标文件ex.Format = "Excel" '导出格式为Excelex.Fields = flds '指定导出字段ex.Filter = "[产品] = 'PD01'" '指定导出条件ex.Export() '开始导出