- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 导出为Excel的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=16687)
-- 发布时间：2012/2/21 12:00:00
-- 导出为Excel的问题
不能换行显示,如何解决?找老盖?
此主题相关图片如下：002.jpg
-- 发布时间：2012/2/21 12:14:00
--
有一次用VBA激活单元格···完了结果了，呵呵
-- 发布时间：2012/2/21 12:20:00
--
设计模板的时候，选择此单元格，右击，从菜单中执行单元格格式，才格式设置中，选中“自动换行”
-- 发布时间：2012/2/21 12:41:00
--
以下是引用狐狸爸爸在2012-2-21 12:20:00的发言：
设计模板的时候，选择此单元格，右击，从菜单中执行单元格格式，才格式设置中，选中“自动换行”
设计模板的时候，选择此单元格，右击，从菜单中执行单元格格式，才格式设置中，选中“自动换行”
呵呵,这不是模板!是导为Excel的效果.
-- 发布时间：2012/2/21 12:43:00
--
模板的“自动换行”可以，但是excel中却不能自动行高。我测试：还要执行一下Excel与VBA代码 ：
.....
Ws.Rows("1:10").Select
Ws.Rows("1:10").EntireRow.AutoFit
.....
显示的时候就ok了。
-- 发布时间：2012/2/21 12:49:00
--
以下是引用ybil在2012-2-21 12:41:00的发言：
呵呵,这不是模板!是导为Excel的效果.
这个只能用模板或者代码解决了，导出没有办法。
-- 发布时间：2012/2/21 13:10:00
--
如此只能如5楼执行一下Excel与VBA了.
-- 发布时间：2012/2/21 13:43:00
--
以下是引用mr725在2012-2-21 12:43:00的发言：
模板的“自动换行”可以，但是excel中却不能自动行高。我测试：还要执行一下Excel与VBA代码 ：
.....
Ws.Rows("1:10").Select
Ws.Rows("1:10").EntireRow.AutoFit
.....
显示的时候就ok了。
-----------------------------------------------
晕,我怎么不行?
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\001.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.Rows("2:1000").Select
Ws.Rows("2:1000").EntireRow.AutoFit
App.Visible = True
下载信息 [文件大小： 下载次数： ] 
点击浏览该文件:001.xls
-- 发布时间：2012/2/21 17:59:00
--
呵呵，ybil版主，要先建立模板，通过模板生成的excel报表可以在单元格里分行显示多行文本的内容，只是不能自动行高，所以用你上的代码直接针对生成的excel报表操作， 就可以自动行高了。
-- 发布时间：2012/2/21 18:30:00
--
暈,還要模板啊,太麻煩了.
我公司一個程式,應是Acee設計出來的,它導出的Excel報表(不用建模板),可以自動行高,能正確顯示呢.