Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何做新建的档案 , 按照自动流水号存盘

~ 上傳‧分享‧網賺 ~

~ 免費上傳空間‧請即申請 Freak Share ~

~ 進入後請點選左上角 注冊 ! ~

~ 声明事项 ~

如各位想把以下本文章转贴 , 请记得要注明出处.

本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.

由于图片制作需时, 所以更新会比较慢.

存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.

先告诉我 ~ 另存新档的英文是什么 ~ 什么 ? 不知道 ? 没可能吧 ~ 忘了 ? 别骗我好不好 … 好吧 ~ 我输了 ~ 我来告诉你好了 ~ 就是 SAVE AS ~ 想起来了吧 ~

程序代码跟新增档案的差不多 , 程序代码就这个 :

==================

ActiveWorkbook.SaveAs Filename:="c:\abc"

==================

看到了吗 ? 又是 SAVE AS ~ 没分别的 ~ 呵呵呵呵 ~ 后面的 FILE NAME 部份是指定了档案保存的位置和文件名称 , 这就是利用 Excel VBA 执行 “ 另存新檔 ” 的方法 ~

如果你跟我差不多 , 总是不明白为什么别人的程序可以利用流水号分档案 , 而自己的又不行 , 你肯定会想出一个方法来的 ~ 呵呵呵呵 ~ 因为我想到一个简单的方法 , 所以这里就不妨你分享一下 ~

我的方法是这样的 , 首先 , 我的档案流水号是以日期来排序的 , 就是 檔名 +年 + 月 + 日 就成了我的流水号文件名称 ( 例子 : ABC2009101.xls ) , 方法是 , 先在其中一个页面内 , 在指定的储存格中加入几个函数公式 , 假设 :

储存格 A1 的公式是 : =TODAY()
储存格 A2 的公式是 : =YEAR($A$1)
储存格 A3 的公式是 : =MONTH($A$1)
储存格 A4 的公式是 : =DAY($A$1)

这样 , 储存格 A2 到 A4 的数据就会符合我的流水号要求 , 只要把它们按照我的意思来拼在一起就可以了 ~ 首先 , 要用不同的变量记录我们要的数据 :

==================

FileNameYear = Worksheets("Sheet1").Range("A2").Value
FileNameMonth = Worksheets("Sheet1").Range("A3").Value
FileNameDay = Worksheets("Sheet1").Range("A4").Value

==================

好 ~ 现在记录了年月日这三个数据 , 再来就是把刚才储存档案的程序代码修改 :

==================

ActiveWorkbook.SaveAs Filename:="c:\abc" & FileNameYear & FileNameMonth & FileNameDay

==================

执行结果嘛 ~ 就是你自己试试看啦 ~ 哈哈 ~

方法就是这个了 ~ 要怎样才能顺利地使用 , 这个可要你自己慢慢掌握哦 ~ 要不你就学不懂了 ~ XD

当然啰 ~ 如果你有更好的方法 , 请贴出来大家分享一下嘛 :)

提醒你一下 , 如果要把变量连结起来 , 请加上 & , 否则连不到哦 ~ 会出问题的呢 ~ 紧记哦 ~