有可能从Excelmacros写入数据到AccessDB？

有没有可能从Excelmacros写入数据到AccessDB，怎么样？

我有一个小的MBD文件，我想从Excel表导入数据？

Answer 1

Sub DAOFromExcelToAccess() ' exports data from the active worksheet to a table in an Access database ' this procedure must be edited before use Dim db As Database, rs As Recordset, r As Long Set db = OpenDatabase("C:\FolderName\DataBaseName.mdb") ' open the database Set rs = db.OpenRecordset("TableName", dbOpenTable) ' get all records in a table r = 3 ' the start row in the worksheet Do While Len(Range("A" & r).Formula) > 0 ' repeat until first empty cell in column A With rs .AddNew ' create a new record ' add values to each field in the record .Fields("FieldName1") = Range("A" & r).Value .Fields("FieldName2") = Range("B" & r).Value .Fields("FieldNameN") = Range("C" & r).Value ' add more fields if necessary... .Update ' stores the new record End With r = r + 1 ' next row Loop rs.Close Set rs = Nothing db.Close Set db = Nothing End Sub 

Answer 2

你有没有考虑过呢？ 在Access中添加一个Excel工作表很容易，然后使用一个表查询将数据添加到新的或现有的表中，这样就避免了编码。