主题：如何写Merger筛选代码

Dim Val As Date

InputValue(Val, "筛选","请输入开始合并的日期:")

Dim mg As New Merger

mg.SourcePath = "c:\data\销售管理.xls"

mg.Format = "excel" '指定格式

mg.SourceTableName = "订单$" '指定要合并的表

mg.DataTableName = "订单" '指定接收数据的表

mg.Filter = "[日期] > #"& val & "#"

mg.Merge() '开始合并"