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

happy91

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

怎么没人问这句？是不是地球人都知道？？

Application.DisplayAlerts = False

楼主讲一下，还没来得及问

兰色幻想

以下是引用黑色幽默在2004-10-14 14:10:00的发言：

Sub 按钮1_单击() For i = 1 To 3 Workbooks.Add ActiveWorkbook.SaveAs Filename:="d:\" & i & ".xls" Next End Sub Sub 按钮2_单击() Workbooks("2.XLS").Close MsgBox Workbooks.Count End Sub 我依样画葫芦的。这样对么？

可是第二个按钮的运行结果是“4”，我当前只有3个工作簿。怎么回事？

再试试，

For i = 1 To 3 Workbooks.Add ActiveWorkbook.SaveAs Filename:="d:\" & i & ".xls" Next Workbooks("2.XLS").Close MsgBox Workbooks.Count

我运行的是3

黑色幽默

是不是正个宏都指定为一个按钮？

Sub 按钮1_单击() For i = 1 To 3 Workbooks.Add ActiveWorkbook.SaveAs Filename:="d:\" & i & ".xls" Next Workbooks("2.XLS").Close MsgBox Workbooks.Count End Sub 运行结果还是“4”啊。晕晕。老师怎么回事啊？

兰色幻想

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

楼主讲一下，还没来得及问

DisplayAlerts是Application的一个属性。它的作用是如果不想在宏运行时被无穷无尽的提示和警告消息所困扰，就将本属性设置为 False；这样每次出现需用户应答的消息时，Microsoft Excel 将选择默认应答。

如果将本属性设置为 False，那么宏运行结束后， Microsoft Excel 并不自动将其设置回 True。故当宏运行结束后，都应将本属性设置回 True 值。

本例中如果直接用Sh.delete,运行时会出现

[此贴子已经被作者于2004-10-14 14:29:47编辑过]

黑色幽默

而且工作簿只有三个，还有一个VB，怎么显示4个啊？不会那个VB也让它算一个了？

yigepure

哈哈,刚想问,兰老师就回答了.

黑色幽默

我再运行一次就提示是否覆盖已经存在的1.2.3文件，点确认了之后还是显示4个。

还有一问：

把MsgBox Workbooks.Count的弹出窗口显示为

MsgBox "你一共打开了", Workbooks.Count, "个工作簿", "统计结果"

怎么提示运行错误？

[此贴子已经被作者于2004-10-14 14:45:15编辑过]

yigepure

为什么将SH定为object呢

先锋

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

如果将本属性设置为 False，那么宏运行结束后， Microsoft Excel 并不自动将其设置回 True。故当宏运行结束后，都应将本属性设置回 True 值。

没读懂

兰色幻想

以下是引用yigepure在2004-10-14 14:36:00的发言： 为什么将SH定为object呢

这是系统提供的,为什么这样定,我也不太清楚