在VB中怎样将ACCESS的数据导出导入到EXCEL中

Question

如题

Answer 1

Dim a As Excel.Application
Set a = New Excel.Application
a.Visible = True
a.Workbooks.Add

Answer 2

参考：
http://www.csdn.net/develop/read_article.asp?id=14952

Answer 3

========================================================  
'Excel对象的使用(将Access中的数据导入到一个新建的Excel文件中)  
'========================================================  
Private  Sub  Form_Load()  
Dim  I,  J  As  Long  
Dim  conn  As  ADODB.Connection  
Dim  rst  As  ADODB.Recordset  
 
Set  conn  =  New  ADODB.Connection  
Set  rst  =  New  ADODB.Recordset  
conn.ConnectionString  =  "Provider=Microsoft.Jet.OLEDB.4.0;Data  Source=C:\db1.mdb;Persist  Security  Info=False"  
conn.Open  
 
rst.CursorLocation  =  adUseClient  
 
rst.Open  "select  *  from  tableabc",  conn,  adOpenDynamic,  adLockOptimistic  
 
 
Dim  MyApp  As  Excel.Application  
Dim  MyBook  As  Excel.Workbook  
Dim  MySheet  As  Excel.Worksheet  
Set  MyApp  =  CreateObject("Excel.Application")  
MyApp.Visible  =  False  
Set  MyBook  =  MyApp.Workbooks.Add()  
Set  MySheet  =  MyBook.Worksheets(1)  
 
J  =  1  
Do  Until  rst.EOF  
     For  I  =  1  To  rst.Fields.Count  
             MySheet.Cells(J,  I)  =  rst.Fields(I  -  1)  
     Next  
     rst.MoveNext  
     J  =  J  +  1  
Loop  
 
MyBook.SaveAs  "C:\11.xls"  
 
MyApp.Quit  
 
Set  MyApp  =  Nothing  
 
rst.Close  
 
Set  rst  =  Nothing  
Set  conn  =  Nothing  
End  Sub  

Answer 4

DAO的  
 
DIm  sql  as  string  
Dim  DaoT  As  dao.Database  
Set  DaoT  =  Workspaces(0).OpenDatabase("DB")  
Sql  =  "SELECT * INTO [Excel  8.0;DATABASE="Name"].[表名]  FROM  [DB表名]  "  
DaoT.Execute  sql  

Answer 5

dim db1 as database
Set db1 = DBEngine.OpenDatabase("数据库名")
db1.execute("Select * into my in '文件名' 'excel 5.0;' from 表名")
db1.close

Answer 6

从EXCEL导入数据到ACCESS该怎么做

Answer 7

http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=159716

Answer 8

http://expert.csdn.net/Expert/topic/2143/2143034.xml?temp=.8248407