「VBA基础」 Worksheet 对象操作技巧

工作簿是 Excel 文档的基础，基于工作簿的操作主要有新建、打开、保存工作簿，以及工作簿的保护与撤销等。一个工作簿对象（Workbook）就是一个 Excel 文件，多个 Workbook 对象组成 Workbooks集合。工作簿对象包括工作表对象 Worksheet、单元格区域对象 Range、图表对象 Chart 等。

[批量新建工作簿]

按照A列内容创建Excel文件

Sub 批量新建工作簿() 
 Dim str1 As String, wbPath As String 
 Dim i As Integer, n As Integer 
 Dim ws1 As Worksheet, wb1 As Workbook 
 Application.DisplayAlerts = False '禁止警告信息
 Set ws1 = ActiveSheet '获取当前工作表的引用
 wbPath = ThisWorkbook.Path & "\例 1" '保存文件的目录
 n = ws1.Range("A1").End(xlDown).Row '总的数据行数
 For i = 2 To n '循环创建工作簿
 Set wb1 = Workbooks.Add '新建一个工作簿
 wb1.SaveAs wbPath & "\" & ws1.Cells(i, 1) & ".xls" '保存工作簿
 wb1.Close '关闭工作簿
 Next 
 Application.DisplayAlerts = True 
End Sub

打开工作簿

保存工作簿

更名保存工作簿

将工作簿保存为 Web 页

Sub 将工作簿保存为 Web 页() 
 ActiveWorkbook.SaveAs Filename:="MyWeb.htm", FileFormat:=xlHtml 
End Sub

打开文本文件

使用 Workbooks 集合对象的 OpenText 方法，可载入一个文本文件，并将其作为包含单个工作表的新工作簿进行分列处理，然后在此工作表中放入经过分列处理的文本文件数据。该方法的语法格式如下：

表达式 .

OpenText(Filename, Origin, StartRow, DataType, TextQualifier, ConsecutiveDelimiter, Tab, Semicolon, Comma, Space, Other, OtherChar, FieldInfo, TextVisualLayout, DecimalSeparator, ThousandsSeparator, TrailingMinusNumbers, Local)

该方法的参数有很多，除了 Filename 为必需的参数之外，其他参数都可省略。各参数的含义如下。

● Filename：指定要打开和分列的文本文件的名称。

● Origin：指定文本文件来源。可为常量 xlMacintosh、xlWindows 或 xlMSDOS。此外，它还可以是一个整数，表示所需代码页的代码页编号。例如，“1256”指定源文本文件的编码是阿拉伯语。如果省略该参数，则此方法将使用“文本导入向导”中“文件原始格式”选项的当前设置。

● StartRow：文本分列处理的起始行号。默认值为 1。

● DataType：指定文件中数据的列格式。可为常量 xlDelimited 或 xlFixedWidth。如果未指定该参数，则 Excel 将尝试在打开文件时确定列格式。

● TextQualifier：指定文本识别符号。

● ConsecutiveDelimiter：如果为 True，则将连续分隔符视为一个分隔符。默认值为False。

● Tab：如果为 True，则将制表符用作分隔符（DataType 必须为 xlDelimited）。默认值为 False。

● Semicolon：如果为 True，则将分号用作分隔符（DataType 必须为 xlDelimited）。默认值为 False。

● Comma：如果为 True，则将逗号用作分隔符（DataType 必须为 xlDelimited）。默认值为 False。

● Space：如果为 True，则将空格用作分隔符（DataType 必须为 xlDelimited）。默认值为 False。

● Other：如果为 True，则将 OtherChar 参数指定的字符用作分隔符（DataType 必须为 xlDelimited）。默认值为 False。

● OtherChar：（如果 Other 为 True，则为必选项）。当 Other 为 True 时，指定分隔符。如果指定了多个字符，则仅使用字符串中的第一个字符而忽略剩余字符。

● FieldInfo：包含单列数据相关分列信息的数组。对该参数的解释取决于 DataType的值。如果此数据由分隔符分隔，则该参数为由两个元素数组组成的数组，其中每个两元素数组指定一个特定列的转换选项。第一个元素为列标（从 1 开始），第二个元素是 XlColumnDataType 的常量之一，用于指定分列方式。

● TextVisualLayout：文本的可视布局。

● DecimalSeparator：识别数字时，Excel 使用的小数分隔符。默认设置为系统设置。

● ThousandsSeparator：识别数字时，Excel 使用的千位分隔符。默认设置为系统设置。

● TrailingMinusNumbers：如果应将结尾为减号字符的数字视为负数处理，则指定为True。如果为 False 或省略该参数，则将结尾为减号字符的数字视为文本处理。

● Local：如果分隔符、数字和数据格式应使用计算机的区域设置，则指定为 True。

Sub 打开文本文件() 
 Workbooks.OpenText Filename:="员工花名册.txt", _ 
 DataType:=xlDelimited, Tab:=True 
End Sub

设置工作簿密码

Sub 设置工作簿密码() 
 Dim pw As String 
 pw = Application.InputBox(prompt:="请输入保护工作簿的密码：", _ 
 Title:="输入密码", Type:=2) 
 ActiveWorkbook.Password = pw 
 ActiveWorkbook.Save 
 ActiveWorkbook.Close 
End Sub

保护工作簿

Sub 保护工作簿() 
 Dim pw As String 
 pw = Application.InputBox(prompt:="请输入保护工作簿的密码：", _ 
 Title:="输入密码", Type:=2) 
 ActiveWorkbook.Protect Password:=pw, Structure:=True, Windows:=True 
End Sub

查看文档属性

判断工作簿是否存在

判断工作簿是否打开

Sub 判断工作簿是否打开() 
 Dim str1 As String 
 str1 = Application.InputBox(prompt:="请输入 Excel 工作簿文件名：", _ 
 Title:="文件名", Type:=2) 
 If str1 = "False" Then Exit Sub 
 If Not WorkbookIsOpen(str1) Then 
 MsgBox "工作簿“" & str1 & "”未打开!" 
 Else 
 MsgBox "工作簿“" & str1 & "”已打开!" 
 End If 
End Sub

以上程序调用了一个自定义函数 WorkbookIsOpen，该函数的 VBA 代码如下：

Private Function WorkbookIsOpen(WorkBookName As String) As Boolean 
 '如果该工作簿已打开，则返回真
 Dim wb As Workbook 
 On Error Resume Next 
 Set wb = Workbooks(WorkBookName) 
 If Err = 0 Then 
 WorkbookIsOpen = True 
 Else 
 WorkbookIsOpen = False 
 End If 
End Function

备份工作簿

以上程序首先获取对当前工作簿的引用，如果当前工作簿是新建工作簿，则弹出“另存为”对话框。接着获取工作簿的全名，使用 InStrRev 函数查找工作簿的全名是否有扩展名，若有扩展名，则截取文件名的前面部分（不含扩展），再将文件名后面加上“.bak”，形成备份文件的名称，最后保存当前工作簿，并使用备份文件名另存文件，得到备份文件。

限制工作簿使用时间

今日代码文件

https://wws.lanzous.com/iZe8rnu5w9e