vba 当前文件名_值得收藏的VBA编程常用代码3640

蓝字关注，加微信NZ9668获资料信息

 VBA解决方案   系列丛书作者 

头条百家平台 VBA资深创作者

_______________________________

---

分享成果，随喜真能量。大家好，今天继续和大家分享 VBA编程中常用的过程代码,过程代码在这里讲解的语句非常简单单一，简单的组合起来就是一个复杂的过程，也是一个学习的过程。  VBA过程代码36：返回系统的当前日期 Sub MyNZ() Dim MyDate, MyDay MyDate = Date MyDay = Day(MyDate) MsgBox MyDay END SUB 代码的解析说明：上述代码过程在执行过程中，将弹出一个对话框提示当前的日期。其中 Date是当前的日期，含年月日，Day(MyDate)是从上述的当前日期中提出日期。最后用MsgBox弹出对话框显示这个日期。       VBA 过程代码 37 ：返回系统的当前年份 Sub MyNZ() Dim MyDate, MyYear MyDate = Date MyYear = Year(MyDate) MsgBox MyYear END SUB 代码的解析说明：上述代码过程在执行过程中，将弹出一个对话框，提示当前的年。其中 Date是当前的日期，含年月日，Year(MyDate)是从上述的当前日期中提出年。最后用MsgBox弹出对话框显示这个年。 VBA过程代码38：返回系统的当前月份 Sub MyNZ() Dim MyDate, MyMonth MyDate = Date MyMonth = month(MyDate) MsgBox MyMonth END SUB 代码的解析说明：上述代码过程在执行过程中，将弹出一个对话框，提示当前的月。其中 Date是当前的日期，含年月日，month(MyDate)是从上述的当前日期中提出月。最后用MsgBox弹出对话框显示这个月。  VBA 过程代码 39 ： inputbox< 输入框 > Sub MyNZ() XX=InputBox ("Enter number to add！") END SUB 代码的解析说明：上述代码过程在执行过程中，将弹出一个输入对话框，提示输入的信息： "Enter number to add！" 最后用变量XX记录这个输入。   VBA 过程代码 40 ：得到一个文件名  Sub MyNZ() Dim kk As String kk =Application.GetOpenFilename("EXCEL (*.XLSM), *.XLSM", Title:="提示：请打开一个EXCEL文件：") msgbox kk END SUB 代码的解析说明：上述代码过程在执行过程中，将弹出一个打开的对话框，让用户选择某个文件，并用变量 KK记录这个文件名,这个文件名是包含地址的FULLNAME。注意此时的代开对话框并不是真的打开这个文件。 看板： 下面是我根据我自己20多年的VBA实际利用经验，编写的几部经验教程，全是满满的“干货”，欢迎有需要的朋友联络(WeChat:NZ9668)，分享。 1 《VBA代码解决方案》是VBA中各个知识点的讲解，覆盖了绝大多数的知识点。 2 《VBA数据库解决方案》是数据处理的利器； 3 《VBA数组与字典解决方案》中讲解VBA的精华----字典。 4  面向初学及中级以下学员的视频《VBA代码解决方案》正在录制。看视频，“每天20分钟，半年精进VBA”活动正在火热进行中，越早报名，回馈越多。现在第一册48讲内容已经录制完成，第一阶段的优惠活动即将结束。

_____________________________ 

有启发 点在看，转给朋友  约作者 请留言，直接交流

更多关联阅读