vba工作表属性和方法(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
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
,免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com