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

Tom_HYQ

我的程序这样写
在Excel的VBA中用Createojbect方法，调用Access
然后通过dao的方法opendatabase
接下来是transferspreadsheet

然后程序便出错了（要求有一个打开的数据库对象），究竟要如何才能实现呢？

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")
    '我检查过了，MyDB已经打开，但执行下一句时出错，说我没有打开一个数据库对象
    MyAccess.DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "MyTest", "D:\Tom\Private\Book1.xls", True, MyString
   
    Set MyDB = Nothing
    Set MyAccess = Nothing
   
End Sub

小弟实在百思不得其解，请大家多多指教。[em08][em08]

yangcnooc

改为:
mydb .docmd.transferspreadsheet acimport,acspreadsheettypeexcel9, "mytest", "d:\tom\private\book1.xls", true, mystring
或
mydb .docmd.transferspreadsheet acimport,acspreadsheettypeexcel8, "mytest", "d:\tom\private\book1.xls", true, mystring