专家坐堂-excel报表Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  excel报表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69790)

--  作者：ayiken
--  发布时间：2015/6/11 0:09:00
--  excel报表
请问excel单元格行高根据内容怎样自动扩展？

--  作者：ayiken
--  发布时间：2015/6/11 0:24: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)
Dim Rg As MSExcel.Range = Ws.Cells
Rg.EntireColumn.AutoFit   \'自动调整列宽
Rg.EntireRow.AutoFit \'自动调整行高
App.Visible = True

--  作者：monvzhilei
--  发布时间：2015/6/11 5:36:00
--

添加按钮。对按钮设置代码就行了。

--  作者：大红袍
--  发布时间：2015/6/11 9:35:00
--

做个按钮

Dim Book As New XLS.Book(ProjectPath & "Attachments\\订单.xls")
Dim fl As String = ProjectPath & "Reports\\订单.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Cells
\'Rg.EntireColumn.AutoFit   \'自动调整列宽
Rg.EntireRow.AutoFit \'自动调整行高
\'Rg.WrapText = True
\'rg.ShrinkToFit = True
App.Visible = True

--  作者：ayiken
--  发布时间：2015/6/11 10:11:00
--

Dim Book As New XLS.Book(ProjectPath & "Attachments\\订单.xls")
Dim fl As String = ProjectPath & "Reports\\订单.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Cells
\'Rg.EntireColumn.AutoFit   \'自动调整列宽
Rg.EntireRow.AutoFit \'自动调整行高
\'Rg.WrapText = True
\'rg.ShrinkToFit = True
App.Visible = True
还是对行高不起作用

--  作者：ayiken
--  发布时间：2015/6/11 10:12:00
--
Book.Build() \'生成细节区
括号里加不加行名

--  作者：大红袍
--  发布时间：2015/6/11 10:15:00
--

以下是引用ayiken在2015/6/11 10:12:00的发言：
Book.Build() \'生成细节区
括号里加不加行名

你模板那里，对于要设置自动行高的单元格，要设置一下单元格的格式->勾选自动换行

--  作者：ayiken
--  发布时间：2015/6/11 11:00:00
--

此主题相关图片如下：qq图片20150611105716.png

勾选自动换行也是一样的

--  作者：ayiken
--  发布时间：2015/6/11 11:01:00
--
设置过程

--  作者：ayiken
--  发布时间：2015/6/11 11:02:00
--
设置过程
此主题相关图片如下：qq图片20150611105812.png