主题：[求助]导出表的列名重命名

请问导出到excel  列名如何重命名，字段列为英文，所以导出的标题为英文，我想把它重命名中文  请问如何更改

 

Dim dt As Table = Tables("窗口1_表格_Table出入库主表")
For c As Integer = 0 To dt.Cols.Count -1 '添加列标题
    Sheet(0, c).Value = dt.Cols(c).Name
Next
For r As Integer = 0 To dt.Rows.Count - 1 '填入数据
    For c As Integer = 0 To dt.Cols.Count -1
        Sheet(r +1, c).Value = dt.rows(r)(c)
    Next
Next
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then
    Book.Save(dlg.FileName)
    Dim Proc As New Process
    Proc.File = dlg.FileName
    Proc.Start()
End If

字段名为英文,但是 标题列你可以写中文呀,改一句就行了

可以了谢谢 ，如果导出需要的字段要如何更改

我现在就用这个办法做了一个表格,绝对可以,报错应该是别的原因

如果导出需要的字段要如何更改

例子:

部分列，包括指定标题：

 

Dim dt As Table = Tables("窗口1_表格_Table出入库主表")
Dim nms() As String = {"第一列","第二列","第三列"} '要导出的列名
Dim caps() As String = {"标题一","标题二","标题三"} '对应的标题

For c As Integer = 0 To nms.length -1 '添加列标题
    Sheet(0, c).Value = caps(i)
Next

For r As Integer = 0 To dt.Rows.Count - 1 '填入数据
    For c As Integer = 0 To nms.length -1
        Sheet(r +1, c).Value = dt.rows(r)(nms(c))
    Next
Next
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then
    Book.Save(dlg.FileName)
    Dim Proc As New Process
    Proc.File = dlg.FileName
    Proc.Start()
End If

 

 

谢狐爸，但是导出后时间格式不能正常显示，请问如何解决