主题：免费版激活

Dim ex3 As New Exporter

ex3.SourceTableName = "VTPF" '指定导出表
ex3.FilePath ="c:\ON" & "_" & ".xls" '指定目标文件
ex3.Format = "Excel" '导出格式为Excel
ex3.Fields = "VName,[From],To" '指定导出字段

ex3.Filter=""
ex3.Export() '开始导出

messagebox.show("Save to " & ex3.FilePath & " completed.", "ST",MessageBoxButtons.OK,MessageBoxIcon.Information)