主题：通过EXCEL表格的数据更新狐表内的数据

按钮公式:

Dim mg As New Merger
mg.SourcePath = ProjectPath & "供方报价表.xls"
mg.Format = "excel" '指定格式
mg.SourceTableName = "原材料报价表$" '指定要合并的表
mg.DataTableName = "原材料报价表" '指定接收数据的表
mg.Filter = "[材料名称] <> ''" '指定合并条件
mg.Merge() '开始合并