Foxtable(狐表)用户栏目专家坐堂 → [求助]最近问了好几个问题,也解决了一些!然而自己也未能完美解决~所以把我要做的东西放出来,希望哪位高手能够解决剩下的问题,感激不尽!


  共有5167人关注过本帖树形打印复制链接

主题:[求助]最近问了好几个问题,也解决了一些!然而自己也未能完美解决~所以把我要做的东西放出来,希望哪位高手能够解决剩下的问题,感激不尽!

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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/2/19 17:58:00 [显示全部帖子]

模板不改动,生成的报表再用vba加工一下。

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/2/19 19:55:00 [显示全部帖子]

好像合并的单元格不灵啦,未合并的单元格能够自动换行,完全显示内容。

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/2/19 20:04: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.EntireRow.AutoFit  '自动调整行高
App.Visible = True

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/2/20 8:00:00 [显示全部帖子]

这跟汉字列与拼音列,编号列与名称列,一样的关系。

 回到顶部