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

happy91

我想设为只应用于本工作薄，在哪设（不在程序中设），因为我同时要打开别的工作薄工作

先锋

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

把原来的代码删除掉，

输入Workbooks.Count

这是统计打开工作薄的数量

运行结果COUNT的属性使用无效，要不要赋一个变量，变量=对象.属性

兰色幻想

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

我想设为只应用于本工作薄，在哪设（不在程序中设），因为我同时要打开别的工作薄工作

详细些.

指定工作薄:Workbooks("工作薄名称")

兰色幻想

以下是引用先锋在2004-10-14 11:01:00的发言： 运行结果COUNT的属性使用无效，要不要赋一个变量，变量=对象.属性

改成下面的:

Sub 按钮1_单击() MsgBox Workbooks.Count End Sub 注:Workbooks中的"S"别少了

求奇

输入WORKBOOKS.COUNT后运行出现错误。

[此贴子已经被作者于2004-10-14 11:09:58编辑过]

兰色幻想

把打开的某个工作设为当前工作薄

Workbooks("2.XLS").Activate

先锋

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

改成下面的:

Sub 按钮1_单击() MsgBox Workbooks.Count End Sub 注:Workbooks中的"S"别少了

谢谢!

可以了.

[此贴子已经被作者于2004-10-14 11:13:46编辑过]

求奇

清楚了，原来workbooks.count是一个数字，赋值或显示才有效的。

兰色幻想

以下是引用求奇在2004-10-14 11:08:00的发言：

输入WORKBOOKS.COUNT后运行出现错误。

MsgBox Workbooks.Count

求奇

OK！可以了。