以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  excel工作簿共享代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=58782)

--  作者:ccbbdlzj
--  发布时间:2014/10/23 17:39:00
--  excel工作簿共享代码
生成的excel报表想让多用户查询,想在生成报表时把报表设置成"共享“,求代码!谢谢!
--  作者:有点甜
--  发布时间:2014/10/23 17:55:00
--  
 什么意思,是被excel设置成共享,还是把excel放到共享文件夹下?
--  作者:ccbbdlzj
--  发布时间:2014/10/23 17:57:00
--  
把Excel工作簿设成共享。
--  作者:有点甜
--  发布时间: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
--  发布时间:2014/10/27 11:47:00
--  

谢谢!


--  作者:ccbbdlzj
--  发布时间:2014/10/27 12:23:00
--  

保存为共享工作薄呢?


--  作者:有点甜
--  发布时间:2014/10/27 14:14:00
--  
 呃,执行完代码,就把对应的xls保存为共享工作簿了啊