Visual Baisc 6.0操作Excel2003-最全使用说明.doc

预备知识和操作 在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号也是不同的。因为EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素。 第一层：Application对象，即Excel本身； 第二层：workbooks对象集，指Excel的工作簿文件 第三层：worksheets对象集，表示的是Excel的一个工作表； 第四层：Cells和Range对象，指向Excel工作表中的单元格。 1从工程菜单中选择引用栏；选择Microsoft Excel 11.0 Object Library（EXCEL2003），然后选择 确定。2关键代码 Dim newxls As Excel.Application Dim newbook As Excel.Workbook Dim newsheet As Excel.Worksheet Set newxls=CreatObject(Excel.Application) Set newbook=newxls.Worksbooks.Add Set newsheet=newbook.Worksheets(1) newxls.Visible = True 这一句很关键，编程语言中show和visible应该还起初始化的作用。 newxls.Workbooks.Open FileName:=App.Path & 备件库存查询 + mydate + .xls3 newxls.Visible := True 显示当前窗口4 newxls.Caption := 应用程序调用 Microsoft Excel 更改 Excel 标题栏5 newxls.Workbooks.Add 添加新工作簿6 newxls.Workbooks.Open(C:ExcelDemo.xls) 打开已存在的工作簿 newxls.Workbooks.Open FileName:=App.Path & 备件库存查询 + mydate + .xls7 newxls.WorkSheets2.Activate 设置第2个工作表为活动工作表 newxls.WorkSheetsSheet2.Activate8 newxls.Cells1,4.Value := 第一行第四列 给单元格赋值 newsheet.Cells(1, 4) = 备件名称9 newxls.ActiveSheet.Columns1.ColumnsWidth := 5设置指定列的宽度单位：字符个数以第一列为例10 newxls.ActiveSheet.Rows2.RowHeight := 1/0.035; / 1厘米 设置指定行的高度,单位为磅,1磅0.035厘米，以第二行为例11 在第8行之前插入分页符 newxls.WorkSheets1.Rows8.PageBreak := 1 在第4列之前删除分页符 newxls.ActiveSheet.Columns4.PageBreak := 012 关键代码 Visual Basic6.0在excel中的range方法 Sub Random() Dim myRange As Range Set myRange = Worksheets(Sheet1).Range(A1:D5) 注意区域Range为二四象限对角线区域 myRange.Formula = =RAND() myRange.Font.Bold = True End Sub13 关键代码 Row = ActiveSheet.Range(A1:A679).Find(1-101).Row如果找不到1-101会崩溃 Dim c As Range Set c=ActiveSheet.Range(A1:A679).Find(1-101) If Not c Is Nothing Then 找到 Set Row=c.Row Else 找不到 加入自已要处理的语句 End If14 newxls.ActiveSheet.RangeB3:D4.Borders2.Weight := 3 指定边框线宽度 1-左 2-右 3-顶 4-底 5-斜( ) 6-斜( / )15 newxls.ActiveSheet.Cells1,4.ClearContents 清除第一行第四列单元格公式16 newxls.ActiveSheet.Rows1.Font.Name := 隶书 设置第一行字体属性： newxls.ActiveSheet.Rows1.Font.Color := clBlue newxls.ActiveSheet.Rows1.Font.Bold := True newxls.ActiveSheet.Rows1.Font.UnderLine := True17 进行页面设置 a.页眉 newxls.ActiveSheet.PageSetup.CenterHeader := 报表演示 b.页脚 newxls.ActiveSheet.PageSetup.CenterFooter := 第&P页 c.页眉到顶端边距2cm： newxls.ActiveSheet.PageSetup.HeaderMargin := 2/0.035 d.页脚到底端边距3cm： newxls.ActiveSheet.PageSetup.HeaderMargin := 3/0.035 e.顶边距2cm： newxls.ActiveSheet.PageSetup.TopMargin := 2/0.035 f.底边距2cm： newxls.ActiveSheet.PageSetup.BottomMargin := 2/0.035 g.左边距2cm： newxls.ActiveSheet.PageSetup.LeftMargin := 2/0.035 h.右边距2cm： newxls.ActiveSheet.PageSetup.RightMargin := 2/0.035 i.页面水平居中： newxls.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035 j.页面垂直居中： newxls.ActiveSheet.PageSetup.CenterVertically := 2/0.035 k.打印单元格网线： newxls.ActiveSheet.PageSetup.PrintGridLines := True 这一条要注意使用18 拷贝操作 a.拷贝整个工作表： newxls.ActiveSheet.Used.Range.Copy b.拷贝指定区域： newxls.ActiveSheet.RangeA1:E2.Copy c.从A1位置开始粘贴： newxls.ActiveSheet.Range.A1.PasteSpecial d.从文件尾部开始粘贴： newxls.ActiveSheet.Range.PasteSpecial19 插入一行或一列 a. newxls.ActiveSheet.Rows2.Insert b. newxls.ActiveSheet.Columns1.Insert20 删除一行或一列 a. newxls.ActiveSheet.Rows2.Delete b. newxls.ActiveSheet.Columns1.Delete21 打印预览工作表 newxls.ActiveSheet.PrintPreview 这一条要注意使用22 打印输出工作表 newxls.ActiveSheet.PrintOut 这一条要注意使用23 工作表保存 If not newxls.ActiveWorkBook.Saved then newxls.ActiveSheet.PrintPreview End if24 工作表另存为 newxls.SaveAs(C:ExcelDemo1.xls)25 存盘 ExcelID.ActiveWorkBook.Saved := True26 关闭工作簿 ExcelID.WorkBooks.Close27 退出 Excel ExcelID.Quit28 设置工作表密码 ExcelID.ActiveSheet.Protect 123, DrawingObjects:=True, Contents:=True, Scenarios:=True 29 EXCEL的显示方式为最大化 ExcelID.Application.WindowState = xlMaximized 30 工作薄显示方式为最大化 ExcelID.ActiveWindow.WindowState = xlMaximized31 设置打开默认工作薄数量 ExcelID.SheetsInNewWorkbook = 332 关闭时是否提示保存(true 保存；false 不保存) ExcelID.DisplayAlerts = False33 设置拆分窗口,及固定行位置 ExcelID.ActiveWindow.SplitRow = 1 ExcelID.ActiveWindow.FreezePanes = True34 设置打印时固定打印内容 ExcelID.ActiveSheet.PageSetup.PrintTitleRows = $1:$135 设置打印标题 ExcelID.ActiveSheet.PageSetup.PrintTitleColumns = 36 设置显示方式(分页方式显示) ExcelID.ActiveWindow.View = xlPageBreakPreview37 设置显示比例 ExcelID.ActiveWindow.Zoom = 10038 让Excel 响应 DDE 请求 Ex.Application.IgnoreRemoteRequests = False编程例子用VB操作EXCELPrivate Sub Command3_Click() On Error GoTo err1 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(1).Name = book2 修改工作薄名称 objExl.Sheets(book2).Select 选中工作薄 For i = 1 To 50 循环写入数据 For j = 1 To 5 If i = 1 Then objExl.Selection.NumberFormatLocal = 设置格式为文本 objExl.Cells(i, j) = E & i & j Else objExl.Cells(i, j) = i & j End If Next Next objExl.Rows(1:1).Select 选中第一行 objExl.Selection.Font.Bold = True 设为粗体 objExl.Selection.Font.Size = 24 设置字体大小 objExl.Cells.EntireColumn.AutoFit 自动调整列宽 objExl.ActiveWindow.SplitRow = 1 拆分第一行 objExl.ActiveWindow.SplitColumn = 7 拆分前七列 objExl.ActiveWindow.FreezePanes = True 固定拆分 objExl.ActiveSheet.PageSetup.PrintTitleRows = $1:$1 设置打印固定行 objExl.ActiveSheet.PageSetup.PrintTitleColumns = 打印标题 objExl.ActiveSheet.PageSetup.RightFooter = 打印时间: & _ Format(Now, yyyy年mm月dd日 hh:MM:ss) objExl.ActiveWindow.View = xlPageBreakPreview 设置显示方式 objExl.ActiveWindow.Zoom = 100 设置显示大小 objExl.ActiveSheet.Protect 123, DrawingObjects:=True, _ Contents:=True, Scenarios:=True objExl.Application.IgnoreRemoteRequests = False objExl.Visible = True 使EXCEL可见 objExl.Application.WindowState = xlMaximized EXCEL的显示方式为最大化 objExl.ActiveWindow.WindowState = xlMaximized 工作