此主题相关图片如下:qq截图20170314154922.png
继续请教版主。如图,我把窗口设计一个按钮,按钮写的分组统计,点一下可以生成多张表。
请问:如何能批量导出这些临时表,最好能把多张临时表导入一个excel里面,变成sheet1,2,3等。
或者是如何把临时表合成一张表。
我的button里面的分组统计代码如下:
'贷款分期限户数
Dim g As New GroupTableBuilder("贷款分期限户数", DataTables("工作底稿"))
g.Groups.AddDef("客户类型")
g.Groups.AddDef("短中")
g.Totals.AddDef("贷款余额")
g.Totals.AddDef("户数", AggregateEnum.Count)
g.Build()
MainTable = Tables("贷款分期限户数")
'银监局底稿
Dim g1 As New GroupTableBuilder("银监局底稿", DataTables("工作底稿"))
g1.Groups.AddDef("统计用担保方式")
g1.Groups.AddDef("银监局个体小微消费")
g1.Groups.AddDef("短中")
g1.Totals.AddDef("贷款余额")
g1.Totals.AddDef("户数", AggregateEnum.Count)
g1.Build()
MainTable = Tables("银监局底稿")
'全部贷款分行业
Dim g2 As New GroupTableBuilder("全部贷款分行业", DataTables("工作底稿"))
g2.Groups.AddDef("行业(门类)")
g2.Groups.AddDef("银监局个体小微消费")
g2.Totals.AddDef("贷款余额")
g2.Build()
MainTable = Tables("全部贷款分行业")
'涉农底稿
Dim g3 As New GroupTableBuilder("涉农底稿", DataTables("工作底稿"))
g3.Groups.AddDef("涉农及非农户个体工商户")
g3.Groups.AddDef("统计用担保方式")
g3.Groups.AddDef("短中")
g3.Totals.AddDef("户数", AggregateEnum.Count)
g3.Totals.AddDef("贷款余额")
g3.Build()
MainTable = Tables("涉农底稿")
'银监局五级分类
Dim g4 As New GroupTableBuilder("银监局五级分类", DataTables("工作底稿"))
g4.Groups.AddDef("贷款质量")
g4.Groups.AddDef("行业(门类)")
g4.Groups.AddDef("银监局个体小微消费")
g4.Totals.AddDef("户数", AggregateEnum.Count)
g4.Totals.AddDef("贷款余额")
g4.Build()
MainTable = Tables("银监局五级分类")
'涉农五级分类
Dim g5 As New GroupTableBuilder("涉农五级分类", DataTables("工作底稿"))
g5.Groups.AddDef("贷款质量")
g5.Groups.AddDef("行业(门类)")
g5.Groups.AddDef("涉农及非农户个体工商户")
g5.Totals.AddDef("户数", AggregateEnum.Count)
g5.Totals.AddDef("贷款余额")
g5.Build()
MainTable = Tables("涉农五级分类")
'100万元以下
Dim g6 As New GroupTableBuilder("100万元以下", DataTables("工作底稿"))
g6.Groups.AddDef("客户名称")
g6.Totals.AddDef("贷款余额")
g6.Build()
MainTable = Tables("100万元以下")