《vba数据处理全流程宝典》由会员分享，可在线阅读，更多相关《vba数据处理全流程宝典（3页珍藏版）》请在金锄头文库上搜索。
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 对象：对象：
2、 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) 指向指向 w
3、orksheet 对象：对象： 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
4、 模块内直接用 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 对象可操作一定区域数据，操作方法包括复制、粘贴等。
5、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/Rep
6、lace 取子串：Mid/Left/Right 去空格：Trim/LTrim/RTrim 求长度：Len 3.2 单元格范围处理单元格范围处理 3.2.1 单元格处理可通过 Range 对象处理规则区域 3.2.2 多单元格处理可通过控制流程处理 a)if 控制流程 If i 3 Then MsgBox “NO“ Else MsgBox “OK“ End If b)select 控制流程 Select Case i Case 1: MsgBox i Case 2 To 5: MsgBox 2 * i Case Else: MsgBox 0 End Select c)for 控制流程 For i
7、 = 1 To 10 Sum = Sum + i Next i For Each i In arr Sum = Sum + i Next i Notes：退出循环用 Exit For d)do(while/until)控制流程 Do While i 10 Sum = Sum + i Loop Do Sum = Sum + i Loop Until i 10 Notes：退出循环用 Exit Do e)goto 控制流程 GoTo T_OVER T_OVER: MsgBox “over“ 4. 简洁实例简洁实例 Public Sub get_and_set_cell_value() Dim ap
8、p As New Application Dim wbook As New Workbook Dim spath As String Dim value As String spath = ThisWorkbook.Path Set app = CreateObject(“Excel.Application“) Set wbook = app.Workbooks.Open(spath & “w1.xls“) value = wbook.Worksheets(1).Cells(1, 1) MsgBox value wbook .wbook.Worksheets(1).Cells(1, 1) = “New Value” wbook.Close End Sub
