主题：[分享]全自动创建文件夹

[这个贴子最后由Czy在 2009/02/02 10:25pm 第 2 次编辑]

下载下面的文件，保存到硬盘中。

先切换到“创建文件夹”表中，执行窗口的“创建文件夹”按钮，即可自动创建所需的全部文件夹，创建后的文件夹默认保存在易表文件目录下。

个性化工艺表窗口的打开文件夹按钮，如果文件夹已经存在，点击即可打开相应的文件夹，没有则不执行任何操作。

工艺编号如果为空，默认打开当前易表文件的文件夹。

公式说明

DelFor(grid,"文件夹名称","=","") And 删除文件夹名称列为空的行。
if(MaxFor(grid,"文件夹已创建")=-1, 如果文件夹已创建列中的最大值等于负1。
MsgBox("没有要创建的文件夹",0), 提示。
DelFile(docdir+"创建文件夹.vbs") And 删除名为创建文件夹的脚本文件。
FilterFor("文件夹已创建","=",0) And 筛选数据。
Select(1,2,rows,2) And 选定脚本代码整列。
Do(22) And 复制数据。
Run("notepad.exe") And 打开记事本。
eval(Mid(Rept(" And SetLabel("""","""")",500),5)) And 延时操作。
SendKeys("^v^s") And   模拟键盘操作：ctrl+v（粘贴）、ctrl+s（保存）。
eval(Mid(Rept(" And SetLabel("""","""")",500),5)) And 延时操作。
SendKeys(docdir+"创建文件夹.vbs") And 模拟键盘操作：输入文件保存路径和文件名。
SendKeys("{tab 4}~") And 模拟键盘操作，移动tab 4下再回车（保存）。
eval(Mid(Rept(" And SetLabel("""","""")",500),5)) And 延时操作。
SendKeys("% c") And 模拟键盘操作，关闭记事本。
Run(docdir+"创建文件夹.vbs") And 运行脚本程序。
ReplaceFor(grid,"文件夹已创建",-1) And 将文件夹已创建列替换为真。
ShowAllRows() And 显示所有行数据。
Move(1,1) And 移动焦点到第一行第一列。
MsgBox("文件夹创建完毕!",0)) 提示。

egd文件下载

自认为此文件做的还比较得意，特别是SendKeys的应用，eval、mid、rept、setlabel函数配合的延时操作，在应用方面都有可借鉴的地方，自己顶一下。

慢倒不是问题，如果你的机子运行比较慢，可以将下例公式（延时操作）中的500改成100甚至更小值即可提速，但机子运行速度快的，则不能改甚至还可以调大这个值，否则运行时间不匹配就达不到要求了。

eval(Mid(Rept(" And SetLabel("""","""")",500),5))

这个我没办法的，是你的机器禁止运行脚本程序导致的。
你在安全设置中设置一下看看。

好象没好办法。