如果表和字段名是英文，标题是中文，如何导出中文excl数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1.如果表和字段名是英文，标题是中文，如何导出中文excl数据？就是狐表Syscmd.Project.QuickExport()，这个导出功能

2.我想导出excl中含有 indentify 这个默认的关键字列，如何导出？

3.下面代码，我想导入的是中文列名的excl。是不是只要把Dim excel列() As String = {"proclass", "probrand", "probar","procode","proname","momunit","sonunit","unitno","sourcetype","prospecs","timesafe","prostate","checkbar","商品ID"} 这个列名改成我想要的中文就行了？

Dim dt As DataTable = DataTables("rs_productinfo")

Dim 列名() As String = {"proclass", "probrand", "probar","procode","proname","momunit","sonunit","unitno","sourcetype","prospecs","timesafe","prostate","checkbar","proid"}

Dim excel列() As String = {"proclass", "probrand", "probar","procode","proname","momunit","sonunit","unitno","sourcetype","prospecs","timesafe","prostate","checkbar","商品ID"}

Dim Result As DialogResult

Result = MessageBox.Show("确定要导入吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result = DialogResult.Yes Then

Dim dlg As New OpenFileDialog

dlg.Filter = "Excel文件|*.xls"

dlg.MultiSelect = True '允许选择多个文件

If dlg.ShowDialog =DialogResult.OK Then

Dim Book As New XLS.Book(dlg.FileName)

Dim Sheet As XLS.Sheet = Book.Sheets("商品信息")

dt.ResumeRedraw()

dt.StopRedraw()

'systemready = False

主题：如果表和字段名是英文，标题是中文，如何导出中文excl数据