VBS连接EXCEL及其操作.pdfVIP

VBS 连接连接EXCEL 及其及其操作操作 连接连接 及其及其操作操作 (一) 使用动态创建的方法 首先创建 Excel 对象，使用ComObj: oExcel = CreateObject( Excel.Application ) 1) 显示当前窗口： oExcel.Visible = True 2) 更改 Excel 标题栏： oExcel.Caption = 应用程序调用 Microsoft Excel 3) 添加新工作簿： oExcel.WorkBooks.Add 4) 打开已存在的工作簿： oExcel.WorkBooks.Open( C:\Excel\Demo.xls ) 5) 设置第2 个工作表为活动工作表： oExcel.WorkSheets(2).Activate 或 oExcel.WorksSheets( Sheet2 ).Activate 6) 给单元格赋值： oExcel.Cells(1,4).Value = 第一行第四列 7) 设置指定列的宽度 （单位：字符个数），以第一列为例： oExcel.ActiveSheet.Columns(1).ColumnsWidth = 5 8) 设置指定行的高度 （单位：磅）（1 磅＝0.035 厘米），以第二行为例： oExcel.ActiveSheet.Rows(2).RowHeight = 1/0.035 1 厘米 9) 在第8 行之前插入分页符： oExcel.WorkSheets(1).Rows(8).PageBreak = 1 10) 在第8 列之前删除分页符： oExcel.ActiveSheet.Columns(4).PageBreak = 0 11) 指定边框线宽度： oExcel.ActiveSheet.Range( B3:D4 ).Borders(2).Weight = 3 1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / ) 12) 清除第一行第四列单元格公式： oExcel.ActiveSheet.Cells(1,4).ClearContents 13) 设置第一行字体属性： oExcel.ActiveSheet.Rows(1).Font.Name = 隶书 oExcel.ActiveSheet.Rows(1).Font.Color = clBlue oExcel.ActiveSheet.Rows(1).Font.Bold = True oExcel.ActiveSheet.Rows(1).Font.UnderLine = True 14) 进行页面设置： a.页眉： oExcel.ActiveSheet.PageSetup.CenterHeader = 报表演示 b.页脚： oExcel.ActiveSheet.PageSetup.CenterFooter = 第P 页 c.页眉到顶端边距2cm： oExcel.ActiveSheet.PageSetup.HeaderMargin = 2/0.035 d.页脚到底端边距3cm： oExcel.ActiveSheet.PageSetup.HeaderMargin = 3/0.035 e.顶边距2cm ： oExcel.ActiveSheet.PageSetup.TopMargin = 2/0.035 f.底边距2cm ： oExcel.ActiveSheet.PageSetup.BottomMargin = 2/0.035 g.左边距2cm ： oExcel.ActiveSheet.PageSetup.LeftMargin = 2/0.035 h.右边距2cm ： oExcel.ActiveSheet.PageSetup.RightMargin = 2/0.035 i.页面水平居中： oExcel.ActiveSheet.PageSetup.CenterHorizontally = 2/0.035 j. 页面垂直居中： oExcel.ActiveSheet.PageSetup.CenterVertically = 2/0.035 k.打印单元格网线： oExcel.ActiveSheet.PageSetup.PrintGridLines = True 15) 拷贝操作： a.拷贝整个工作表： oExcel.Active