我给VBA下的定义:VBA是个人小型自动化处理的有效工具。可以大大提高自己的劳动效率,而且可以提高数据的准确性。我这里专注VBA,将我多年的经验汇集在VBA系列九套教程中。
作为我的学员要利用我的积木编程思想,积木编程最重要的是积木如何搭建及拥有积木。在九套教程中我给出了大量的积木,同时讲解了如何搭建。为了让学员拥有更多的积木,我开始着手这部《VBA即用型代码手册(汉英)》的创作,这部手册约600页,集合约500多个的案例,案例我用汉语和英语同时发布,一方面学员从中可以更好的领会和掌握VBA中用到的一些英语知识,另一方面,大家可以看到各种各样的积木。这部手册是大家学习和工作中的不可多得的实用资料。今日的内容是:VBA即用型代码手册之工作薄的关闭保存及创建
【分享成果,随喜正能量】真正的上坡路,通常都不好走。业精于勤,荒于嬉;行成于思,毁于随。学习是终生要做的事情,它不仅是为了“有用”,更是要让自己保持“奋战”状态,保有一种底气,多一份选择。即使很多路我们未曾行走,我们也依然了解这世间万物,知晓世事。。
第三章工作薄代码
Workbook Codes
8关闭工作簿而不保存Close a Workbook without Saving
Sub mynzvba_close_Activeworkbook()
ActiveWorkbook.Close SaveChanges:=False
End Sub
Ø本节内容参考程序文件:Chapter03-2.xlsm
9保存并关闭工作簿Close a Workbook after Saving
Sub mynzvba_close_workbook()
Dim wbCheck As String
wbCheck = Dir(ThisWorkbook.Path & "\myFile.xlsx")
If wbCheck = "" Then
Workbooks("工作簿1").Close _
SaveChanges:=True, _
Filename:=ThisWorkbook.Path & "\myFile.xlsx"
Else
MsgBox "Error! Name already used."
End If
End Sub
Ø本节内容参考程序文件:Chapter03-2.xlsm
10 创建一个新的工作簿VBA Create New Workbook
Sub mynzvba_new_workbook()
Workbooks.Add
End Sub
Ø本节内容参考程序文件:Chapter03-2.xlsm
我20多年的VBA实践经验,全部浓缩在下面的各个教程中: