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

rgbaabbcc · 发表于 2006-11-11 17:45

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

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

作者申明:

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文件不存在（还没有整合在一起），此时还没有封装的嘛！不用管这里的错误，封装后就正确了。

[此贴子已经被作者于2008-4-7 13:19:05编辑过]

xxiaoa · 发表于 2006-11-11 17:59

太好了，下来学习一下。

ＺＨＹＺ · 发表于 2006-11-11 18:07

用VB6的,可以

xcyang · 发表于 2006-11-11 20:54

全部收下，谢过为先！

cqlh518 · 发表于 2006-11-11 21:14

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

huzi3000 · 发表于 2006-11-11 21:47

Think you in advance.

lbg555 · 发表于 2006-11-12 09:06

谢谢

dida · 发表于 2006-11-12 09:36

为什么打开文件后画面老是闪动?

rgbaabbcc · 发表于 2006-11-12 09:45

QUOTE:

以下是引用dida在2006-11-12 9:36:33的发言：
为什么打开文件后画面老是闪动?

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

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

yuanzhuping · 发表于 2006-11-13 01:07

好贴。

		自动登录	找回密码
密码			免费注册

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