VBA中关闭工作薄,创建工作薄,判断工作薄之过程代码

编辑:VBA语言专家2020-02-15 13:01:54 关键字:工作,薄之,代码,Sub,过程,wsCount,End,积木,MsgBox,Set,经验教程,工作簿,Sub,代码,MsgBox,积木

原标题:VBA中关闭工作薄,创建工作薄,判断工作薄之过程代码

分享成果,随喜真能量。大家好,今天继续和大家分享VBA编程中常用的简单“积木”代码第71-73讲的过程代码。这也是我“搭积木”编程中利用到的积木。

越简单的事物往往越容易理解,简单的过程组合起来就是一个复杂的过程,我们要先认真掌握这些简单的过程,才能在可以为我们复杂的工程服务。

VBA中关闭工作薄,创建工作薄,判断工作薄之过程代码

VBA过程代码71:关闭所有工作簿,若工作簿已改变则弹出是否保存变化的对话框

Sub MyNZ()

MsgBox "关闭当前所打开的所有工作簿"

Workbooks.Close

End Sub

代码的解析说明:上述代码用于关闭所有工作簿,如果工作簿已改变则弹出是否保存变化的对话框,Workbooks.Close由于后面没有跟true或者false所以若工作簿已改变则弹出是否保存变化的对话框。

VBA中关闭工作薄,创建工作薄,判断工作薄之过程代码

VBA过程代码72:创建新的工作簿

Sub MyNZ()

MsgBox "创建一个带有10个工作表的新工作簿"

Dim wb as Workbook

Set wb = NewWorkbook(10)

End Sub

Function NewWorkbook(wsCount As Integer) As Workbook

Dim OriginalWorksheetCount As Long

Set NewWorkbook = Nothing

If wsCount < 1 Or wsCount > 255 Then Exit Function

OriginalWorksheetCount = Application.SheetsInNewWorkbook

Application.SheetsInNewWorkbook = wsCount

Set NewWorkbook = Workbooks.Add

Application.SheetsInNewWorkbook = OriginalWorksheetCount

End Function

代码的解析说明:自定义函数NewWorkbook可以创建最多带有255个工作表的工作簿。本测试示例创建一个带有10个工作表的新工作簿。

VBA中关闭工作薄,创建工作薄,判断工作薄之过程代码

_________________________________

VBA过程代码73:判断工作簿是否存在,子过程中如果工作簿存在,则返回True

Sub MyNZ()

MsgBox "如果文件不存在则用信息框说明,否则打开该文件."

If Not FileExists("【路径】/文件.xls") Then

MsgBox "这个工作簿不存在!"

Else

Workbooks.Open "【路径】/文件.xls"

End If

End Sub

Function FileExists(FullFileName As String) As Boolean

FileExists = Len(Dir(FullFileName)) > 0

End Function

代码的解析说明:本示例使用自定义函数FileExists判断工作簿是否存在,若该工作簿已存在,则打开它。代码中,“【路径】/文件.xls”代表工作簿所在的文件夹名、子文件夹名和工作簿文件名。

下面是我根据自己20多年的VBA实际利用经验,编写的四部经验教程,这些是较大块的“积木”,可以独立的完成某些或者某类系统的过程,欢迎有需要的朋友联络(WeChat:NZ9668)分享。利用这些可以提高自己的编程效率,选择好积木,搭好积木。

第一套:《VBA代码解决方案》是VBA中各个知识点的讲解,覆盖了绝大多数的知识点。

第二套:《VBA数据库解决方案》是数据处理的利器;

第三套:《VBA数组与字典解决方案》中讲解VBA的精华----字典。

第四套:面向初学及中级以下学员的视频《VBA代码解决方案》正在录制。 “每天20分钟,半年精进VBA”活动正在火热进行中,越早参与,回馈越多。现在第一册48讲内容已经录制完成。录制到第二册59讲的课程。

上述教程中第一、二、三是PDF教程,第四套教程是视频教程。其中视频教程的优惠活动正在进行中。

责任编辑:

相关文章
6月中国厂商出海收入30强榜单公布:腾讯排名下滑 掌趣科技、易幻网络跌出榜单

6月中国厂商出海收入30强榜单公布:腾讯排名下滑 掌趣科技、易幻网络跌出榜单

中国网科技7月30日讯(记者 李婷)市场研究机构App Annie近日发布2020年6月中国厂商出海收入30强榜单,FunPlus(趣加)取代[详情]

凯迪拉克怎么了?

凯迪拉克怎么了?

题图:GM authority随着 2020 年新冠疫情逐步趋稳,很多事已经没法再让疫情背锅了。先是跌入谷底,再是触底回升,上半年国内汽[详情]

运载火箭可用固体燃料 美再为韩国研制弹道导弹“松绑”

运载火箭可用固体燃料 美再为韩国研制弹道导弹“松绑”

据韩联社首尔7月28日报道,韩国7月28日宣布,根据与美国达成的新导弹指南,该国已能研发使用固体推进剂的火箭。他在新闻发布[详情]

意大利餐厅服务员确诊 追踪发现某些顾客留假信息

意大利餐厅服务员确诊 追踪发现某些顾客留假信息

欧联网7月30日电,据欧联通讯社报道,意大利坎帕尼亚大区卫生部门28日通报,当日该地区新增确诊病例29例,那不勒斯省维科·埃[详情]

元晟溱:柯洁很有才能 他与李世石风格相似却不同

元晟溱:柯洁很有才能 他与李世石风格相似却不同

韩国棋手元晟溱九段  据韩国乌鹭网报道,韩国棋手元晟溱在10多岁的时候就已经达到了世界超一流棋手的水平。在20岁中期[详情]

contact us

Copyright     2018-2028   All rights reserved.