只能生成报表后使用vba代码处理
如果没有合并单元格参考：dim fl as string = "生成的报表路径"
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.WrapText = True
Rg.EntireRow.AutoFit '自动调整行高
Ws.Activate
App.ActiveWindow.DisplayGridlines = False '隐藏网格线
Wb.save
App.Visible = True
如果有合并单元格参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=70571
加好友 
发短信
Post By：2023/6/9 10:24:00 [显示全部帖子]
