主题：导出为Excel的问题

有一次用VBA激活单元格···完了结果了，呵呵

模板的“自动换行”可以，但是excel中却不能自动行高。我测试：还要执行一下Excel与VBA代码 ：

.....

Ws.Rows("1:10").Select
Ws.Rows("1:10").EntireRow.AutoFit

.....

显示的时候就ok了。

呵呵，ybil版主，要先建立模板，通过模板生成的excel报表可以在单元格里分行显示多行文本的内容，只是不能自动行高，所以用你上的代码直接针对生成的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