在Access2010中，通过VBA将外部Excel追加至数据库已存在的表中

请留意

1.一个Excel文件

2.一个ACCESS资料库，内有一个资料表（的MemberInfo）

3. MDB及XLS放在同一文件夹

3. tableName（MemberInfo）的字段和数据结构应该= Excel中的列(column)

4. 工具\设定引用项目\MicrosoftExcel 14.0 Object Library

Sub Import_data()

Dim Filepath As String

Dim Memsname As String

Dim tableName, excelfile As String

Filepath = CurrentProject.Path &"\"

Memsname = Filepath &"MemberInfo.xls"

temMemsname = Dir(Memsname)

If Len(temMemsname) = 0 Then

MsgBox " No MemberInfo"

Exit Sub

End If

'====Import MemberInfo========================

excelfile = Memsname

tableName = "MemberInfo"

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9,tableName, excelfile, True

DoCmd.Close acTable, tableName

End Sub

应该是运行查询之前未声明连接对象(cn)，建议按下列方式执行那两个更新 *** 作查询

方法一

Dim cn As ADODB.Connection

Set cn=CurrentProject.Connection

cn.Execute "Query1"

cn.Execute "Query2"

方法二

直接用当前数据库的连接运行那两个查询

CurrentProject.Execute "Query1"

CurrentProject.Execute "Query2"

****不好意思之前漏了为那两个预设的查询加上双引号，现予以更正

---