VBA学习笔记(02章Excel工作簿和工作表操作)

1、第二课工作簿的表示方法OptionExplicit'VBA中,经常要在不同工作簿之间转换,工作簿的表示方法很重要,我们来看看工作簿有几种表示方法Sub工作簿名称表示法0MsgBoxWorkbooks("2l.工作簿的表示方法).Parent'返回工作簿对象的父对象.EndSubSub工作簿引索号表示法()MsgBoxWorkbooks(2).Name返回工作簿的名称(第二个工作簿)EndSubSub窗口表示法0MsgBoxWindows.Count'返回当前excel工作簿翻开的个数msgboxWindows(l).Parent.Name返回第几个工作簿的名称

2、EndSub(注意：索引号表示法与窗口表示法展示的工作簿顺序是相反的)Sub工作簿实例workbooks法0DimiFori=1ToWorkbooks.CountCellsfi,1)=Workbooks(i).NameNextEndSubSub工作簿实例windows方法0DimiFori=1ToWindows.CountCellsfi,2)=Windows(i).Parent.NameNextEndSub第三课当前工作簿与活开工作簿OptionExplicit,thisworkbook当前工作簿,代码所在工作簿'activeworkbook活开工作簿,被激活的工作薄Sub当前与活开工

3、作簿区别实例()MsgBoxThisWorkbookNameActiveWorkbookNameEndSubSub运用0MsgBoxThisWorkbookPath&Chr(10)&ThisWorkbookFullNameEndSub(解释：Path路径,FullName全名,Chris()换行符)Sub验证当前工作簿是否已翻开()DimwkAsWorkbook,aForEachwkInWorkbooksa=wkNameIfwkName="学习VBA.xlsrrf'ThenwkActivate(解释：激活)MsgBox已戚活工作簿'&wkNam

4、eExitSubEndIfNextwkMsgBox没有发现工作簿：学习VBA.xIsmEndSub'思考题：用workbooks.count和windows.count来做上面这道题？第四课工作簿根底操作,workbooks由当前所有在内存中翻开的workbook对象组成'向workbooks添力口workbook对象1新建工作簿Sub新建工作簿0DimwkbAsWorkbook'声明wkb为工作簿Setwkb=Workbooks.Add'新建工作秒簿(注意：对象赋值需要加set)wkb.SaveAs"c:123.xls保存为工作簿EndSub2翻开工

5、作簿Sub翻开工作簿0DimwkbAsWorkbookSetwkb=Workbooks.Open(Mc:123.xls")EndSub3关闭工作簿Sub关闭0Workbooks(M123M),CloseTrue(>±：TRUR是保存内容)EndSub3文件复制与删除Sub文件复制与删除()FileCopy“c:123.txt,“c:321.txt,对所有文件类型都起作用Kill"c:321.txtEndSub第五课工作簿实例应用Sub文件是否存在0a=Dir(k:123.xls)(解释：Dir函数,取出目录文件)Ifa=m,ThenMsgBox不存在Else

6、MsgBox存在“EndIfEndSubSub翻开指定目录下的文件()Dima取n!,wbsAsWorkbooka=Dir("c:*.txt")Workbooks.Open"cA"&aDoa=DirIfa<>,H,ThenWorkbooks.OpenMc:M&aElseExitSubEndIfLoopEndSub第六课工作表的表示方法,在workbook对象中,有一个SHEETS集合洪成员是worksheet对象或chart对象.'worksheets仅指的是工作表,而sheets包含图表,工作表,宏表等等,VBA中,

7、经常在工作表之间转换或者对不同工作表中的单元格区域进行操作通常有下面几种方法：Sub直接使用工作表名称法0MsgBoxWorksheets("我的工作表").NameMsgBoxSheets(“我的图表").NameEndSubSub索引号表示法()MsgBoxWorksheets(l).NameEndSubSub工作表代码索引号表示法0MsgBoxSheets(l).NameEndSubSub直接取工作代码法0MsgBoxSheetl.NameEndSubSub活开工作表0MsgBoxActiveSheet.NameEndSub,注意：当工作簿包括工作表、宏表、

8、图表等时,使用索引号引用工作表如Sheets(l)与,WorkSheets(l)引用的可能不是同一个表.SubworksheetssQMsgBoxWorksheets(l).NameMsgBoxSheets(l).NameEndSubSubsheetss()Fori=1ToSheets.CountMsgBoxSheets(i).NameNextEndSub第七课工作表集合应用Sub遍历sheets下的所有对象()ForEachshsInSheetsk=k+1Cells(k,1)=shs.NameNextEndSubSub遍历worksheets下的所能对象0ForEachshsInWorksh

9、eetsk=k+1Cells(kt2)=shs.NameNextEndSubSub工作表存在与否()Dimsn$ForEachshtInSheetssn=sht.NameIfsn="我的工作表'ThenMsgBox'存在"ExitSubEndIfNextMsgBox不存在EndSubSub工作表存在与否1()Dimsn$Fori=1ToSheets.Counta=Sheets(i).NameIfSheets(i).Name="我的工作表"ThenMsgBox存在“ExitSubEndIfNextMsgBox“不存在EndSub第八课工作表

10、增加与删除Sheets.Add方法表达式.Add(Before,After,Count,Type),XISheetType常量之一：xlWorksheet工作表,xlChart图表xlExcel4MacroSheet宏表xIExcentlMacroSheet对话框默认值为xlWorksheetoSub新建sheetsQ,Sheets.Add,Sheets.AddSheets("abcM)Sheets.Add,Sheets("abc"),Sheets.Addafter:=Sheets("abc"),Sheets.AddCount:=2,Sheet

11、s.Add,2Sheets.Add,xlChartEndSubSub删除工作表()SheetlO.DeleteEndSubOptionExplicitSub宏4.,宏4宏Sheets("Sheet8").SelectActiveWindow.SeiectedSheets.DeleteEndSub第九课工作表增加删除实例如果想批量新建工作表,可以结果循环来制作Sub新建1到12月份的工作表()Dimj%Forj=12To1Step-1Sheets.Add.Name=j&"月"NextEndSub,删除工作表Sub删除sheet()OnErrorRe

12、sumeNextApplication.DisplayAlerts二False(解释：删除的时候都有警告提示,此时循环关闭警告)Dimi%Fori=1To12Sheets.&月").DeleteNextApplication.DisplayAlerts=True(解释：删除的时候都有警告提示,此时循环翻开警告)EndSub第十课工作表移动与复制'表达式.Move(Before,After)'表达式.copy(Before,After)Sub移动()Sheetl.Move,Sheet3Sheetl.Moveafter:=Sheet3EndSubSub复制0She

13、etl.CopySheets(Sheets.Count)EndSubSub实例0Dimi%,sthAsWorksheetFori=1To12Setsth=Sheets.Addsth.Moveafter:=Sheets(Sheets.Count)sth.Name=i&"月"NextEndSub第十一课工作表选择与激活OptionExplicitWorksheet.Select方法选择对象Worksheet.Activate方法使当前工作表成为活开工作表工作表的选择select与activateSub工作表选择0Sheet3,Select'不支持隐藏选取SheetS.Activate,支持EndSubSub快速选择所有工作表()Worksheets.SelectSheets.SelectEndSubSub自定义选择()Worksheets(Array(l,3,5),Select(解释：函数Array为数组函数)EndSub第十二课工作簿综合运用(拆分工作簿).Sub拆分到工作簿0DimwkAsWorkbook,ss$fk%AppIication.DispIayAIerts=FalseForEachshtInWorkbooks(1,2-ll.工作簿综合运用(拆分工