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

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 对象： Dim app As New Application Set app = CreateObject(Excel.Application) c) 打开workbook 对象： Dim wbook As New Workbook Set wbook = app.Workbooks.Open(c:\w1.xls) 其中当前路径可通过ThisWorkbook 对象属性获取： Dim spath As String spath = ThisWorkbook.Path Set wbook = app.Workbooks.Open(spath \w1.xls) d) 指向worksheet 对象： Dim wsheet As New Worksheet Set wsheet = wbook.Worksheets(1) 或 Set wsheet = wbook.Worksheets(“Sheet1”) e) 指向单元格对象： wsheet.Cells(1,1) 即Cells(row, col) 1.2 当前workbook ： 定位当前workbook 的单元格可通过如下对象直接指示： a) ThisWorkbook 对象 b) 在ThisWorkbook 模块内直接用Me 对象指向workbook c) 在worksheet 模块内直接用Me 对象指向worksheet 1.3 Notes ： 如果操作了其它xls 文件的数据，请及时关闭workbook wbook.Close 2 ．操作单元格 定位：Set wsheet = wbook.Worksheets(“Sheet1”) 2.1 读取单元数据 Dim value As String value = wsheet.Cells(1, 1) 2.2 写入单元格数据 wsheet.Cells(1, 1) = new value 2.3 其它对象：Range 对象可操作一定区域数据，操作方法包括复制、粘贴等。 3 ．数据处理 数据处理主要是包括两方面：数据本身和单元格范围处理。 3.1 数据本身处理 a)数据类型(存储占用字节数) Byte(1) Boolean(2) Integer(2) Long(4) Single(4) Double(8) Currency(8) Decimal(14) Date(8) Object(4) String(10+) Variant(16/22+) Type( 自定义） b)数组 Dim arr(1 To 20) As Integer c)字符串处理函数 回车Chr(13) 换行 Chr(10) 查找与替换：Instr/Replace 取子串：Mid/Left/Right 去空格：Trim/LTrim/RTrim 求长度：Len 3.2 单元格范围处理 3.2.1 单元格处理可通过Range 对象处理规则区域 3.2.2 多单元格处理可通过控制流程处理 a)if 控制流程 If i 0 Then