以文本方式查看主题

-  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=111039)
--  作者：zyl19810322
--  发布时间：2017/12/14 10:43:00
--  [求助]excel报表可以用代码实现自动列宽吗？
如题，谢谢老师
--  作者：有点甜
--  发布时间：2017/12/14 10:46:00
--  

可以，生成后，再用代码处理一下

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
Rg.WrapText = True
\'Rg.EntireColumn.AutoFit   \'自动调整列宽
Rg.EntireRow.AutoFit  \'自动调整行高
App.Visible = True

[此贴子已经被作者于2017/12/14 10:46:10编辑过]