VB中如何将data grid导出为Excel

在VB中将DataGrid导出为Excel，可以使用以下步骤：

1. 引用Microsoft Excel Object Library，在VB中打开项目-》工程-》引用，在弹出的对话框中找到并勾选Microsoft Excel Object Library。

2. 在VB中新建一个Excel工作簿：

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)

3. 在Excel中创建表头：

For i = 0 To DataGrid1.Columns.Count - 1
xlSheet.Cells(1, i + 1).Value = DataGrid1.Columns(i).HeaderText
Next

4. 将DataGrid中的数据写入Excel中：

For i = 0 To DataGrid1.RowCount - 1
For j = 0 To DataGrid1.Columns.Count - 1
xlSheet.Cells(i + 2, j + 1).Value = DataGrid1.Item(j, i).Value
Next
Next

5. 保存Excel文件：

xlBook.SaveAs "C:\Temp\Export.xls"

6. 释放Excel对象：

xlBook.Close
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

完整代码示例：

Private Sub btnExport_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim i As Integer, j As Integer

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

For i = 0 To DataGrid1.Columns.Count - 1
xlSheet.Cells(1, i + 1).Value = DataGrid1.Columns(i).HeaderText
Next

For i = 0 To DataGrid1.RowCount - 1
For j = 0 To DataGrid1.Columns.Count - 1
xlSheet.Cells(i + 2, j + 1).Value = DataGrid1.Item(j, i).Value
Next
Next

xlBook.SaveAs "C:\Temp\Export.xls"

xlBook.Close
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

MsgBox "导出成功！"
End Sub