Excel VBA工作簿与工作表的操作

1.保存当前工作簿

Public Sub保存当前工作簿()Dim wb As WorkbookSet wb = ThisWorkbook    '可指定任意工作簿wb.SaveSet wb = Nothing
End Sub

如果是第一次保存工作簿，请使用SaveAs方法为该文件指定文件名

Public Sub 另存工作簿()
Dim wb As Workbook
Set wb = ThisWorkbook
wb.SaveAs ("C:\Users\Lenovo\Desktop\另存工作簿.xlm")
End Sub

如果用户希望工作簿在保存为另一文件名后，能继续编辑原工作簿，那么可以使用SaveCopyAs方法

Public Sub 保存工作副本()
Dim wb As Workbook
Set wb = ThisWorkbook
wb.SaveCopyAs("C:\Users\Lenovo\Desktop\保存工作簿副本.xlm"

2.获取打开Excel程序的默认路径

Public Sub 默认路径()MsgBox "打开Excel文件时使用的默认路径是: " & Application.DefaultFilePath
End Sub

工作表操作

1、判断A工作表文件是否存在

Sub s1()Dim X As IntegerFor X = 1 To Sheets.CountIf Sheets(X).Name = "A" ThenMsgBox "A工作表存在"Exit SubEnd IfNextMsgBox "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 WorkbookSheets("模板").CopySet wb = ActiveWorkbookwb.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 = FalseSheets("模板").DeleteApplication.DisplayAlerts = TrueEnd Sub

8 工作表的选取

     Sub s10()Sheets("sheet2").SelectEnd Sub

Excel VBA工作簿与工作表的操作相关推荐

Excel·VBA按列拆分工作表、工作簿
改进<将excel按照某一列拆分成多个文件>,使代码更具通用性,可以实现将工作表拆分为工作表或工作簿对Excel表格数据按照某列的值,将工作表拆分目录 1,工作表按列拆分为工作表 2, ...
Excel VBA 合并不同工作簿的工作表到一个工作簿的不同工作表
命令从下面第一个Sub开始: Sub 合并不同工作簿的工作表到一个工作簿的不同工作表() Excel.Application.ScreenUpdating = False Dim ARR() Dim ...
Excel·VBA按行拆分工作表
对应之前文章<Excel·VBA按列拆分工作表>,对Excel表格数据按照固定行数,将工作表拆分工作表按行拆分为工作表 Sub 工作表按行拆分为工作表()'当前工作表(worksheet ...
python读取Excel工作簿、工作表
python读取Excel工作簿.工作表最近需要用python操作Excel表格,因此大概学习了一下如何操作,表较简单但是很实用,这里记录一些简单的操作. import xlrd # 读取工作簿 w ...
C#如何设置Excel文档保护——工作簿、工作表、单元格
简介 Excel在工作和学习中应用广泛,是必不可少的数据统计与处理工具.对于一些重要的Excel文件,只供特殊人员查看.编辑或者防止重要数据对外泄露时,就需要设置文档保护,包括设置访问密码.设置文件只 ...
excel合并多工作簿同名工作表？
今天跟大家分享一下excel合并多工作簿同名工作表? 1.如下图两个工作簿,都含有相同的工作表"销售部"现在我们想要将这两个工作簿中的销售部表格合并到一个表格中. 2.首先点击下图 ...
（专升本）Excel（Excel 2010主要功能、工作簿与工作表操作）
目录 Excel 2010主要功能工作簿与工作表创建空白工作簿单元格命名方法全选工作表(最快) 插入工作表的方法删除工作表工作表特点重命名工作表保护工作表保护工作簿冻结窗格操作 E ...
python中openpyxl模块对excel的处理学习（一）新建工作簿，工作表的创建与命名
openpyxl模块用于读写excel的xlsx等文件,不支持xls from openpyxl import Workbook, load_workbookdef openpyxl_test1(): ...
合并excel不同工作簿同名工作表
今天跟大家分享一下如何合并excel不同工作簿同名工作表,如何将不同工作簿同名表组合成一个工作簿. 1.如下图两个工作簿有两个名称相同的工作表,现在我们想要将相同名称工作表组合成一个工作簿. 2.首先 ...
【Excel学习笔记9】冻结窗格、工作簿、工作表、视图
1.1如何冻结想要的行和列? 1)如何创建工作簿?两种方法 2)创建后的工作簿有1个表单,怎么让刚创建的工作簿就有3个表单? 3)如何切换工作簿? 4)如何使两个工作簿并排,达到以下效果? 5)如何对 ...

Excel VBA工作簿与工作表的操作

Excel VBA工作簿与工作表的操作相关推荐

最新文章

热门文章