“Merger
示例七
合并Excel文件:
Dim mg As New Merger
mg.SourcePath = "c:\data\销售管理.xls"
mg.Format = "excel" '指定格式
mg.SourceTableName = "订单" '指定要合并的表
mg.DataTableName = "订单" '指定接收数据的表
mg.Merge() '开始合并”
------以上是摘自狐表使用指南中的一段----------
下边我开问:
假定我要合并超过某个固定日期后的记录可以加上一行代码,如:
mg.Filter = "[日期] > #5/31/1999#" '指定合并条件
假定这起始日期由用户指定,那么加一行代码:
Dim Val As Date
InputValue(Val, "筛选","请输入开始合并的日期:")
我的问题是:随后的筛选条件该如何写?
是这样吗:
mg.Filter = "[日期] > # "& val &" #"
请指点。