先把你的excel文件的列标题改成和狐表一样的名字
Dim mg As New Merger mg.SourcePath = "c:\excel文件名.xls"
mg.Format = "excel" '指定格式 mg.SourceTableName = "狐表名" '指定要合并的表 mg.DataTableName = "狐表名" '指定接收数据的表 mg.Merge() '开始合并