我给VBA下的定义：VBA是个人小型自动化处理的有效工具。可以大大提高自己的劳动效率，而且可以提高数据的准确性。我这里专注VBA,将我多年的经验汇集在VBA系列九套教程中。

作为我的学员要利用我的积木编程思想，积木编程最重要的是积木如何搭建及拥有积木。在九套教程中我给出了大量的积木，同时讲解了如何搭建。为了让学员拥有更多的积木，我开始着手这部《VBA即用型代码手册（汉英）》的创作，这部手册约600页，集合约500多个的案例，案例我用汉语和英语同时发布，一方面学员从中可以更好的领会和掌握VBA中用到的一些英语知识，另一方面，大家可以看到各种各样的积木。这部手册是大家学习和工作中的不可多得的实用资料。今日的内容是：VBA即用型代码手册之工作薄的激活及另存为

【分享成果，随喜正能量】心念善恶，决定了因缘果报。人生的苦乐凶吉，都是因果。能决定自己命运好坏的，也只有自己。有个词叫“感召”，心念变了，就会吸引来不同的果报，因果也就变了。。

第三章工作薄代码

Workbook Codes

6将Excel文件另存为文本文件Save ExcelFile as textFile

Sub mynzSaveTextFile()

ActiveWorkbook.SaveAs Filename:= _

ThisWorkbook.Path & "\textfile-" & Format(Now, "yymmdd") & ".txt", FileFormat:=xlText, _

CreateBackup:=False

End Sub

Ø本节内容参考程序文件：Chapter03-2.xlsm

7VBA激活工作簿VBA Activate Workbook

Sub mynzvba_activate_workbook()

Dim wb As Workbook

For Each wb In Workbooks

If wb.Name = "工作簿3" Then

wb.Activate

MsgBox "找到工作簿并激活"

Exit Sub

End If

Next wb

MsgBox "Not found"

End Sub

Ø本节内容参考程序文件：Chapter03-2.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：