主题：内部函数代码出错

以下是引用发财在2015/6/9 10:16:00的发言：
Dim ws1 As MSExcel.WorkSheet = wb.WorkSheets("分户快报")
    Dim ws2 As MSExcel.WorkSheet = wb.WorkSheets("资产负债表")
    Dim ws3 As MSExcel.WorkSheet = wb.WorkSheets("利润及分配表")
    Dim ws4 As MSExcel.WorkSheet = wb.WorkSheets("费用表")
    Dim ws5 As MSExcel.WorkSheet = wb.WorkSheets("工资月报")
    Dim ws6 As MSExcel.WorkSheet = wb.WorkSheets("附列资料")
内部函数为什么不能这样?

以下是引用发财在2015/6/11 19:41:00的发言：
wb.Save原来的模板就改变了，如何保存原来的模板？