[原创] [分享][原创]Excel简单封装教程,图文并貌![已纠正错误]

[不知道此贴发在该版适不适合,如不适合,请版主帮忙移动一下贴子]

本着共享精神,制作此教程,错误难免,见谅!!

作者申明:

1、在封装过程中所使用代码的知识产权归原有作者所有，我只负责整理教程和制作插图而已；
    

2、此封装为简单封装，只是为了跳过宏，封装后的文件为exe文件，封装后的文件可以保存；
    

3、不涉及到文件保护方面的功能，如果你是为了保护文件而封装，那么，此教程不适合你；
    

4、此教程只归像我这样的菜鸟学习，高手就不用看此教程了，以免浪费你的时间；

以下附件为Excel封装专用文件夹

oLWVXx8c.rar (60.94 KB, 下载次数: 5078)

--------------------------------------------------------------------------------------------------------------------

纠错：

有网友提出来了（下面有错，其实稍懂点编程的朋友都知道，运算符都应为英文状态下的符号的，但还是有必要提出来说一下）

exec = WorkSheets(“temp”).cells(1,1).value
xlsc = WorkSheets(“temp”).cells(2,1).value

Shell comc, vbMinimizedNoFocus ‘删除临时xls文件

这是由于我粗心，把双引号和注释的单引号在中文输入状态下的结果，你只要在英文输入法状态下重新输入双引号和单引号就可以解决。

“temp”改为"temp"      

‘删除临时xls文件  改为  '删除临时xls文件

----------------------------------------------------------------------------------------------------------------------

有网友提出下面这里出错

Open exec For Binary As #1 '打开EXE文件
这行代码出错了，而且提示错误75，路径/文件访问错误

经我仔细研究，由于此时这里打开exe文件出错是正常的，因为没有exe文件不存在（还没有整合在一起），此时还没有封装的嘛！不用管这里的错误，封装后就正确了。

楼主你好,你在线吗?我遇到一点儿EXCEL的问题,想请教一下,我在线等,可以帮我吗 QQ24332835

 我想可能是因为有图,屏幕刷新问题,在我的电脑上不会有你说的这个问题!

另外说明一点,word文档另存为网页格式,即可以复制其中的代码,当然,在封装文件夹中也分别提供有要用到的代码.