主题：专业报表写入excel问题

用专业报表的菜单保存为excel？

重新打开excel，然后设置一下自动换行不就行？

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.Cells
Rg.WrapText = True
'Rg.EntireColumn.AutoFit   '自动调整列宽
Rg.EntireRow.AutoFit  '自动调整行高
App.Visible = True

但是excel行高有 499 的限制不能再高了，再高要这样处理

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=70571&authorid=0&page=0&star=1