以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  请教一个问题execl自动行宽度foxtable我已经搞定 如何用在普通的execl文件的宏内？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=16911)

--  作者：ajim --  发布时间：2012/2/27 15:30:00 --  请教一个问题execl自动行宽度foxtable我已经搞定 如何用在普通的execl文件的宏内？ 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.EntireColumn.AutoFit \'自动调整列宽 Rg.EntireRow.AutoFit \'自动调整行高 App.Visible = True

--  作者：狐狸爸爸 --  发布时间：2012/2/27 15:33:00 --   这个不懂，帮你顶。

--  作者：飞 --  发布时间：2012/2/27 18:55:00 --   Sub Test()     Dim Wb As Workbook     Set Wb = Workbooks.Open("D:\\Reports.xls")     Wb.Worksheets(1).Cells.EntireColumn.AutoFit     Application.Visible = True End Sub