Foxtable(狐表)用户栏目专家坐堂 → 请教一个问题execl自动行宽度foxtable我已经搞定 如何用在普通的execl文件的宏内?


  共有9043人关注过本帖平板打印复制链接

主题:请教一个问题execl自动行宽度foxtable我已经搞定 如何用在普通的execl文件的宏内?

帅哥哟,离线,有人找我吗?
ajim
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:200 积分:1881 威望:0 精华:0 注册:2011/11/24 15:19:00
请教一个问题execl自动行宽度foxtable我已经搞定 如何用在普通的execl文件的宏内?  发帖心情 Post By:2012/2/27 15:30:00 [只看该作者]

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

 回到顶部