主题：导出EXCEL时如何用公式直接导出

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 Exporter
ex.SourceTableName = "订单" '指定导出表
ex.FilePath = "c:\Data\订单.xls" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Fields = flds  '指定导出字段
ex.Filter = "[产品] = 'PD01'" '指定导出条件
ex.Export() '开始导出