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

预备知识和操作 在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 + .xls 3 newxls.Visible := True 显示当前窗口 4 newxls.Caption := 应用程序调用 Microsoft Excel 更改 Excel 标题栏 5 newxls.Workbooks.Add 添加新工作簿 6 newxls.Workbooks.Open(C:\Excel\Demo.xls) 打开已存在的工作簿 newxls.Workbooks.Open FileName:=App.Path 备件库存查询 + mydate + .xls 7 newxls.WorkSheets[2].Activate 设置第2个工作表为活动工作表 newxls.WorkSheets[Sheet2].Activate 8 newxls.Cells[1,4].Value := 第一行第四列 给单元格赋值 newsheet.Cells(1, 4) = 备件名称 9 newxls.ActiveSheet.Columns[1].ColumnsWidth := 5设置指定列的宽度单位：字符个数以第一列为例 10 newxls.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米 设置指定行的高度,单位为磅,1磅＝0.035厘米，以第二行为例 11 在第8行之前插入分页符 newxls.WorkSheets[1].Rows[8].PageBreak := 1 在第4列之前删除分页符 newxls.ActiveSheet.Columns[4].PageBreak := 0 12 关键代码 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 Sub 13 关键代码 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 If 14 newxls.ActiveSheet.Range[B3:D4].Borders[2].Weight