额 斑竹没看清楚呀。。
我说的是导出excel的时候没有头呀

好像ado打开excel会把第一行作为数据字段项，因此要反过来吧ado表格还原到excel（用excel.application引用）中，应该在fields(index).name中取出第一行信息吧。

已向你发送站内短消息，请注意查收！这里回帖我不知道怎么发图片，刚来论坛时间不长，有些操作还不是太清楚。

[ 本帖最后由 hjxlj 于 2013-7-28 21:28 编辑 ]

斑竹 fields(index).name 是Recordset 的属性吧
可我没用到Recordset 。。我没有连接数据库。。就是直接读取的excel文件

    Dim ex As Object
    Dim i As Integer
    Dim j As Integer
    Dim xlapp As Excel.Application
    Dim xlbook As Excel.Workbook
    Dim xlsheet As Excel.Worksheet
    Set xlapp = CreateObject("Excel.Application")
    xlapp.Visible = True
    Set xlbook = xlapp.Workbooks.Add
    Set xlsheet = xlbook.Worksheets(1)
'********************************************************************
    For i = 0 To DataGrid1.Columns.Count - 1
      xlssheet.Cells(1, i + 1).Value2 = DataGrid1.Columns(i).DataField
    Next i
'********************************************************************
    For j = 0 To DataGrid1.ApproxCount - 1
      For i = 0 To DataGrid1.Columns.Count - 1
        DataGrid1.Col = i
        On Error Resume Next
        DataGrid1.Row = j
        xlsheet.Cells(j + 2, i + 1) = DataGrid1.Columns.Item(i).Text
      Next i
    Next j

我已帮你修改了你的代码，特别注意*号之间的内容，是我添加的，其功能就是获取列头到你Excel表中去。另外你的代码逻辑上不是太清晰，所以我也做了改动。但由于我没有你代码中使用的数据库，所以代码我无法测试，我估计应该能够正常运行。只是你这问题点数居然为0，大哥，兄弟我也要吃饭的啊！

收到的鲜花

• zyh1031 于 2013-07-30 21:26 送鲜花  3朵   附言：谢谢。。太感谢 了

真是 太感谢你了 朋友
因为很久没来论坛。发帖的时候也没看见哪里有点数。。。
所以着急就发出去了。。
现在想追加点数也没办法了。。。真心不是在乎点数

呵呵，玩笑而已。不过，如果问题解决了，就请及时结帖吧。

可能因为是没有点数的原因。。
我找不到结贴的按钮

那等斑竹给你结吧，我也不知道该怎么结。因为，我还从未在这里问过问题。