下面代码的导出表不会按红色代码排序导出，请指教
Tables("统计表").Sort="排名"
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
dlg.FileName = "统计表" & Format(Date.Now, "yyyyMMdd") & ".xls"
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim ex As New Exporter
ex.SourceTableName = "统计表" '指定导出表
ex.FilePath = dlg.FileName '指定目标文件
ex.Format = "Excel" '导出格式为Excel
Dim str As String
Tables("评价类别").Sort="_Identify DESC"
For Each r As Row In Tables("评价类别").Rows
str= ","& r("评价类别") & str
Next
ex.Fields = "编号,部门,自身类别,姓名" & str & ",合计,排名,等次" '指定导出字段
ex.Export() '开始导出
messagebox.show("已完成 [统计表] 的EXCEL导出！","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
加好友 
发短信
Post By：2021/1/27 1:42:00 [只看该作者]
