主题：请教导出excel后的行高能动态调整吗

导出excle后 ，由于单元格内容较多，excel的单元格显示不下

请问能导出后自动调整excel的行高吗？

 

 

 

此主题相关图片如下：qq截图20151013110336.jpg

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.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都自动调整行高了

有些单元格我不用自动调整

能指定某些行的自动行高不？

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.Range("A3:B5")

Rg.WrapText = True
'Rg.EntireColumn.AutoFit   '自动调整列宽

Rg.EntireRow.AutoFit  '自动调整行高
App.Visible = True
 

Dim Book As New XLS.Book(ProjectPath & "Attachments\Purchase Order.xls")
Dim fl As String = ProjectPath & "Reports\Purchase Order.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("D20:AV21")

Rg.WrapText = True
'Rg.EntireColumn.AutoFit   '自动调整列宽

Rg.EntireRow.AutoFit  '自动调整行高
App.Visible = True
 

Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

 

我是按这个顺序写的，执行后提示我，重复打开文件

Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

 

这段去掉

好用，谢谢！