测试了一下,有效
Dim flg As New SaveExcelFlagsflg.RowNumber = Trueflg.CellStyle = TrueTables("表A").saveExcel("d:\test.xls", "aaa", flg)