主题：[求助]如何通过编码或STYLE，令excel单元格的宽度如何自适应？

现有一个EXCEL表，A1列，在填入123456时的宽度刚好满格，A2行填入123456789910时，有部份数据显示不出完全，要手工拉宽才看得见。大神有没办法通过编码或STYLE，令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