主题：导出为Excel的问题

模板的“自动换行”可以，但是excel中却不能自动行高。我测试：还要执行一下Excel与VBA代码 ：

.....

Ws.Rows("1:10").Select

Ws.Rows("1:10").EntireRow.AutoFit

.....

显示的时候就ok了。

-----------------------------------------------

晕,我怎么不行?

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\001.xls")

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Ws.Rows("2:1000").Select

Ws.Rows("2:1000").EntireRow.AutoFit

App.Visible = True

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:001.xls