|
[不知道此贴发在该版适不适合,如不适合,请版主帮忙移动一下贴子] 本着共享精神,制作此教程,错误难免,见谅!! 作者申明: 1、在封装过程中所使用代码的知识产权归原有作者所有，我只负责整理教程和制作插图而已；
2、此封装为简单封装，只是为了跳过宏，封装后的文件为exe文件，封装后的文件可以保存；
3、不涉及到文件保护方面的功能，如果你是为了保护文件而封装，那么，此教程不适合你；
4、此教程只归像我这样的菜鸟学习，高手就不用看此教程了，以免浪费你的时间；
以下附件为Excel封装专用文件夹
-------------------------------------------------------------------------------------------------------------------- 纠错： 有网友提出来了（下面有错，其实稍懂点编程的朋友都知道，运算符都应为英文状态下的符号的，但还是有必要提出来说一下） 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文件不存在（还没有整合在一起），此时还没有封装的嘛！不用管这里的错误，封装后就正确了。
[此贴子已经被作者于2008-4-7 13:19:05编辑过] | 
