分享成果，随喜真能量。大家好，今天继续和大家分享VBA编程中常用的简单“积木”，第61-65的过程。简单的过程组合起来就是一个复杂的过程，越简单的事物往往越容易理解，我们要认真掌握这些简单的过程，可以为我们复杂的工程服务。这也是我“搭积木”编程的重要思想。
下面是我根据自己20多年的VBA实际利用经验，编写的四部经验教程，这些是较大块的“积木”，可以独立的完成某些或者某类系统的过程，欢迎有需要的朋友联络（WeChat:NZ）分享。利用这些可以提高自己的编程效率，选择好积木，搭好积木。
第一套：《VBA代码解决方案》是VBA中各个知识点的讲解，覆盖了绝大多数的知识点。
第二套：《VBA数据库解决方案》是数据处理的利器；
第三套：《VBA数组与字典解决方案》中讲解VBA的精华----字典。
第四套：面向初学及中级以下学员的视频《VBA代码解决方案》正在录制。“每天20分钟，半年精进VBA”活动正在火热进行中，越早参与，回馈越多。现在第一册48讲内容已经录制完成。录制到第二册58讲的课程。
上述教程中第一、二、三是PDF教程，第四套教程是视频教程。其中视频教程的优惠活动正在进行中。
VBA过程代码61：工作簿的一些通用属性示例3
SubMyNZ()
DimSaveTimeAsString
OnErrorResumeNext
SaveTime=ActiveWorkbook.BuiltinDocumentProperties(LastSaveTime).Value
IfSaveTime=Then
MsgBoxActiveWorkbook.Name工作簿未保存.
Else
MsgBox本工作簿已于SaveTime保存,,ActiveWorkbook.Name
EndIf
EndSub
代码的解析说明：上面过程利用BuiltinDocumentProperties属性，返回工作薄的保存信息，类似于在Excel中选择菜单“文件——属性”命令时将会显示一个“属性”对话框，该对话框中包含了当前工作簿的有关信息。
VBA过程代码62：新建一个工作表”HH”
SubMyNZ()
OnErrorResumeNext
Worksheets(HH).Activate
IfErr.Number0Then
Worksheets.Addafter:=Worksheets(Worksheets.Count)
ActiveSheet.Name=HH
Else
ActiveSheet.Clear
EndIf
EndSub
代码的解析说明：上面过程利用Worksheets.Addafter:=Worksheets(Worksheets.Count)添加一个工作表，并将工作表命名为HH，如果这个工作表是已经存在的，那么将清空这个工作表。
VBA过程代码63：测试工作簿中是否包含指定工作表
SubMyNZ()
MsgBox测试工作簿中是否存在指定名称的工作表
DimbAsBoolean
b=SheetExists(指定的工作表名)
Ifb=TrueThen
MsgBox该工作表存在于工作簿中.
Else
MsgBox工作簿中没有这个工作表.
EndIf
EndSub
PrivateFunctionSheetExists(sname)AsBoolean
DimxAsObject
OnErrorResumeNext
Setx=ActiveWorkbook.Sheets(sname)
IfErr=0Then
SheetExists=True
Else
SheetExists=False
EndIf
EndFunction
代码的解析说明：上面的过程利用了一个自定义的函数SheetExists判断是否存在一个指定的工作表。
自定义的函数SheetExists中将指定名称的工作表赋值给变量x，通过赋值过程的错误的返回值来判断是否存在这个工作表。
VBA过程代码64：对未打开的工作簿进行重命名(Name方法)
SubMyNZ()
Name工作簿路径/旧名称.xlsxAs工作簿路径/新名称.xlsx
EndSub
代码的解析说明：代码中中的内容为需要重命名的工作簿所在路径及新旧名称。该方法只是对未打开的文件进行重命名，如果该文件已经打开，使用该方法会提示错误。
VBA过程代码65：设置数字精度(PrecisionAsDisplayed属性)
SubMyNZ()
DimpValue
ActiveCell.Value=1/3
ActiveCell.NumberFormatLocal=0.00
pValue=ActiveCell.Value*3
MsgBox当前单元格中的数字乘以3等于：pValue
ActiveWorkbook.PrecisionAsDisplayed=True
pValue=ActiveCell.Value*3
MsgBox此时,当前单元格中的数字乘以3等于：pValueActiveWorkbook.PrecisionAsDisplayed=False
EndSub
代码的解析说明：ActiveCell.NumberFormatLocal=0.00，是设置单元格的格式，PrecisionAsDisplayed属性的值设置为True，则表明采用单元格中所显示的数值进行计算。
上面的例子中可以看出单元格的数值和和单元格的显示值的不同。