主题：代码

        Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets("分户快报")

        Dim Sheet1 As XLS.Sheet = Book1.Sheets("分户快报")

        Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets("资产负债表")

        Dim Sheet2 As XLS.Sheet = Book1.Sheets("资产负债表")

        Dim Ws3 As MSExcel.WorkSheet = Wb.WorkSheets("利润及分配表")

        Dim Sheet3 As XLS.Sheet = Book1.Sheets("利润及分配表")

        Dim Ws4 As MSExcel.WorkSheet = Wb.WorkSheets("费用表")

        Dim Sheet4 As XLS.Sheet = Book1.Sheets("费用表")

        Dim Ws5 As MSExcel.WorkSheet = Wb.WorkSheets("工资月报")

        Dim Sheet5 As XLS.Sheet = Book1.Sheets("工资月报")

        Dim Ws6 As MSExcel.WorkSheet = Wb.WorkSheets("附列资料")

        Dim Sheet6 As XLS.Sheet = Book1.Sheets("附列资料")

如何使上述代码变得简单直观点？