vb6.0 Datagrid导出数据

要将VB6.0中的DataGrid中的数据导出，可以使用以下步骤：

1. 将DataGrid控件的DataSource设置为一个已经绑定的数据源（例如，一个ADO Recordset）。

2. 创建一个新的Excel工作簿对象，使用Excel对象库中的Workbook和Worksheet对象。

3. 在工作表中循环遍历数据源中的每一行，并将数据写入工作表中相应的单元格中。可以使用Excel的Range对象来定位单元格。

4. 最后，保存Excel文件并关闭工作簿对象。

下面是一个简单的示例代码：

Private Sub ExportToExcel()
    Dim rs As ADODB.Recordset
    Set rs = DataGrid1.DataSource
    
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)
    
    '写入表头
    Dim i As Integer
    For i = 0 To rs.Fields.Count - 1
        xlSheet.Cells(1, i + 1).Value = rs.Fields(i).Name
    Next
    
    '写入数据
    Dim row As Integer
    row = 2
    rs.MoveFirst
    Do Until rs.EOF
        For i = 0 To rs.Fields.Count - 1
            xlSheet.Cells(row, i + 1).Value = rs.Fields(i).Value
        Next
        row = row + 1
        rs.MoveNext
    Loop
    
    '格式化工作表
    xlSheet.Columns.AutoFit
    
    '保存文件并关闭Excel对象
    xlBook.SaveAs "C:\data.xls"
    xlBook.Close
    xlApp.Quit
    
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub

此示例代码将DataGrid1中的数据导出为一个名为“data.xls”的Excel文件。请注意，此代码依赖于Microsoft Excel对象库，因此必须在项目中添加对该库的引用。