vb6.0 Datagrid显示数据导出到excel

以下是将VB6.0 Datagrid中的数据导出到Excel的示例代码：

Private Sub cmdExport_Click()

    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Dim i As Integer
    Dim j As Integer
    
    ' 创建Excel应用程序对象
    Set xlApp = New Excel.Application
    ' 创建新的工作簿
    Set xlBook = xlApp.Workbooks.Add
    ' 获取默认工作表
    Set xlSheet = xlBook.Worksheets(1)
    
    ' 复制datagrid的表头到Excel工作表
    For i = 0 To DataGrid1.Columns.Count - 1
        xlSheet.Cells(1, i + 1).Value = DataGrid1.Columns(i).Caption
    Next
    
    ' 复制datagrid的数据到Excel工作表
    For i = 0 To DataGrid1.Rows.Count - 1
        For j = 0 To DataGrid1.Columns.Count - 1
            xlSheet.Cells(i + 2, j + 1).Value = DataGrid1.Columns(j).CellText(i)
        Next
    Next
    
    ' 显示Excel应用程序
    xlApp.Visible = True
    
    ' 释放对象
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing

End Sub

在代码中，我们首先创建了一个Excel应用程序对象，并通过它创建了一个新的工作簿和默认的工作表。然后，我们将Datagrid的表头复制到Excel工作表的第一行，将Datagrid的数据复制到Excel工作表的后续行。最后，我们显示Excel应用程序，并释放了所有对象。

请注意，此代码需要引用Microsoft Excel 11.0 Object Library。要添加此引用，请打开项目菜单，选择引用，然后选择“Microsoft Excel 11.0 Object Library”并单击确定。如果您正在使用不同版本的Excel，请选择相应的版本。