Excel VBA工作簿与工作表的操作
来源:互联网 发布:mac触摸板怎么用 编辑:程序博客网 时间:2024/05/22 12:06
1.保存当前工作簿
Public Sub保存当前工作簿() Dim wb As Workbook Set wb = ThisWorkbook '可指定任意工作簿 wb.Save Set wb = NothingEnd Sub
如果是第一次保存工作簿,请使用SaveAs方法为该文件指定文件名
Public Sub 另存工作簿()Dim wb As WorkbookSet wb = ThisWorkbookwb.SaveAs ("C:\Users\Lenovo\Desktop\另存工作簿.xlm")End Sub
如果用户希望工作簿在保存为另一文件名后,能继续编辑原工作簿,那么可以使用SaveCopyAs方法
Public Sub 保存工作副本()Dim wb As WorkbookSet wb = ThisWorkbookwb.SaveCopyAs("C:\Users\Lenovo\Desktop\保存工作簿副本.xlm"
2.获取打开Excel程序的默认路径
Public Sub 默认路径() MsgBox "打开Excel文件时使用的默认路径是: " & Application.DefaultFilePathEnd Sub
工作表操作
1、 判断A工作表文件是否存在
Sub s1() Dim X As Integer For X = 1 To Sheets.Count If Sheets(X).Name = "A" Then MsgBox "A工作表存在" Exit Sub End If Next MsgBox "A工作表不存在"End Sub
2 、excel工作表的插入
Sub s2()
Dim sh As Worksheet
Set sh = Sheets.Add
sh.Name = “模板”
sh.Range(“a1”) = 100 End Sub
3、 excel工作表隐藏和取消隐藏
Sub s3()
Sheets(2).Visible = True
End Sub
4 、excel工作表的移动
Sub s4()
Sheets(“Sheet2”).Move before:=Sheets(“sheet1”) ‘sheet2移动到sheet1前面
Sheets(“Sheet1”).Move after:=Sheets(Sheets.Count) ‘sheet1移动到所有工作表的最后面 End Sub
5 excel工作表的复制
Sub s5() ‘在本工作簿中
Dim sh As Worksheet
Sheets(“模板”).Copy before:=Sheets(1)
Set sh = ActiveSheet
sh.Name = “1日”
sh.Range(“a1”) = “测试”
End Sub
Sub s6() '另存为新工作簿 Dim wb As Workbook Sheets("模板").Copy Set wb = ActiveWorkbook wb.SaveAs ThisWorkbook.Path & "/1日.xls" wb.Sheets(1).Range("b1") = "测试" wb.Close True End Sub
6 保护工作表
Sub s7()
Sheets(“sheet2”).Protect “123”
End Sub
Sub s8() ‘判断工作表是否添加了保护密码
If Sheets(“sheet2”).ProtectContents = True Then
MsgBox “工作簿保护了”
Else
MsgBox “工作簿没有添加保护”
End If End Sub
7、工作表删除
Sub s9() Application.DisplayAlerts = False Sheets("模板").Delete Application.DisplayAlerts = True End Sub
8 工作表的选取
Sub s10() Sheets("sheet2").Select End Sub
- Excel VBA工作簿与工作表的操作
- VBA EXCEL 工作簿之间相互操作
- VBA EXCEL 对象操作 - 新建工作表
- VBA工作表操作
- Excel VBA破解工作表/工作簿保护密码
- excel VBA合并工作簿
- VBA工作表的操作详解
- VBA 工作表的添加与删除
- excel的VBA中两种调用工作表函数的方法
- 使用 Excel 2003 工作表的 VBA 示例
- 使用 Excel 2003 工作表的 VBA 示例
- 使用 Excel 2003 工作表的 VBA 示例 (From MSDN)
- VBA关闭工作簿和退出Excel
- 通过VBA宏合并Excel工作表
- 【VBA研究】统计Excel 工作表数量
- 关于Excel下通过VBA实现工作簿文件下工作表的合并
- VBA创建excel工作薄
- Excel VBA高效办公应用-第十六章-VBA高效文件操作(使用级联菜单管理多个工作簿)
- OJ题-营救公主
- 初译 Support Vector Machines:A Simple Tutorial(三)
- [NOI题库]7614:最低通行费
- 数组
- Go语言的实时GC原理和实践
- Excel VBA工作簿与工作表的操作
- 顾客是上帝(Keep the Customer Satisfied, ACM/ICPC SWERC 2005, UVa1153)
- Python解决两个整数相除只得到整数部分问题
- 函数------01
- eclipse中配置maven
- Android 5.0新控件 CardView 介绍及使用详情
- 创建自己的yum源
- eclipse中创建maven项目
- Unity3d 内存优化: