求救！！！hellp me！关于dbgrid的问题！

Question

在VB 中怎么样将dbgrid中的数据导出到文本或者ecxel中呢？
谢谢，谢谢啊！！！

Answer 1

应该是将DBGRID的数据集用循环的方式导入文本文件或者excel吧。你在CSDN中搜索可以找到很多的帖子。

Answer 2

Private Sub Form_Load()
     Data1.DatabaseName = App.Path & "\msdb.mdb"
     Text1.Text = Data1.DatabaseName
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim newxls As Excel.Application
Dim newbook As Excel.Workbook
Dim newsheet As Excel.Worksheet
Set newxls = CreateObject("Excel.Application") '创建excel应用程序,打开excel2000
newxls.Visible = True
Set newbook = newxls.Workbooks.Add   '创建工作簿
Set newsheet = newbook.Worksheets(1) '创建工作表
'If Not Data1.Recordset.EOF Then Data1.Recordset.MoveFirst
For i = 0 To Data1.Recordset.RecordCount - 1
    For j = 0 To Data1.Recordset.Fields.Count - 1
            DBGrid1.Row = i
            DBGrid1.Col = j
         newsheet.Cells(i + 1, j + 1) = DBGrid1.Text
    Next j
Next i
End Sub
Private Sub Command2_Click()
  End
End Sub