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

[zhuqingxipy]

如题

[zhuqingxipy]

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

[lihonggen0]

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

[富察咪咪]

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

[裸男]

不错，收藏。

[didishu0807]

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

[lihonggen0]

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

[Alicky]

========================================================
'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

[rednod]

也要用。正好

[lihonggen0]

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

[benjamin8064]

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