主题：导出为Excel的问题

现在是只要模板生成的excel报表才可以多行显示文本，是有点麻烦。

如果设置的模板，不要在Excel报表管理器中设置任何东西，直接使用下面代码即可。其实也还算可以了。

Dim Book As New XLS.Book(ProjectPath & "Attachments\aaa.xls") '打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() '生成细节区
Book.Save(ProjectPath & "reports\aaa+.xls") '保存工作簿

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "reports\aaa+.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.Select
Ws.Rows("1:100").Select            '选定足够的行数
Ws.Rows("1:100").EntireRow.AutoFit
Ws.Range("a1").Select      ‘这个无所谓···
App.Visible = True