- 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=114512)
-- 发布时间：2018/2/7 21:55:00
-- excel报表不自动折行，双击那个区域才自动折行，有办法解决吗？
此主题相关图片如下：1.png
-- 发布时间：2018/2/7 22:23: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/2/7 22:29:00
--
是调整了，挺好，但把表头也调整了，不太好看了
-- 发布时间：2018/2/7 22:33:00
--
Dim Rg As MSExcel.Range = Ws.UsedRange
改成
Dim Rg As MSExcel.Range = Ws.Range("C:C")
-- 发布时间：2018/2/7 22:40:00
--
此主题相关图片如下：1.png
此主题相关图片如下：2.png
模板生成后变成这模样了
-- 发布时间：2018/2/7 22:46:00
--
看4楼。
-- 发布时间：2018/2/7 22:49:00
--
Dim Book As New XLS.Book(ProjectPath & "Attachments\\计量单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
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.Range("C:C")
\'Dim Rg As MSExcel.Range = Ws.UsedRange
rg.Formula = rg.Formula
Rg.WrapText = True
\'Rg.EntireColumn.AutoFit \'自动调整列宽
Rg.EntireRow.AutoFit \'自动调整行高
app.visible = True
我是这样写的，就是5楼的效果
-- 发布时间：2018/2/7 22:57:00
--
改成
Dim Rg As MSExcel.Range = Ws.Range("C7:C1000")
不然，就发实例发上来测试。
-- 发布时间：2018/2/7 23:07:00
--
Dim Rg As MSExcel.Range = Ws.Range("C7:C1000")
这样写好用了，怎么让excel窗口在最上层，现在需要点一下下面，才显示窗口
-- 发布时间：2018/2/7 23:10:00
--
参考 http://www.foxtable.com/webhelp/scr/2713.htm