VBS连接EXCEL及其操作VIP免费

V BS 连接EX CEL 及其及其操作操作 (一) 使用动态创建的方法 首先创建 Ex cel 对象，使用 ComObj: oEx cel = CreateObject( "Ex cel.Application" ) 1) 显示当前窗口： oEx cel.Visible = Tru e 2) 更改 Ex cel 标题栏： oEx cel.Caption = "应用程序调用 Microsoft Ex cel" 3) 添加新工作簿： oEx cel.WorkBooks.Add 4) 打开已存在的工作簿： oEx cel.WorkBooks.Open( "C:\Ex cel\Demo.x ls" ) 5) 设置第 2 个工作表为活动工作表： oEx cel.WorkSheets(2).Activ ate 或 oEx cel.WorksSheets( "Sheet2" ).Activ ate 6) 给单元格赋值： oEx cel.Cells(1,4).Valu e = "第一行第四列" 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： o...