如何在从ACCESS导入到EXCEL时,修改列名称??

Question

用以下方法导入数据时悠列名称,但不改变数据类型?
dbs.Execute "SELECT * INTO [Excel 8.0;DATABASE=" & App.Path & "\MyExcel.xls].[WorkSheet1] " _
        & "FROM [在校学生] WHERE " & DataGrid1.Columns(DataGrid1.Col).Caption & "='" & Trim(DataGrid1.Text) & "'"
    dbs.Close

Answer 1

用以下方法导入数据时修改列名称,但不改变数据类型?
dbs.Execute "SELECT * INTO [Excel 8.0;DATABASE=" & App.Path & "\MyExcel.xls].[WorkSheet1] " _
        & "FROM [在校学生] WHERE " & DataGrid1.Columns(DataGrid1.Col).Caption & "='" & Trim(DataGrid1.Text) & "'"
    dbs.Close

Answer 2

dbs.Execute "SELECT * INTO [Excel 8.0;DATABASE=" & App.Path & "\MyExcel.xls].[WorkSheet1] " _
        & "FROM [在校学生].[字段名1] as [别名1],[在校学生].[字段名2] as [别名2]...... WHERE " & DataGrid1.Columns(DataGrid1.Col).Caption & "='" & Trim(DataGrid1.Text) & "'"
    dbs.Close