[求助]还是excel模版问题，如果倒入的字数比较多，模版设置了自动换行，但是生成报表后行高不会自动调节，如何解决呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]还是excel模版问题，如果倒入的字数比较多，模版设置了自动换行，但是生成报表后行高不会自动调节，如何解决呢？

共有5610人关注过本帖树形打印复制链接主题：[求助]还是excel模版问题，如果倒入的字数比较多，模版设置了自动换行，但是生成报表后行高不会自动调节，如何解决呢？

ybil

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：521 积分：4916 威望：0 精华：7 注册：2008/9/2 22:22:00

Post By：2014/2/14 18:07:00 [显示全部帖子]

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

For n1 As Integer = 2 To Ws.UsedRange.Rows.count

Dim Rg1 As MSExcel.Range = Ws.Cells(n1,2) '自动换行的單元格

Rg1.WrapText = True

Rg1.RowHeight = 38 '行高40磅

Wb.Save

App.Quit

ybil

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：521 积分：4916 威望：0 精华：7 注册：2008/9/2 22:22:00

Post By：2014/2/15 12:56:00 [显示全部帖子]

以下是引用jimmyhwang在2014-2-15 12:36:00的发言：
ybil 你代码放哪里？ builddetail? 我的模版文件和report文件同名，同时打开会报错的。另外你那个是调节为38？如果是3行不就不能用了？

纸上不谈兵

下一主题 >> << 上一主题

主题：[求助]还是excel模版问题，如果倒入的字数比较多，模版设置了自动换行，但是生成报表后行高不会自动调节，如何解决呢？