vb+Access做了一个小软件，想要把查询结果倒出到一个exeel文件？高手请帮帮小弟！

Question

vb+Access做了一个小软件，想要把查询结果倒出到一个exeel文件？高手请帮帮小弟！

Answer 1

Private Sub Command1_Click()
Dim count As Integer
count = Adodc1.Recordset.RecordCount
cols = DataGrid1.Columns.count
Set ex = CreateObject("Excel.Application")
Set exwbook = Nothing
Set exsheet = Nothing
Set exwbook = ex.Workbooks().Add
Set exsheet = exwbook.Worksheets("sheet1")
exsheet.Name = "jsxx3"
For i= 2 To count + 1
For j = 1 To cols
  ex.Range(Chr(j + 97) & I).Value = Adodc1.Recordset.Fields(j - 1)
  Next j
  Adodc1.Recordset.MoveNext
Next i
exwbook.SaveAs App.Path & "\data\jsxx.xls"
ex.Quit
End SubPrivate Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\My Documents\数据beifen\选课系统\data\xk.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from JSXX"
Set DataGrid1.DataSource = Adodc1
End Sub

Answer 2

这里有你要的答案：
http://www.csdn.net/develop/read_article.asp?id=14952