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

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

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()

这段去掉