Question

vb中将datagrid导出到excel

我用vb做的管理系统有一个查询结果能在datagrid中显示，现在需要datagrid中的查询结果导出到excel格式。希望老大们帮帮忙。要详细

Answer 1

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
For j = 0 To DataGrid1.ApproxCount - 1

DataGrid1.Col = i
On Error Resume Next
DataGrid1.Row = j
xlSheet.Cells(j + 1, i + 1) = DataGrid1.Columns.Item(i).Text
Next j
Next i

追问

把这个代码要放哪里去？
是在
Private Sub Command1_Click()
End Sub
里面吗？ 还要不要加其他什么？Load 里面要不要加？ 需要加那些控件？

追答

Private Sub Command1_Click()
End Sub
里面

都不需要别的

追问

错误提示：用户定义类型未定义

XlApp As Excel.Application

如果问题解决了给你再追加20分。 先谢谢了

追答

在菜单：工程->引用 里面找Microsoft Excel....并勾选上才可以。
如果可以的话我可以把示例传给你，留QQ

追问

我的QQ：362753668