用VB操作excel方法汇总

VB 控制 EXCEL 第 1 页 共 20 页 用 VB操作 excel方法汇总 Private Sub Command3 Click Dim i As Long Dim j As Long Dim objExl As Excel Application 声明对象变量 Me MousePointer 11 改变鼠标样式 Set objExl New Excel Application 初始化对象变量 objExl SheetsInNewWorkbook 1 将新建的工作薄数量设为 1 objExl Workbooks Add 增加一个工作薄 objExl Sheets objExl Sheets Count Name book1 修改工作薄名称 objExl Sheets Add objExl Sheets book1 增加第二个工作薄在第一个之后 objExl Sheets objExl Sheets Count Name book2 objExl Sheets Add objExl Sheets book2 增加第三个工作薄在第二个之后 objExl Sheets objExl Sheets Count Name book3 objExl Sheets book1 Select 选中工作薄 For i 1 To 50 循环写入数据 For j 1 To 5 If i 1 Then objExl Selection NumberFormatLocal 设置格式为文本 objExl Cells i j E 2 更改 Excel 标题栏 ExcelID Caption 应用程序调用 Microsoft Excel 3 添加新工作簿 ExcelID WorkBooks Add 4 打开已存在的工作簿 ExcelID WorkBooks Open C Excel Demo xls 5 设置第 2个工作表为活动工作表 ExcelID WorkSheets 2 Activate 或 ExcelID WorkSheets Sheet2 Activate 6 给单元格赋值 ExcelID Cells 1 4 Value 第一行第四列 7 设置指定列的宽度 单位 字符个数 以第一列为例 ExcelID ActiveSheet Columns 1 ColumnsWidth 5 8 设置指定行的高度 单位 磅 1 磅 0 035 厘米 以第二行为例 ExcelID ActiveSheet Rows 2 RowHeight 1 0 035 1厘米 9 在第 8行之前插入分页符 ExcelID WorkSheets 1 Rows 8 PageBreak 1 10 在第 8列之前删除分页符 ExcelID ActiveSheet Columns 4 PageBreak 0 11 指定边框线宽度 ExcelID ActiveSheet Range B3 D4 Borders 2 Weight 3 1 左 2 右 3 顶 4 底 5 斜 6 斜 12 清除第一行第四列单元格公式 ExcelID ActiveSheet Cells 1 4 ClearContents 13 设置第一行字体属性 ExcelID ActiveSheet Rows 1 Font Name 隶书 VB 控制 EXCEL 第 3 页 共 20 页 ExcelID ActiveSheet Rows 1 Font Color clBlue ExcelID ActiveSheet Rows 1 Font Bold True ExcelID ActiveSheet Rows 1 Font UnderLine True 14 进行页面设置 a 页眉 ExcelID ActiveSheet PageSetup CenterHeader 报表演示 b 页脚 ExcelID ActiveSheet PageSetup CenterFooter 第 c 页眉到顶端边距 2cm ExcelID ActiveSheet PageSetup HeaderMargin 2 0 035 d 页脚到底端边距 3cm ExcelID ActiveSheet PageSetup HeaderMargin 3 0 035 e 顶边距 2cm ExcelID ActiveSheet PageSetup TopMargin 2 0 035 f 底边距 2cm ExcelID ActiveSheet PageSetup BottomMargin 2 0 035 g 左边距 2cm ExcelID ActiveSheet PageSetup LeftMargin 2 0 035 h 右边距 2cm ExcelID ActiveSheet PageSetup RightMargin 2 0 035 i 页面水平居中 ExcelID ActiveSheet PageSetup CenterHorizontally 2 0 035 j 页面垂直居中 ExcelID ActiveSheet PageSetup CenterVertically 2 0 035 k 打印单元格网线 ExcelID ActiveSheet PageSetup PrintGridLines True 15 拷贝操作 a 拷贝整个工作表 ExcelID ActiveSheet Used Range Copy b 拷贝指定区域 ExcelID ActiveSheet Range A1 E2 Copy c 从 A1位置开始粘贴 ExcelID ActiveSheet Range A1 PasteSpecial d 从文件尾部开始粘贴 ExcelID ActiveSheet Range PasteSpecial 16 插入一行或一列 a ExcelID ActiveSheet Rows 2 Insert b ExcelID ActiveSheet Columns 1 Insert 17 删除一行或一列 a ExcelID ActiveSheet Rows 2 Delete b ExcelID ActiveSheet Columns 1 Delete 18 打印预览工作表 ExcelID ActiveSheet PrintPreview 19 打印输出工作表 ExcelID ActiveSheet PrintOut 20 工作表保存 If not ExcelID ActiveWorkBook Saved then ExcelID ActiveSheet PrintPreview End if 21 工作表另存为 ExcelID ActiveWorkbook SaveAs FileName C Excel Demo1 xls 22 放弃存盘 ExcelID ActiveWorkBook Saved True VB 控制 EXCEL 第 4 页 共 20 页 23 关闭工作簿 ExcelID WorkBooks Close 24 退出 Excel ExcelID Quit 25 设置工作表密码 ExcelID ActiveSheet Protect 123 DrawingObjects True Contents True Scenarios True 26 EXCEL的显示方式为最大化 ExcelID Application WindowState xlMaximized 27 工作薄显示方式为最大化 ExcelID ActiveWindow WindowState xlMaximized 28 设置打开默认工作薄数量 ExcelID SheetsInNewWorkbook 3 29 关闭时是否提示保存 true 保存 false 不保存 ExcelID DisplayAlerts False 30 设置拆分窗口 及固定行位置 ExcelID ActiveWindow SplitRow 1 ExcelID ActiveWindow FreezePanes True 31 设置打印时固定打印内容 ExcelID ActiveSheet PageSetup PrintTitleRows 1 1 32 设置打印标题 ExcelID ActiveSheet PageSetup PrintTitleColumns 33 设置显示方式 分页方式显示 ExcelID ActiveWindow View xlPageBreakPreview 34 设置显示比例 ExcelID ActiveWindow Zoom 100 Excel 语句集 300 定制模块行为 1 Option Explicit 强制对模块内所有变量进行声明 Option Private Module 标记模块为私有 仅对同一工程中其它模块有用 在宏对话框中不 显示 Option Compare Text 字符串不区分大小写 Option Base 1 指定数组的第一个下标为 1 2 On Error Resume Next 忽略错误继续执行 VBA代码 避免出现错误消息 3 On Error GoTo ErrorHandler 当错误发生时跳转到过程中的某个位置 4 On Error GoTo 0 恢复正常的错误提示 VB 控制 EXCEL 第 5 页 共 20 页 5 Application DisplayAlerts False 在程序执行过程中使出现的警告框不显示 6 Application ScreenUpdating False 关闭屏幕刷新 Application ScreenUpdating True 打开屏幕刷新 7 Application Enable CancelKey xlDisabled 禁用 Ctrl Break中止宏运行的功能 工作簿 8 Workbooks Add 创建一个新的工作簿 9 Workbooks book1 xls Activate 激活名为 book1的工作簿 10 ThisWorkbook Save 保存工作簿 11 ThisWorkbook close 关闭当前工作簿 12 ActiveWorkbook Sheets Count 获取活动工作薄中工作表数 13 ActiveWorkbook name 返回活动工作薄的名称 14 ThisWorkbook Name 返回当前工作簿名称 ThisWorkbook FullName 返回当前工作簿路径和名称 15 ActiveWindow EnableResize False 禁止调整活动工作簿的大小 16 Application Window Arrange xlArrangeStyleTiled 将工作簿以平铺方式排列 17 ActiveWorkbook WindowState xlMaximized 将当前工作簿最大化 工作表 18 ActiveSheet UsedRange Rows Count 当前工作表中已使用的行数 19 Rows Count 获取工作表的行数 注 考虑向前兼容性 20 Sheets Sheet1 Name Sum 将 Sheet1命名为 Sum 21 ThisWorkbook Sheets Add Before Worksheets 1 添加一个新工作表在第一工作表前 22 ActiveSheet Move After ActiveWorkbook Sheets ActiveWorkbook Sheets Count 将当前工作表移至工作表的最后 23 Worksheets Array sheet1 sheet2 Select 同时选择工作表 1和工作表 2 24 Sheets sheet1 Delete或 Sheets 1 Delete 删除工作表 1 25 ActiveWorkbook Sheets i Name 获取工作表 i的名称 26 ActiveWindow DisplayGridlines Not ActiveWindow DisplayGridlines 切换工作表中 的网格线显示 这种方法也可以用在其它方面进行相互切换 即相当于开关按钮 27 ActiveWindow DisplayHeadings Not ActiveWindow DisplayHeadings 切换工作表中 的行列边框显示 28 ActiveSheet UsedRange FormatConditions Delete 删除当前工作表中所有的条件格 式 29 Cells Hyperlinks Delete 取消当前工作表所有超链接 30 ActiveSheet PageSetup Orientation xlLandscape 或 ActiveSheet PageSetup Orientation 2 将页面设置更改为横向 31 ActiveSheet PageSetup RightFooter ActiveWorkbook FullName 在页面设置的表尾 中输入文件路径 ActiveSheet PageSetup LeftFooter Application UserName 将用户名放置在活动工作表的 页脚 单元格 单元格区域 32 ActiveCell CurrentRegion Select 或 Range ActiveCell End xlUp ActiveCell End xlDown Select 选择当前活动单元格所包含的范围 上下左右无空行 33 Cells Select 选定当前工作表的所有单元格 34 Range A1 ClearContents 清除活动工作表上单元格 A1中的内容 VB 控制 EXCEL 第 6 页 共 20 页 Selection ClearContents 清除选定区域内容 Range A1 D4 Clear 彻底清除 A1至 D4单元格区域的内容 包括格式 35 Cells Clear 清除工作表中所有单元格的内容 36 ActiveCell Offset 1 0 Select 活动单元格下移一行 同理 可下移一列 37 Range A1 Offset ColumnOffset 1 或 Range A1 Offset 1 偏移一列 Range A1 Offset Rowoffset 1 或 Range A1 Offset 1 向上偏移一行 38 Range A1 Copy Range B1 复制单元格 A1 粘贴到单元格 B1中 Range A1 D8 Copy Range F1 将单元格区域复制到单元格 F1开始的区域中 Range A1 D8 Cut Range F1 剪切单元格区域 A1至 D8 复制到单元格 F1开始的区 域中 Range A1 CurrentRegion Copy Sheets Sheet2 Range A1 复制包含 A1的单 元格区域到工作表 2中以 A1起始的单元格区域中 注 CurrentRegion 属性等价于定位命令 由一个矩形单元格块组成 周围是一个或多个空行 或列 39 ActiveWindow RangeSelection Value XX 将值 XX输入到所选单元格区域中 40 ActiveWindow RangeSelection Count 活动窗口中选择的单元格数 41 Selection Count 当前选中区域的单元格数 42 GetAddress Replace Hyperlinkcell Hyperlinks 1 Address mailto 返回单 元格中超级链接的地址并赋值 43 TextColor Range A1 Font ColorIndex 检查单元格 A1的文本颜色并返回颜色索 引 Range A1 Interior ColorIndex 获取单元格 A1背景色 44 cells count 返回当前工作表的单元格数 45 Selection Range E4 Select 激活当前活动单元格下方 3行 向右 4列的单元格 46 Cells Item 5 C 引单元格 C5 Cells Item 5 3 引单元格 C5 47 Range A1 Offset RowOffset 4 ColumnOffset 5 或 Range A1 Offset 4 5 指定单元格 F5 48 Range B3 Resize RowSize 11 ColumnSize 3 Rnage B3 Resize 11 3 创建 B3 D13 区域 49 Range Data Resize 2 将 Data区域扩充 2列 50 Union Range Data1 Range Data2 将 Data1和 Data2区域连接 51 Intersect Range Data1 Range Data2 返回 Data1和 Data2区域的交叉区 域 52 Range Data Count 单元格区域 Data中的单元格数 Range Data Columns Count 单元格区域 Data中的列数 Range Data Rows Count 单元格区域 Data中的行数 53 Selection Columns Count 当前选中的单元格区域中的列数 Selection Rows Count 当前选中的单元格区域中的行数 54 Selection Areas Count 选中的单元格区域所包含的区域数 55 ActiveSheet UsedRange Row 获取单元格区域中使用的第一行的行号 56 Rng Column 获取单元格区域 Rng左上角单元格所在列编号 57 ActiveSheet Cells SpecialCells xlCellTypeAllFormatConditions 在活动工作表 中返回所有符合条件格式设置的区域 58 Range A1 AutoFilter Field 3 VisibleDropDown False 关闭由于执行自动筛 选命令产生的第 3个字段的下拉列表 名称 VB 控制 EXCEL 第 7 页 共 20 页 59 Range A1 C3 Name computer 命名 A1 C3 区域为 computer 或 Range D1 E6 Name Sheet1 book 命名局部变量 即 Sheet1上区域 D1 E6 为 book 或 Names computer Name robot 将区域 computer重命名为 robot 60 Names book Delete 删除名称 61 Names Add Name ContentList RefersTo OFFSET Sheet1 A2 0 0 COUNTA Sheet2 A A 动态命名列 62 Names Add Name Company RefersTo CompanyCar 命名字符串 CompanyCar 63 Names Add Name Total RefersTo 123456 将数字 123456命名为 Total 注意数 字不能加引号 否则就是命名字符串了 64 Names Add Name MyArray RefersTo ArrayNum 将数组 ArrayNum命名为 MyArray 65 Names Add Name ProduceNum RefersTo B 1 Visible False 将名称隐 藏 66 ActiveWorkbook Names Com Name 返回名称字符串 公式与函数 67 Application WorksheetFunction IsNumber A1 使用工作表函数检查 A1单元格中 的数据是否为数字 68 Range A A Find Application WorksheetFunction Max Range A A Activate 激活单元格区域 A列中最大值的单元格 69 Cells 8 8 FormulaArray SUM R2C 1 R 1 C 1 R2C R 1 C 在单元格中 输入数组公式 注意必须使用 R1C1样式的表达式 图表 70 ActiveSheet ChartObjects Count 获取当前工作表中图表的个数 71 ActiveSheet ChartObjects Chart1 Select 选中当前工作表中图表 Chart1 72 ActiveSheet ChartObjects Chart1 Activate ActiveChart ChartArea Select 选中当前图表区域 73 WorkSheets Sheet1 ChartObjects Chart2 Chart ChartArea Interior ColorIndex 2 更改工作表中图表的图表区的颜色 74 Sheets Chart2 ChartArea Interior ColorIndex 2 更改图表工作表中图表区的 颜色 75 Charts Add 添加新的图表工作表 76 ActiveChart SetSourceData Source Sheets Sheet1 Range A1 D5 PlotBy xlColumns 指定图表数据源并按列排列 77 ActiveChart Location Where xlLocationAsNewSheet 新图表作为新图表工作表 78 ActiveChart PlotArea Interior ColorIndex xlNone 将绘图区颜色变为白色 79 WorkSheets Sheet1 ChartObjects 1 Chart Export FileName C MyChart gif FilterName GIF 将图表 1导出到 C盘上并命 名为 MyChart gif 窗体 80 MsgBox Hello 消息框中显示消息 Hello 81 Ans MsgBox Continue vbYesNo 在消息框中点击 是 按钮 则 Ans值为 vbYes 点击 否 按钮 则 Ans值为 vbNo If MsgBox Continue vbYesNo vbYes Then Exit Sub 返回值不为 是 则退出 VB 控制 EXCEL 第 8 页 共 20 页 82 Config vbYesNo vbQuestion vbDefaultButton2 使用常量的组合 赋值组 Config变量 并设置第二个按钮为缺省按钮 83 MsgBox This is the first line 红色 0 000 将当前单元格数字格式设 置为带 3位小数 若为负数则显示为红色 263 IsEmpty ActiveCell Value 判断活动单元格中是否有值 264 ActiveCell Value LTrim ActiveCell Value 删除字符串前面的空白字符 VB 控制 EXCEL 第 18 页 共 20 页 265 Len ActiveCell Value 获取活动单元格中字符串的个数 266 ActiveCell Value UCase ActiveCell Value 将当前单元格中的字符转换成大写 267 ActiveCell Value StrConv ActiveCell Value vbLowerCase 将活动单元格中的 字符串转换成小写 268 ActiveSheet Range C1 AddComment 在当前工作表的单元格 C1中添加批注 269 Weekday Date 获取今天的星期 以数值表示 1 7 分别对应星期日至星期六 270 ActiveSheet Range A1 AutoFill Range Cells 1 1 Cells 10 1 将单元格 A1的数值填充到单元格 A1至 A10区域中 271 DatePart y Date 获取今天在全年中的天数 272 ActiveCell Value DateAdd yyyy 2 Date 获取两年后的今天的日期 273 MsgBox WeekdayName Weekday Date 获取今天的星期数 274 ActiveCell Value Year Date 在当前单元格中输入今年的年份数 ActiveCell Value Month Date 在当前单元格中输入今天所在的月份数 ActiveCell Value Day Date 在当前单元格中输入今天的日期数 275 ActiveCell Value MonthName 1 在当前单元格中显示月份的名称 本句为显示 一 月 276 ActiveCell Value Hour Time 在当前单元格中显示现在时间的小时数 ActiveCell Value Minute Time 在当前单元格中显示现在时间的分钟数 ActiveCell Value Second Time 在当前单元格中显示现在时间的秒数 277 ActiveSheet Shapes 1 Delete 删除当前工作表中的第一个形状 278 ActiveSheet Shapes Count 获取当前工作表中形状的数量 279 ActiveSheet Shapes 1 TextEffect ToggleVerticalText 改变当前工作表中第一个 艺术字的方向 280 ActiveSheet Shapes 1 TextEffect FontItalic True 将当前工作表中第一个艺术 字的字体设置为斜体 281 ActiveSheet Shapes AddTextEffect msoTextEffect21 三峡 VB 控制 EXCEL 第 19 页 共 20 页 Arial Black 22 msoFalse msoFalse 66 80 Select 在当前工作表中创建一个名 为 三峡 的艺术字并对其进行格式设置和选中 282 ActiveSheet Shapes AddLine BeginX 10 BeginY 10 EndX 250 EndY 100 Select 在当前工作表中以 10 10 为起点 250 100 为终点画一条直线并选中 283 ActiveSheet Shapes AddShape Type msoShapeRightTriangle Left 70 Top 40 Width 130 Height 72 Select 在当前工作表中画一个左上角在 70 40 宽为 130高为 72的三角形并选中 284 ActiveSheet Shapes AddShape Type msoShapeRectangle Left 70 Top 40 Width 130 Height 72 Select 在当前工作表中画一个以点 70 40 为起点 宽 130高 72的矩形并选中 285 ActiveSheet Shapes AddShape Type msoShapeOval Left 70 Top 40 Width 130 Height 72 Select 在当前工作表中画一个左上角在 70 40 宽为 130高为 72的椭圆 286 ActiveSheet Shapes 1 Line ForeColor RGB RGB 0 0 255 将当前工作表中第 一个形状的线条颜色变为蓝色 287 ActiveSheet Shapes 2 Fill ForeColor RGB RGB 255 0 0 将当前工作表中第 2个形状的前景色设置为红色 288 ActiveSheet Shapes 1 Rotation 20 将当前工作表中的第 1个形状旋转 20度 289 Selection ShapeRange Flip msoFlipHorizontal 将当前选中的形状水平翻转 Selection ShapeRange Flip msoFlipVertical 将当前选中的形状垂直翻转 290 Selection ShapeRange ThreeD SetThreeDFormat msoThreeD1 将所选取的形状设置为 第 1种立体样式 291 ActiveSheet Shapes 1 ThreeD Depth 20 将当前工作表中第一个立体形状的深度 设置为 20 292 ActiveSheet Shapes 1 ThreeD ExtrusionColor RGB RGB 0 0 255 将当前工作 表中第 1个立体形状的进深部分的颜色设为蓝色 293 ActiveSheet Shapes 1 ThreeD RotationX 60 将当前工作表中的第 1个立体形状 沿 X轴旋转 60度 ActiveSheet Shapes 1 ThreeD RotationY 60 将当前工作表中的第 1个立体形状沿 Y轴 旋转 60度 VB 控制 EXCEL 第 20 页 共 20 页 294 Selection ShapeRange ThreeD Visible msoFalse 将所选择的立体形状转换为平面 形状 295 Selection ShapeRange ConnectorFormat BeginDisconnect 在形状中让指定的连接符 起点脱离原来所连接的形状 296 ActiveSheet Shapes 1 PickUp 复制当前工作表中形状 1的格式 297 ActiveSheet Shapes AddTextbox msoTextOrientationHorizontal 260 160 180 30 TextFrame Characters Text 在工作簿中新建一个文 本框并输入内容 298 ActiveSheet Shapes AddLabel msoTextOrientationHorizontal 20 80 100 200 TextFrame Characters Text 在当前工作表中建立一个水平 文本框并输入内容 299 ActiveSheet Shapes AddPicture d sx jpg True True 60 20 400 300 在 当前工作表中插入一张 d盘中名为 sx的图片 300 ActiveChart ApplyCustomType xl3DArea 将当前图表类型改为三维面积图