以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  用模板生成的Excel报表如何设定自动行高  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119231)
--  作者：zhutangxin
--  发布时间：2018/5/21 9:42:00
--  用模板生成的Excel报表如何设定自动行高
老师，你好，
我用模板生成的报表，由于某个字段在某行数据行的字数较多，报表生成后，行高是原来模板的高度，需要在Excel报表中手工选中所有数据，双击行让Excel自动根据文字的多少调整行高。
有没有代码可以实现这个操作？

在另外一些报表里，用户希望行高不变，设置单元格的字体大小，以适应现在单元格的大小，可以用代码实现吗？
--  作者：有点甜
--  发布时间：2018/5/21 10:00:00
--  

Dim Book As New XLS.Book(ProjectPath & "Attachments\\123.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
Dim fl As String = ProjectPath & "Reports\\123.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.UsedRange
rg.Formula = rg.Formula
Rg.WrapText = True
\'Rg.EntireColumn.AutoFit   \'自动调整列宽
Rg.EntireRow.AutoFit  \'自动调整行高
app.visible = True
--  作者：积水成渊
--  发布时间：2018/5/30 11:30:00
--  
不行哦
--  作者：有点甜
--  发布时间：2018/5/30 11:34:00
--  

上传具体实例测试。

 

超过499高度，参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=70571&replyID=485270&skin=1

 
--  作者：9EQ98
--  发布时间：2022/12/7 1:17:00
--  

请问:如何不显示文件而是直接保存文件?
--  作者：有点蓝
--  发布时间：2022/12/7 8:37:00
--  
以下是引用9EQ98在2022/12/7 1:17:00的发言：

请问:如何不显示文件而是直接保存文件?

参考：http://www.foxtable.com/webhelp/topics/2121.htm

去掉app.visible = True
改为
  • Save

    保存工作簿，如：Wb.Save
    　
  • SaveAs

    另存工作簿，如：Wb.SaveAs("D:\\123.xls")