Foxtable(狐表)用户栏目专家坐堂 → excel工作簿共享代码


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

主题:excel工作簿共享代码

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


加好友 发短信
等级:幼狐 帖子:123 积分:1140 威望:0 精华:0 注册:2013/9/22 15:59:00
excel工作簿共享代码  发帖心情 Post By:2014/10/23 17:39:00 [只看该作者]

生成的excel报表想让多用户查询,想在生成报表时把报表设置成"共享“,求代码!谢谢!

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/10/23 17:55:00 [只看该作者]

 什么意思,是被excel设置成共享,还是把excel放到共享文件夹下?

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


加好友 发短信
等级:幼狐 帖子:123 积分:1140 威望:0 精华:0 注册:2013/9/22 15:59:00
  发帖心情 Post By:2014/10/23 17:57:00 [只看该作者]

把Excel工作簿设成共享。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/10/23 18:13:00 [只看该作者]

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\1.xls")
wb.SaveAs (Filename:="d:\test.xls",AccessMode:=MsExcel.XlSaveAsAccessMode.xlShared)
app.quit

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


加好友 发短信
等级:幼狐 帖子:123 积分:1140 威望:0 精华:0 注册:2013/9/22 15:59:00
  发帖心情 Post By:2014/10/27 11:47:00 [只看该作者]

谢谢!


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


加好友 发短信
等级:幼狐 帖子:123 积分:1140 威望:0 精华:0 注册:2013/9/22 15:59:00
  发帖心情 Post By:2014/10/27 12:23:00 [只看该作者]

保存为共享工作薄呢?


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/10/27 14:14:00 [只看该作者]

 呃,执行完代码,就把对应的xls保存为共享工作簿了啊

 回到顶部