'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工作表的移動(dòng)

Sub s4()

Sheets('Sheet2').Move before:=Sheets('sheet1') 'sheet2移動(dòng)到sheet1前面

Sheets('Sheet1').Move after:=Sheets(Sheets.Count) 'sheet1移動(dòng)到所有工作表的最后面

End Sub

'6 excel工作表的復(fù)制

Sub s5() '在本工作簿中

Dim sh As Worksheet

Sheets('模板').Copy before:=Sheets(1)

Set sh = ActiveSheet

sh.Name = '1日'

sh.Range('a1') = '測(cè)試'

End Sub

Sub s6() '另存為新工作簿

Dim wb As Workbook

Sheets('模板').Copy

Set wb = ActiveWorkbook

wb.SaveAs ThisWorkbook.Path & '/1日.xls'

wb.Sheets(1).Range('b1') = '測(cè)試'

wb.Close True

End Sub

'7 保護(hù)工作表

Sub s7()

Sheets('sheet2').Protect '123'

End Sub

Sub s8() '判斷工作表是否添加了保護(hù)密碼

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

MsgBox '工作簿保護(hù)了'

Else

MsgBox '工作簿沒有添加保護(hù)'

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)，另一類是圖表,、宏表等,。這兩類的統(tǒng)稱是sheets

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

'Sheets('A'),，名稱為A的excel工作表

Sub t1()

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

End Sub

'workbooks(2)，按打開順序,，第二個(gè)打開的工作簿,。

Sub t2()

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

End Sub

'ActiveSheet ，當(dāng)打開多個(gè)excel工作簿時(shí),，你正在操作的那個(gè)就是ActiveSheet