excel vba 数据追加问题？

Set sht = Workbooks("C.xlsx").Sheets("S1")

  ThisWorkbook.Sheets(2).Range(Cells(1, 1).Address &":" &Cells(3, 3).Address).Copy sht.Range("B" &"3")

原代码报错原因，代码执行的工作簿就是活动工作簿，而目标又是活动工作簿中的"S1"表，但该表在文件C中，不在活动工作簿中，所以找不到。

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