打开excel及新建工作薄
\'\' 2. Method
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'
\' 2.1 CreateObject Method
\' 语法：CreateObject(appname.objectType, [servename])
\' 解释：appname, 必要， Variant(字符串)。提供该对象的应用程序名。
\' objecttype, 必要，Variant。带创建对象的类型或是类。
\' servename，可选，Variant。要在其上创建对象的网络服务器名称。
\'
\' 说明：要创建ActiveX对象，只需将CreateObject返回的对象赋给一个对象变量：
\' 例子：Set oExcel = CreateObject("Excel.Application")
\' 声明一个对象变量，并使用动态创建方法创建该对象
Dim oExcel
Set oExcel = CreateObject("Excel.Application")
\' 1) 使Excel可见
oExcel.Visible = true
\' 2) 更改Excel标题栏
oExcel.caption = "qyx\'s vbs"
\' 3) 添加一个新的工作薄
oExcel.workBooks.add
\' 4) 打开已存在的工作薄
\' oExcel.workbooks.open("d:\temp.xlsx")
\' 5) 设置第2个工作页为活动工作表
oExcel.worksheets(2).activate
\' 或者
\' oExcel.worksheets("Sheet2").activate
单元格赋值及基本操作
\' 6) 给单元格赋值
oExcel.cells(1,1).value = "This is column A, row 1"
\' 7) 设置指定行的高度（单位：磅, 0.035cm）
oExcel.activeSheet.rows(2).rowHeight = 1/0.035 \' 1cm
\' 8) 设置指定列的宽度（单位：字符个数）
oExcel.activeSheet.columns(1).columnWidth = 5
\' 9) 在第8行之前插入分页符
oExcel.worksheets(1).rows(8).pagebreak = 1
\' 10) 在第8列之前删除分页符
oExcel.worksheets(1).columns(8).pagebreak = 0
\' 11) 指定边框线宽度
\' 说明：1-左 2-右 3-顶 4-底 5-\ 6-/
oExcel.activeSheet.range("B3:D4").borders(5).weight = 3
\' 12) 清除第1行第4列单元格公式
oExcel.activeSheet.cells(1,4).clearcontents
\' oExcel.activeSheet.cells(1,4).value = ""
\' 13) 设置第一行字体属性
oExcel.activeSheet.rows(1).font.name = "黑体"
oExcel.activesheet.rows(1).font.color = vbRed
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.footerMargin = 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.centerVertically = 2/0.035
\' k) 打印单元格网线
oExcel.activeSheet.pageSetup.printGridLines = true
拷贝及粘贴操作
\' 15) 拷贝与粘贴操作
\' a) 拷贝整个工作表
\' oExcel.activeSheet.copy \' 未测试
\' b) 拷贝指定区域
oExcel.activeSheet.range("A1:E2").copy
\' c) 从A1位置开始粘贴
oExcel.activeSheet.range("A1").pasteSpecial
\' d) 从文件尾部开始粘贴
\' oExcel.activeSheet.range.pasteSpecial \'未测试
\' 16) 插入一行或一列
oExcel.activeSheet.rows(2).insert
oExcel.activeSheet.columns(1).insert
\' 17) 删除一行或一列
oExcel.activeSheet.rows(2).delete
oExcel.activeSheet.columns(1).delete
打印及预览
\' 18) 打印预览工作表
oExcel.activeSheet.printPreview
\' 19) 打印输出工作表
oExcel.activeSheet.printOut
保存及退出
\' 20) 工作表保存
oExcel.activeWorkBook.saveAs "d:\te.xls", 56
\' 21) 关闭退出
\' 关闭工作薄
oExcel.activeWorkBook.close
\' 使用应用程序对象的quit方法关闭Excel
oExcel.Quit
\' 释放该对象变量
Set oExcel = Nothing