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中，不在活动工作簿中，所以找不到。

Insert into 表名(字段1,字段2) values（'字段1内容','字段2内容'）

可以用VBA和ACCESS链接后

用UPDATE功能

rst.addnew

...'添加的内容

rst.update