带你入门VBA,第四讲(如何控制关于工作薄与工作表).docVIP

带你入门VBA，第四讲（如何控制关于工作薄与工作表） 大家好!今天主要是研究一下在VBA中怎样控制工作薄和工作表，其实就是要熟悉和掌握工作薄和工作表的一些常用属性和方法及事件。 工作薄即是我们常说的一个EXCEL文件，可以把它比喻成一本书(Workbook)而工作表呢，就是书中的每一页(sheet)。 请有兴趣参加的朋友新建一个工作薄,命名为1,保存到桌面上.并在SHEET1工作表中从窗体中添加一个按纽. 添加窗体后,在自动弹出的指定宏对话框中点击新建,就进入了VBE编辑器此主题相关图片如下： 在下面两句中间输入Workbooks后再输入个点(.),就会出现一个下拉框,框中的带小手指的就是工作薄集合的属性,带飞行的小书本的是方法,比如:新建(ADD),关闭(CLOSE),打开(OPEN)就是方法 Sub 按纽1_单击() Workbooks. End Sub 此主题相关图片如下： 在下拉框中选取ADD 即：Workbooks.Add 运行程序试试看会出现什么情况？ 以下是引用happy91在2004-10-14 10:35:00的发言： open不能选，提示错误 可以选，但要指出路径和文件名 把原来的代码删除掉， 输入Workbooks.Count 这是统计打开工作薄的数量 如果你对某个方法或属性不懂，选取该属性或方法后按F1，即可看到该方法或属性的帮助说明 而OPEN属性则是打开工作薄 比如： workbooks.open filename:=c:\2.xls 以下是引用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(2.XLS).Activate 以下是引用求奇在2004-10-14 11:08:00的发言： 输入WORKBOOKS.COUNT后运行出现错误。 此主题相关图片如下： 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中的一个函数.可以以对话框形式显示或返回信息,如:当你在关闭工作薄时的提示 当你在删除工作表时出现的提示 Workbooks.close是关闭所有打开的工作薄 Workbooks(123,XLS).close是关闭指定的工作薄 以上讨论了工作薄的新建,保存和统计,做个练习 要求: 1、设置一个按纽,执行程序后会在D盘新建三个EXCEL文件,文件名分别为1、2、3 2、设置一个按纽,执行程序后会关闭工作薄2.XLS,然后再统计打开工作薄的数量 以下是引用先锋在2004-10-14 11:35:00的发言： 可以了.新建四个工作表 名字分别为(10-13).XLS .SaveAs 什么意思? 对工作簿的修订保存到另一个不同的文件。 以下是引用先锋在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 以下是引用先锋在2004-10-14 11:59:00的发言： Sub 按钮1_单击() Workbooks(2.XLS).Close MsgBox Workbooks.Count End Sub 不行，下标越界，是怎么回事 程序运行前工作薄2是否存在并已打开？ 以下是引用先锋在2004-10-14 12:05:00的发言： 刚才建的我把它关掉后，才看到题目，后来我单独新建了一个2.XLS,是不是这样不行呀? 该吃饭了,老师!