如何实现在Excel中把数据导入Access?

Tom_HYQ

我希望在Excel中用VBA把数据导入Access Public Sub test() Dim MyAccess As Access.Application Dim MyDB As DAO.Database Dim MyRe As DAO.Recordset Dim MyRange As Range Dim MyString As String Set MyAccess = CreateObject("access.application") Set MyDB = OpenDatabase("d:\Tom\private\expenditure.mdb") '以下的代码执行时出错　（要求有一个已经打开的数据库） MyAccess.DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "MyTest", "D:\Tom\Private\Book1.xls", True, "report!A13:G113" Set MyDB = Nothing Set MyAccess = Nothing End Sub 我的检测到Access已经在内存中打开了expenditure.mdb，但不知道为什么程序出错？ 请指点迷津

zijing

在excel中采用ado方式将cells(R,C)追加到access的tablename表中 Sub into() Dim accconn As New ADODB.Connection Dim acccmd As New ADODB.Command accconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source _ =D:\piple\m.mdb;Persist Security Info=False" accconn.Open Set acccmd.ActiveConnection = accconn ‘’建个循环变化 cells(R,C)的值吧 acccmd.CommandText = "insert into tablenema values ( " & cells(R,C) & ") " acccmd.Execute ..... End Sub

loadhigh

最简单的是在access里直接导入表。

cg1

Set MyDB = OpenDatabase("d:\Tom\private\expenditure.mdb") 什么意思？ 没看见你在MyAccess中打开数据库啊？

[此贴子已经被作者于2003-6-22 19:46:01编辑过]