[方案]带你入门VBA,第四讲(如何控制关于工作薄与工作表)

《[方案]带你入门VBA,第四讲(如何控制关于工作薄与工作表)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、带你入门VBA,第四讲(如何控制关于工作薄与工作表)大家好!今天主要是研究一卜•在VBA中怎样控制工作薄和工作表，其实就是要熟悉和掌握工作薄和工作表的一些常用属性和方法及事件。工作薄即是我们常说的一个EXCEL文件，可以把它比喻成一本书(Workbook)而工作表呢，就是书中的每一页(sheet)o请有兴趣参加的朋友新建一个工作薄,命名为“1",保存到桌面上.并在SHEEH工作表中从窗体中添加一个按纽.営n窗体后，在自动弹出的指定宏对话框中点击新建，就进入了VBE编辑器BHPII此主题相关图片如下:在下面两句屮间输入Workbooks后再输入个点(…)，就会岀现一个下拉框，框屮的带小手指的

2、就是工作薄集合的属性,带飞行的小书木的是方法，比如噺建(ADD),关闭(CLOSE),打开(OPEN)就是方法Sub按纽单击()Workbooks.EndSubBMPI此主题和关图片如下:在下拉框中选取ADD即：Workbooks.Add运行程序试试看会出现什么情况？以下是引用happy91在2004・10・1410:35:00的发言：open不能选，提示错误可以选，但要指出路径和文件名把原來的代码删除掉，输入Workbooks.Count这是统计打开工作薄的数量如果你对某个方法或属性不懂，选取该属性或方法后按F1,即可看到该方法或属性的帮助说明而OPEN属性则是打开匸作薄比如：workb

3、ooks.openfilename:="c:2.xls'^以下是引用happy91在2004・10・1410:59:00的发言：我想设为只应用丁•木工作薄，在哪设（不在程序中设），因为我同时要打开别的工作薄工作详细些.指定工作薄:Workbooks（”工作薄名称“）以下是引用2004-10-1411:01:00的发言：运行结果COUNT的属性使用无效，要不要赋一个变暈，变暈二对象•属性改成卜•而的:Sub按钮1」丫仃"()MsgBoxWorkbooks.CountEndSub注:Workbooks中的别少了把打开的某个工作设为半前工作薄Workbook^^.XLS1).Activate以

4、下是引用求•奇在2004-10-1411:08:00的发言:输入WORKBOOKS.COUNT后运行出现错误。匹此卞题相关图片如下:磔文件0)編辑0)视E(V)插入Q)格式©调试@)运行®工具(!)外接程序@)窗口⑪帮片:程-VTAProject

5、黑着塔鋤二c凶I[GW)■屢魁會省法闻行4,列1B[ssrrwSub按钮Workbooks^SSIEndSub模块1VBAProject(Bookl)H-SMicrosoftExcel对象koSheet1(Sheet"kSjSheet2(Sheet2)kOSheet3(Sheet3)「•”材ThisWorkbook6-S模块MsgBoxWorkb

6、ooks.Count一次新建多个工作薄：Fori=10To13Workbooks.AddActiveWorkbook.SaveAsFlename:="c:"&i&".xls"Next以下是引用-^^£2004-10-1411:25:00的发言：MsgBoxWorkbooks.Count是表示什么意思呀？MsgBox是VBA中的一个函数.可以以对话框形式显示或返回信息，如:当你在关闭工作薄时的提示当你在删除工作表时出现的提示Workbooks,close是关闭所有打开的工作薄Workbooks(n123,XLS*).close是关闭指定的工作薄以上讨论了工作薄的新建，保存和统计，做个练习要

7、求：1、设置一个按纽，执行程序后会在D盘新建三个EXCEL文件,文件名分别为1、2、32、设置一个按纽，执行程序后会关闭工作薄“2.XLS,然后再统计打开工作薄的数量以下是引用^^2004-10-1411:35:00的发言:可以了.新建四个工作表名字分别为(10-13).XLS.SaveAs什么意思?对工作簿的修订保存到另一个不同的文件。以下是引用^^2004-10-1411:41:00的发言:1)Sub按钮1_单击()Fori=1To3Workbooks.AddActiveWorkbook.SaveAsFilenames"DA"&i&".xls"NextEndSub止确用程序为一个文件加

8、个密码:Workbooks.Opennc:12.xls"Workbooks("12.xls").SaveAsRlename:=nC:12.xls",Passwords"123"Workbooks("12.xls").Close以下是引用^^2004-10-1411:59:00的发言:Sub按钮1_单击()Workbooks("2.XLSn).CloseMsgBoxWorkbooks.CountEndSub不行，下标越