主题：如何将excel文件导入已有数据表

Dim ip As New Importer
ip.SourcePath = "E:\资料\库存.xls" '指定数据文件
ip.SourceTableName = "半成品" '指定要导入的表
ip.NewTableName ="S009" '导入后的表名
ip.Format = "Excel" '指定导入格式
ip.Import()
Dim f As  New Filler
f.SourceTable = DataTables("S009") '指定数据来源
f.SourceCols = "编码,品名,类别,规格,型号,材质,单位" '指定数据来源列
f.DataTable = DataTables("S001") '指定数据接收表
f.DataCols = "第一列,第二列,第三列,第四列,第五列,第六列,第七列" '指定数据接收列
f.Fill() '填充数据
f.SourceTable = DataTables("S009") '指定数据来源
f.SourceCols = "编码,品名,类别,规格,型号,材质,单位,数量,库位" '指定数据来源列
f.DataTable = DataTables("S002") '指定数据接收表
f.DataCols = "第一列,第二列,第三列,第四列,第五列,第六列,第七列,第八列,第九列" '指定数据接收列
f.Fill() '填充数据
Dim Builder As New ADOXBuilder
Builder.Open()
With Builder
    .DeleteTable("S009")
End With
Builder.Close()

功能好像差不多,但代码简单了不少,问题是不能更新原有数据