设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 22160|回复: 84

[其它] (实例及源码)VB建壳启动EXCEL实例演示

[复制链接]
发表于 2008-10-25 00:20:26 | 显示全部楼层 |阅读模式
通过VB建壳启动EXCEL项目,以此可以避开宏安全级别限制, 具体详见实例及源码.


实例及源码下载:
游客,如果您要查看本帖隐藏内容请回复

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
 楼主| 发表于 2008-10-25 16:45:05 | 显示全部楼层
本帖最后由 tanhong 于 2009-8-23 23:41 编辑

'特别说明:在为EXCEL建壳里面,无需象建壳启动ACCESS项目一样修改宏安全级别,就可以轻松启动设定了较高安全级别的EXCEL项目,而在要通过上述方法启动ACCESS则无法实现,必须通过代码修改宏安全级别。
这从另一个侧面也反应了,ACCESS较之EXCEL安全系数的确要高
  1. '********************************************************
  2. '模块名称:Form_Load
  3. '========================================================
  4. '功能说明:窗体加载事件,实现建壳打开指定EXCEL文件
  5. '输    入:无
  6. '输    出:无
  7. '创建时间:2008-10-19
  8. '编    程:江羽
  9. '********************************************************

  10. Private Sub Form_Load()
  11. '隐藏窗体
  12.   Unload Me
  13.   
  14.   Dim ObjExcel As Object    '建立一个对象变量
  15.   
  16.   '实例化EXCEL对象
  17.   Set ObjExcel = CreateObject("Excel.Application")
  18.       '打开指定 EXCEL 文件
  19.       ObjExcel.Workbooks.Open (App.Path & "" & "考勤工资管理.xls")
  20.       '显示打开对象
  21.       ObjExcel.Visible = True
  22.   '释放对象
  23.   Set ObjExcel = Nothing
  24.   '关闭应用程序
  25.   End
  26. End Sub
复制代码
发表于 2008-10-25 18:53:27 | 显示全部楼层
很期待 学习
发表于 2008-10-27 19:36:59 | 显示全部楼层
学习!
发表于 2008-11-20 19:12:42 | 显示全部楼层
[:50] [:27]
发表于 2008-11-21 21:21:46 | 显示全部楼层
[:50] [:50]
发表于 2008-11-26 18:53:59 | 显示全部楼层
感谢贡献资料
发表于 2008-11-28 21:35:29 | 显示全部楼层
LKKKKKKKKKKKKKKKKKKKKKKKKKKKk
发表于 2008-11-28 21:41:21 | 显示全部楼层
楼主不错哦,
发表于 2009-3-15 00:15:46 | 显示全部楼层
先顶
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-6-3 01:24 , Processed in 0.092447 second(s), 35 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表