筛选后saveExcel即可,如
Tables("表A").Filter = "第二列 = '1'"Tables("表A").SaveExcel("d:\test.xls", "aA")Tables("表A").Filter = "第二列 = '2'"Tables("表A").SaveExcel("d:\test.xls", "aB")