(实例及源码)VB建壳启动EXCEL实例演示

tanhong

通过VB建壳启动EXCEL项目,以此可以避开宏安全级别限制, 具体详见实例及源码.


实例及源码下载：

游客，如果您要查看本帖隐藏内容请回复

tanhong

'特别说明：在为EXCEL建壳里面，无需象建壳启动ACCESS项目一样修改宏安全级别，就可以轻松启动设定了较高安全级别的EXCEL项目，而在要通过上述方法启动ACCESS则无法实现，必须通过代码修改宏安全级别。
这从另一个侧面也反应了，ACCESS较之EXCEL安全系数的确要高

1. '********************************************************
   
2. '模块名称：Form_Load
   
3. '========================================================
   
4. '功能说明：窗体加载事件，实现建壳打开指定EXCEL文件
   
5. '输    入：无
   
6. '输    出：无
   
7. '创建时间：2008-10-19
   
8. '编    程：江羽
   
9. '********************************************************
   
10. 
    
11. Private Sub Form_Load()
    
12. '隐藏窗体
    
13.   Unload Me
    
14.   
    
15.   Dim ObjExcel As Object    '建立一个对象变量
    
16.   
    
17.   '实例化EXCEL对象
    
18.   Set ObjExcel = CreateObject("Excel.Application")
    
19.       '打开指定 EXCEL 文件
    
20.       ObjExcel.Workbooks.Open (App.Path & "" & "考勤工资管理.xls")
    
21.       '显示打开对象
    
22.       ObjExcel.Visible = True
    
23.   '释放对象
    
24.   Set ObjExcel = Nothing
    
25.   '关闭应用程序
    
26.   End
    
27. End Sub

复制代码

boyqiaoyan

很期待 学习

明镜

学习!

chenwm1973

[:50] [:27]

anjing572

[:50] [:50]

cashiba

感谢贡献资料

mfkxkj007

LKKKKKKKKKKKKKKKKKKKKKKKKKKKk

mfkxkj007

楼主不错哦,

xjf001

先顶