vb导出excal的问题！

Question

请各位大哥帮帮忙！我需要用vb实现将access导出成excal的功能！谁能给出代码啊

Answer 1

参考一下这个文章：
SQL SERVER 与ACCESS、EXCEL的数据转换http://www.microsoft.com/china/community/Column/31.mspx

Answer 2

可是楼上给的大多是跟SQL有关的啊，有没有人知道在用VB+Access编写的系统中导出Excel功能程序代码该怎么写？？

Answer 3

 Set XlApp = CreateObject("Excel.Application")
      XlApp.Visible = True
      Strsource = App.Path & "\test.xls"
      Set XlBook = XlApp.Workbooks.Open(Strsource)
      Set XlSheet = XlBook.Worksheets(1)
  Set rs = New adodb.Recordset
   sql = "select * from 表"
  rs.Open sql, conn, adOpenStatic, adLockReadOnly
    
 For i = 1 To rs.RecordCount 
      For j = 1 To rs.Fields.Count
         XlSheet.Cells(i, j) = rs(j - 1)
      
      Next j
      rs.MoveNext
    Next i

Answer 4

' 与数据源无关，recordset对象都可以的(假设目的工作薄或工作表不存在)：
cn.Execute "select * into [Excel 8.0;DATABASE=X:\DestBook.xls].sheetname from tablename"