需要使用代码处理，使用这种方法导：
http://www.foxtable.com/webhelp/topics/1148.htm
把里面导出列名的方法
For c As Integer = 0 To dt.Cols.Count -1 '添加列标题
Sheet(0, c).Value = dt.Cols(c).Name
Next
改为导出标题
For c As Integer = 0 To dt.Cols.Count -1 '添加列标题
Sheet(0, c).Value = dt.Cols(c).Caption
Next