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.UsedRange Rg.WrapText = True 'Rg.EntireColumn.AutoFit '自动调整列宽 Rg.EntireRow.AutoFit '自动调整行高 App.Visible = True