怎样把DATAGRID控件中的数据(经过查询得到的结果)导入到EXCEL表中

Question

Private Sub Command1_Click()
  Dim i As Long, j As Long, zsl As Long
'  Dim xlsApp As Excel.Application
'  Dim xlswb As Excel.Workbook
'  Dim xlsws As Excel.Worksheet
  Set xlsApp = CreateObject("Excel.Application")
  xlsApp.Visible = False '调试时设为True
  Set xlswb = xlsApp.Workbooks.Add
  Set xlsws = xlswb.Worksheets(1)
  Adodc1.Recordset.MoveFirst
  Adodc1.Recordset.MoveLast
  zsl = Adodc1.Recordset.RecordCount
  Adodc1.Recordset.MoveFirst
  i = 1
  Do While Not Adodc1.Recordset.EOF
    For j = 1 To Adodc1.Recordset.Fields.Count
      If Not IsNull(DataGrid1.Text) Then
        xlsws.Cells(i, j) = Adodc1.Recordset(j - 1)
      End If
    Next
    Adodc1.Recordset.MoveNext
    i = i + 1
  Loop
  xlswb.SaveAs App.Path & "\GetFromDataGrid.xls"
  xlsApp.Quit
End Sub

Answer 1

用DataGrid绑定的记录集的GetString方法（设置列分割符为vbTab,行分割符为回车）可以得到一个字符串，然后将该字符串粘贴到（可以使用代码）Excel即可