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

一杯清茶

MsgBox Workbooks.Count

是表示什么意思呀？

兰色幻想

一次新建多个工作薄:

For i = 10 To 13 Workbooks.Add ActiveWorkbook.SaveAs Filename:="c:\" & i & ".xls" Next

兰色幻想

以下是引用一杯清茶在2004-10-14 11:25:00的发言：

MsgBox Workbooks.Count

是表示什么意思呀？

MsgBox是VBA中的一个函数.可以以对话框形式显示或返回信息,如:当你在关闭工作薄时的提示

当你在删除工作表时出现的提示

先锋

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

一次新建多个工作薄:

For i = 10 To 13 Workbooks.Add ActiveWorkbook.SaveAs Filename:="c:\" & i & ".xls" Next

可以了.新建四个工作表 名字分别为(10-13).XLS .SaveAs 什么意思?

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

兰色幻想

Workbooks.close是关闭所有打开的工作薄

Workbooks("123,XLS").close是关闭指定的工作薄

以上讨论了工作薄的新建,保存和统计,做个练习

要求:

1、设置一个按纽,执行程序后会在D盘新建三个EXCEL文件,文件名分别为1、2、3

2、设置一个按纽,执行程序后会关闭工作薄"2.XLS",然后再统计打开工作薄的数量,

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

happy91

原来引号可以这样用

兰色幻想

以下是引用先锋在2004-10-14 11:35:00的发言：

可以了.新建四个工作表 名字分别为(10-13).XLS .SaveAs 什么意思?

对工作簿的修订保存到另一个不同的文件。

先锋

1)

Sub 按钮1_单击() For i = 1 To 3 Workbooks.Add ActiveWorkbook.SaveAs Filename:="D:\" & i & ".xls" Next End Sub

兰色幻想

以下是引用先锋在2004-10-14 11:41:00的发言：

1)

Sub 按钮1_单击() For i = 1 To 3 Workbooks.Add ActiveWorkbook.SaveAs Filename:="D:\" & i & ".xls" Next End Sub

正确

兰色幻想

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

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