主题：导出为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

呵呵，这个foxtable模板好哇！ 省掉了很多的代码···

且模板一定要按狐爸3楼的设置才可以：

下面是利用blackzhu的“第三方控件”的例子做的：Excel显示多行文本的实例···

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:导出为excel的问题 excel中显示多行文本.rar