[批量新建事情簿]
按照A列内容创建Excel文件
Sub 批量新建事情簿() Dim str1 As String, wbPath As String Dim i As Integer, n As Integer Dimws1AsWorksheet,wb1AsWorkbook 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 判断事情簿是否打开() Dimstr1AsString 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
