[原创]实现注册功能的模版---欢迎测试!!

opiona · 发表于 2006-11-30 13:53

可以在代码中加一个登陆窗口，就更有效

liyb · 发表于 2006-12-16 12:07

谢谢!

安心改造 · 发表于 2006-12-17 18:56

楼主，出现下面的问题

sheets("finish").range("iv65536")=date,或者＝“2006-11-23”更保险，以防升级被重复使用

到这里就运行不起了，能说说是为什么吗？

dgwdgw · 发表于 2006-12-17 19:45

厉害。高手，学习中。

[em02]

zjdh · 发表于 2006-12-18 08:55

Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(Me.Path)))
s = d.serialnumber

这3句是提取分区id的吧,运行中出错,无法创建!

fokus · 发表于 2006-12-19 21:25

QUOTE:

以下是引用zjdh在2006-12-18 8:55:00的发言：

Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(Me.Path)))
s = d.serialnumber

这3句是提取分区id的吧,运行中出错,无法创建!

我也是用的上面代码提取分区id，但是从未出过问题。

请你搜一下，有很多帖子

[此贴子已经被作者于2006-12-19 21:25:51编辑过]

fokus · 发表于 2006-12-19 21:38

QUOTE:

以下是引用安心改造在2006-12-17 18:56:47的发言：

楼主，出现下面的问题

sheets("finish").range("iv65536")=date,或者＝“2006-11-23”更保险，以防升级被重复使用

到这里就运行不起了，能说说是为什么吗？

sheets("finish").range("iv65536")=date ' ,或者＝“2006-11-23”更保险

sheets("finish").range("iv65536")="2006-11-23" ' 更保险

红色部分是注释，忘记放个 ' (前面的点（英文状态下）

或者是你文件存放的路径问题：

Workbooks.Open Filename:="D:\我的文档\模版-注册.xls"

[此贴子已经被作者于2006-12-19 21:45:11编辑过]

安心改造 · 发表于 2006-12-20 12:44

格式没有问题,路径也对,但是还是运行不了,我在试试,谢谢了!

hbj768 · 发表于 2006-12-20 19:16

启动时如果禁用宏的话,就直接看到你的finish工作表了,能改进一下吗?

opiona · 发表于 2006-12-21 08:28

QUOTE:

以下是引用hbj768在2006-12-20 19:16:41的发言：

启动时如果禁用宏的话,就直接看到你的finish工作表了,能改进一下吗?

实际使用时，finnish表是空白的。excel不允许工作簿里面没有工作表，最少有一个。

可以将有数据的表放在其他表里面

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