vba代码编程800例_值得珍藏和学习的VBA常用编程代码语句

分享成果，随喜真能量。大家好，今天继续和大家分享VBA编程中常用的过程代码。过程代码在这里讲解的语句非常简单单一，简单的语句组合起来就是一个复杂的过程，我们要认真掌握这些简单的过程，为我们复杂的工程服务。这也是我"搭积木"编程的思想。

VBA过程代码46：添加并保存新工作簿

Sub MyNZ()

Dim Wk As Workbook

Set Wk = Workbooks.Add

Application.DisplayAlerts = False

Wk.SaveAs Filename:="D:/SalesData.xlsx"

Application.DisplayAlerts = true

End Sub

代码的解析说明：本示例使用了Add方法和SaveAs方法，添加一个新工作簿并将该工作簿以文件名SalesData.xlsx保存在D盘中。其中，语句Application.DisplayAlerts = False表示禁止弹出警告对话框,用完之后一定要恢复。

VBA过程代码47：打开工作簿(Open方法)

Sub MyNZ()

Workbooks.Open "/"

End Sub

代码的解析说明：代码中的<>里的内容需用所需打开的文件的路径及文件名代替。Open方法共有15个参数，其中参数FileName为必需的参数，其余参数可选。

VBA过程代码48：工作簿以只读方式打开

Sub MyNZ()

Dim fname As String

MsgBox "将D盘中的工作簿以只读方式打开"

fname = "D:/测试.xlsX"

Workbooks.Open Filename:=fname, ReadOnly:=True

End Sub

代码的解析说明：代码中的<>里的测试.xlsx文件将以只读的方式被打开，其中用到的设置是ReadOnly:=True

VBA过程代码49：将文本文件(.txt)导入工作簿中(OpenText方法)

Sub MyNZ()

'本示例打开某文本文件并将制表符作为分隔符对此文件进行分列处理转换成为工作表

Workbooks.OpenText Filename:="/", _

DataType:=xlDelimited, Tab:=True

End Sub

代码的解析说明：代码中的<>里的内容需用所载入的文本文件所在路径及文件名代替。OpenText方法的作用是导入一个文本文件，并将其作为包含单个工作表的工作簿进行分列处理，然后在此工作表中放入经过分列处理的文本文件数据。该方法共有18个参数，其中参数FileName为必需的参数，其余参数可选。

VBA过程代码50：保存工作簿(Save方法)

Sub MyNZ()

MsgBox "保存当前工作簿."

ActiveWorkbook.Save

End Sub

代码的解析说明：上述过程保存当前的工作薄，相当于点击保存。

看板：

下面是我根据我自己20多年的VBA实际利用经验，编写的几部经验教程，全是满满的"干货"，对于应用来讲，足矣，欢迎有需要的朋友联络(WeChat:NZ9668)，分享；对于想理论研究的朋友请静候明年我的下一部高级教程。

1 《VBA代码解决方案》是VBA中各个知识点的讲解，覆盖了绝大多数的知识点。

2 《VBA数据库解决方案》是数据处理的利器；

3 《VBA数组与字典解决方案》中讲解VBA的精华----字典。

4 面向初学及中级以下学员的视频《VBA代码解决方案》正在录制。看视频，"每天20分钟，半年精进VBA"活动正在火热进行中，越早报名，回馈越多。现在第一册48讲内容已经录制完成，第一阶段的优惠活动也即将结束。