哈,代码放错位置了,应该放在afteropenproject事件中:
With Tables("四单元水费管理系统")
.MergeMode = MergeModeEnum.Free
.MergeCols.Clear()
.MergeCols.Add("本月每户实际用水合计_立方米")
.MergeCols.Add("汇总_代收总金额元")
.MergeCols.Add("汇总_上月剩余金额元")
.MergeCols.Add("汇总_本月每户实际用水合计立方米")
.MergeCols.Add("本月汇总")
.MergeCols.Add("备注")
.MergeSort = "本月每户实际用水合计_立方米,汇总_代收总金额元,汇总_上月剩余金额元,汇总_本月每户实际用水合计立方米,本月汇总,备注"
.AllowMerge = True
End With