EXCEL 工作表操作

'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

'6 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

'7 保护工作表

Sub s7()

Sheets('sheet2').Protect '123'

End Sub

Sub s8() '判断工作表是否添加了保护密码

If Sheets('sheet2').ProtectContents = True Then

MsgBox '工作簿保护了'

Else

MsgBox '工作簿没有添加保护'

End If

End Sub

'8 工作表删除

Sub s9()

Application.DisplayAlerts = False

Sheets('模板').Delete

Application.DisplayAlerts = True

End Sub

'9 工作表的选取

Sub s10()

Sheets('sheet2').Select

End Sub

'excel工作表的分类

'excel工作表有两大类，一类是我们平常用的工作表(worksheet)，另一类是图表、宏表等。这两类的统称是sheets

'sheets 工作表集合，泛指excel各种工作表

'Sheets('A')，名称为A的excel工作表

Sub t1()

Sheets('A').Range('a1') = 100

End Sub

'workbooks(2)，按打开顺序，第二个打开的工作簿。

Sub t2()

Sheets(2).Range('a1') = 200

End Sub

'ActiveSheet ，当打开多个excel工作簿时，你正在操作的那个就是ActiveSheet