工作簿是 Excel 文档的基础,基于工作簿的操作主要有新建、打开、保存工作簿,以及工作簿的保护与撤销等。一个工作簿对象(Workbook)就是一个 Excel 文件,多个 Workbook 对象组成 Workbooks集合。工作簿对象包括工作表对象 Worksheet、单元格区域对象 Range、图表对象 Chart 等。 [批量新建工作簿] 按照A列内容创建Excel文件 打开工作簿 保存工作簿 更名保存工作簿 将工作簿保存为 Web 页 打开文本文件 使用 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。 设置工作簿密码 保护工作簿 查看文档属性 判断工作簿是否存在 判断工作簿是否打开 以上程序调用了一个自定义函数 WorkbookIsOpen,该函数的 VBA 代码如下: 备份工作簿 以上程序首先获取对当前工作簿的引用,如果当前工作簿是新建工作簿,则弹出“另存为”对话框。接着获取工作簿的全名,使用 InStrRev 函数查找工作簿的全名是否有扩展名,若有扩展名,则截取文件名的前面部分(不含扩展),再将文件名后面加上“.bak”,形成备份文件的名称,最后保存当前工作簿,并使用备份文件名另存文件,得到备份文件。 限制工作簿使用时间 今日代码文件 https://wws.lanzous.com/iZe8rnu5w9eSub 批量新建工作簿()
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
Sub 将工作簿保存为 Web 页()
ActiveWorkbook.SaveAs Filename:="MyWeb.htm", FileFormat:=xlHtml
End Sub
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
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