带你入门VBA，第四讲（如何控制关于工作薄与工作表）

okmhy

Sub 按钮2_单击()
For i = 10 To 13
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="c:\" & i & ".xls"
Next
Workbooks("12.xls").Close
MsgBox Workbooks.Count
End Sub

一个迟到的学生

bdlianlian

我也来了

skcyj

一天跟一章,还是觉得累,不知道老师有没有把这些精彩的贴子整理成册.期待中!

asat

厉害啊,楼主~`

hner

QUOTE:

以下是引用兰色幻想在2004-10-14 11:57:00的发言：

用程序为一个文件加个密码：

Workbooks.Open "c:\12.xls"
Workbooks("12.xls").SaveAs Filename:="C:\12.xls", Password:="123"
Workbooks("12.xls").Close

文件加密，为什么这样不可以？

Sub test8()
Workbooks("d:\1.xls").Password = "123"
End Sub

hner

QUOTE:

以下是引用happy91在2004-10-14 13:29:00的发言：

不是要的结果[em06]

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.DisplayAlerts = False
Sh.Delete
Application.DisplayAlerts = True
End Sub

NewSheet为工作簿事件，当在工作簿中插入工作表时触发该事件，故只能将其放置在thisworkbook模块中，不能放在其他地方！

 关于工作簿事件可以在VBE中，在THISWORKBOOK中查看

hner

QUOTE:

以下是引用兰色幻想在2004-10-14 15:27:00的发言：

不能

我记得有一种方法在vba中可以打开其他类型的文件，如：mp3

hner

QUOTE:

以下是引用兰色幻想在2004-10-15 8:49:00的发言：

有兴趣的请做个练习（这些问题都是经常有人问）：

1、如何一次性给所有工作表改名为A1、A2、A3....？

2、如何一次保护（或解除保护）所有工作表？

3、在闭工作薄前隐藏N-1个工作表（N是工作薄内工作表的总数），只留一个工作表？

Sub test10()
'有兴趣的请做个练习（这些问题都是经常有人问）：

'1、如何一次性给所有工作表改名为A1、A2、A3....？

'2、如何一次保护（或解除保护）所有工作表？

'3、在闭工作薄前隐藏N-1个工作表（N是工作薄内工作表的总数），只留一个工作表？
Workbooks("第五讲 如何控制工作簿与工作表").Activate
For i = 1 To Sheets.Count
   With Worksheets(i)
       .Name = "A" & i
       .Protect Password:="123"
   End With
Next i

End Sub

第三个问题

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For i = 1 To Sheets.Count
    If i <> Sheets.Count Then
         Sheets(i).Visible = False
        
    End If
Next i

End Sub

hner

QUOTE:

以下是引用yigepure在2004-10-15 15:24:00的发言：

我要是没有这个S就会出现以下提示

编辑错误:

过程声明和事件描述不匹配,或声明重复.我将它们改为

Private Sub workbook_beforeclose(ByVal sh As Object, c As Integer)
Dim b As Integer
b = Worksheets.Count
For c= 2 To b
Sheets(a).Visible = False
Next c
End Sub

还是老样子,如果加了S,又是不执行呀

beforeclose为工作簿事件，他有固定的参数，这里不能直接自定义参数，将其修改为

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim b As Integer
b = Application.Worksheets.Count
'If b > 1 Then
For a = 2 To b
Sheets(a).Visible = False
Next a
'End If
End Sub

hner

QUOTE:

以下是引用兰色幻想在2004-10-22 20:32:00的发言：

再出个习题：新建一个工作薄，添加5个工作表，再为工作表分别命名为1、2、3、4、5

再把顺序随意打乱

要求：编一个程序，使工作表按名称的数字大小排序

Private Sub CommandButton1_Click()
'Dim t As Integer
't = Sheets.Count
'If t > 5 Then Exit Sub
'For i = t + 1 To 5
'  Worksheets.Add
'Next i
'For t = 1 To 5
'  Sheets(t).Name = t
'Next t
'冒泡法排序
For t = 1 To 4
  For k = t + 1 To 5
     If Val(Sheets(t).Name) > Val(Sheets(k).Name) Then
         Sheets(k).Move Before:=Sheets(t)
     End If
  Next k
Next t
End Sub