VBA常用技巧代码解析

tchw131

楼主辛苦，谢谢了。

cutenan

太好了~
我刚学习EXCEL~太感谢楼主了！！！

入孝出悌

楼主辛苦了……

caytuf

已下载,非常感谢楼主

goofy123

已经下载，谢谢楼主的分享!

acking333

看看，谢谢楼主！

sbc-dskj

这么多技巧，先标记一下。等富了再下载。

anewman

感谢楼主的劳动。

yuanzhuping

技巧172         文件修改的日期和时间
       在VBA过程中如果需要获得文件最后修改的日期和时间，可以使用FileDateTime函数，如下面的代码所示。

1. #001  Sub myDateTime()
   
2. #002      Dim Stmp As String
   
3. #003      Dim myDateTime As Date
   
4. #004      Stmp = ThisWorkbook.Path & "" & ThisWorkbook.Name
   
5. #005      myDateTime = FileDateTime(Stmp)
   
6. #006      MsgBox Stmp & "最后修改时间是：" & Chr(13) & myDateTime
   
7. #007  End Sub

复制代码

代码解析：
       myDateTime过程使用消息框显示文件最后修改的日期和时间。
       FileDateTime函数返回一个文件被创建或最后修改后的日期和时间，语法如下：
       FileDateTime(pathname)
       pathname 参数是必需的，用来指定文件名的字符串表达式。pathname 可以包含目录或文件夹、以及驱动器。
       第4行代码使用变量Stmp保存代码所在工作簿的路径和名称。
       第5行代码使用变量myDateTime保存FileDateTime函数返回的日期和时间。
       运行myDateTime过程结果如图所示。

samwy

好帖，下载学习了