以下红色代码是整个表都会调整行高，可是我只想调整指定的行高。上传附档。
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.EntireRow.AutoFit '自动调整行高
App.Visible = True
ShowAppWindow(Pname,2)
Ws.PrintPreview
| |
S/No
序号 |
Material Coding
物料编码 |
Descriptions
物料名称 |
Specifications
规格型号 |
Quantity
数量 |
Unit Price
单价 |
Amount
金额（RMB) |
Delivery Date
交货日期 |
Remarks
备注 |
| <采购单管理,序号> |
[序号] |
[物料编码] |
[物料名称] |
[物料规格] |
[采购数量] |
[单价] |
[金额] |
[回复交货期] |
|
加好友 
发短信
Post By：2015/7/3 10:59:00 [只看该作者]
