欢迎来到天天文库
浏览记录
ID:52892599
大小:52.64 KB
页数:3页
时间:2020-03-31
《VBA数据处理全流程宝典.pdf》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、VBA数据处理全流程一、简介VBA功能定位:从指定单元格范围获取数据经过处理后写入指定单元格范围VBA基础操作:1.获取指定单元数据2.处理数据3.写入指定单元格数据编程:1.定位单元格2.操作单元格3.数据处理二、实现1.定位单元格1.1对象层次Excel.Application.Workbooks("c:work.xls").Worksheets(1).Cells(1,1)a)顶层对象Excel:直接使用,一切派生对象的根基b)建立Application对象:DimappAsNewApplicationSetapp=C
2、reateObject("Excel.Application")c)打开workbook对象:DimwbookAsNewWorkbookSetwbook=app.Workbooks.Open("c:w1.xls")其中当前路径可通过ThisWorkbook对象属性获取:DimspathAsStringspath=ThisWorkbook.PathSetwbook=app.Workbooks.Open(spath&"w1.xls")d)指向worksheet对象:DimwsheetAsNewWorksheetSetwshe
3、et=wbook.Worksheets(1)或Setwsheet=wbook.Worksheets(“Sheet1”)e)指向单元格对象:wsheet.Cells(1,1)即Cells(row,col)1.2当前workbook:定位当前workbook的单元格可通过如下对象直接指示:a)ThisWorkbook对象b)在ThisWorkbook模块内直接用Me对象指向workbookc)在worksheet模块内直接用Me对象指向worksheet1.3Notes:如果操作了其它xls文件的数据,请及时关闭workbook
4、wbook.Close2.操作单元格定位:Setwsheet=wbook.Worksheets(“Sheet1”)2.1读取单元数据DimvalueAsStringvalue=wsheet.Cells(1,1)2.2写入单元格数据wsheet.Cells(1,1)="newvalue"2.3其它对象:Range对象可操作一定区域数据,操作方法包括复制、粘贴等。3.数据处理数据处理主要是包括两方面:数据本身和单元格范围处理。3.1数据本身处理a)数据类型(存储占用字节数)Byte(1)Boolean(2)Integer(2)L
5、ong(4)Single(4)Double(8)Currency(8)Decimal(14)Date(8)Object(4)String(10+)Variant(16/22+)Type(自定义)b)数组Dimarr(1To20)AsIntegerc)字符串处理函数回车Chr(13)换行Chr(10)查找与替换:Instr/Replace取子串:Mid/Left/Right去空格:Trim/LTrim/RTrim求长度:Len3.2单元格范围处理3.2.1单元格处理可通过Range对象处理规则区域3.2.2多单元格处理可通过控
6、制流程处理a)if控制流程Ifi<>0ThenMsgBox"YES"ElseIfi>3ThenMsgBox"NO"ElseMsgBox"OK"EndIfb)select控制流程SelectCaseiCase1:MsgBoxiCase2To5:MsgBox2*iCaseElse:MsgBox0EndSelectc)for控制流程Fori=1To10Sum=Sum+iNextiForEachiInarrSum=Sum+iNextiNotes:退出循环用ExitFord)do(while/until)控制流程DoWhilei<10
7、Sum=Sum+iLoopDoSum=Sum+iLoopWhilei<10DoUntili>10Sum=Sum+iLoopDoSum=Sum+iLoopUntili>10Notes:退出循环用ExitDoe)goto控制流程GoToT_OVER…T_OVER:MsgBox"over"4.简洁实例PublicSubget_and_set_cell_value()DimappAsNewApplicationDimwbookAsNewWorkbookDimspathAsStringDimvalueAsStringspath=Thi
8、sWorkbook.PathSetapp=CreateObject("Excel.Application")Setwbook=app.Workbooks.Open(spath&"w1.xls")value=wbook.Worksheets(1).Cells(1,1)MsgBoxvalue
此文档下载收益归作者所有