VBA数据处理全流程宝典.pdf

《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