vba编程宝典（vba初学者编程代码大全）

命中注定 • 2022-06-07 20:43:27 • 软件

分享成果，随喜真能量。大家好，今天继续和大家分享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盘中的<测试.xlsX>工作簿以只读方式打开"

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

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