怎么導入一个EXCEL表到ACCESS，请教大家了。谢谢

Question

我想做一个小软件，添加一个EXCEL的表到VB的数据库里面，用的ACCESS数据库。需要什么控件，能不能仔细点告诉一下啊。谢谢了。

Answer 1

一个access到excel的例子，楼主可以参考下，改改代码就可以了========================================================  
'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 2

我做过这样的小程序，你要，可以和我联系！[email protected]
  
*****************************************************************************
欢迎使用CSDN论坛阅读器 : CSDN Reader(附全部源代码) 
http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html

Answer 3

``我是想单击一个按钮然后弹出查找文件的窗口，找到一个EXCEL表导入到VB里的ACCESS表。请各位帮帮忙啊。