打开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().activate
' 或者
' oExcel.worksheets("Sheet2").activate

单元格赋值及基本操作

' 6) 给单元格赋值
oExcel.cells(,).value = "This is column A, row 1" ' 7) 设置指定行的高度(单位:磅, 0.035cm)
oExcel.activeSheet.rows().rowHeight = /0.035 ' 1cm ' 8) 设置指定列的宽度(单位:字符个数)
oExcel.activeSheet.columns().columnWidth = ' 9) 在第8行之前插入分页符
oExcel.worksheets().rows().pagebreak = ' 10) 在第8列之前删除分页符
oExcel.worksheets().columns().pagebreak = ' 11) 指定边框线宽度
' 说明:1-左 2-右 3-顶 4-底 5-\ 6-/
oExcel.activeSheet.range("B3:D4").borders().weight = ' 12) 清除第1行第4列单元格公式
oExcel.activeSheet.cells(,).clearcontents
' oExcel.activeSheet.cells(1,4).value = "" ' 13) 设置第一行字体属性
oExcel.activeSheet.rows().font.name = "黑体"
oExcel.activesheet.rows().font.color = vbRed
oExcel.activeSheet.rows().font.bold = true
oExcel.activesheet.rows().font.underLine = true

页面设置

' 14) 页面设置
' a) 页眉
oExcel.activeSheet.pageSetup.centerHeader = "报表演示" ' b) 页脚
oExcel.activeSheet.pageSetup.centerFooter = "第&P页" ' c) 页眉到顶端边距2cm
oExcel.activeSheet.pageSetup.headerMargin = /0.035 ' d) 页脚到底端边距3cm
oExcel.activeSheet.pageSetup.footerMargin = /0.035 ' e) 顶边距2cm
oExcel.activeSheet.pageSetup.topMargin = /0.035 ' f) 底边距2cm
oExcel.activeSheet.pageSetup.bottomMargin = /0.035 ' g) 左边距2cm
oExcel.activeSheet.pageSetup.leftMargin = /0.035 ' h) 右边距2cm
oExcel.activeSheet.pageSetup.rightMargin = /0.035 ' i) 页眉水平居中
oExcel.activeSheet.pageSetup.centerVertically = /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().insert
oExcel.activeSheet.columns().insert ' 17) 删除一行或一列
oExcel.activeSheet.rows().delete
oExcel.activeSheet.columns().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

vbs 之 excel 使用VBScript 操作excel的更多相关文章

  1. NET平台下的Excel编程|C#操作Excel|Application和ApplicationClass的联系和区别

    NET平台下的Excel编程|C#操作Excel|Application和ApplicationClass的联系和区别 1. Interop含义Interop是互操作的含义.Microsoft.Off ...

  2. 如何在没有安装微软Excel环境下操作Excel文件?

    在以前接触的项目中,由于很多客户对微软Excel的操作比较熟练,客户经常要求系统支持对Excel文件的读写.用.NET传统方法对Excel进行读写时,往往会涉及到不同版本兼容的问题,导致在本地测试一切 ...

  3. Chimm.Excel —— 使用Java 操作 excel 模板文件生成 excel 文档

    Chimm.Excel -- 设置模板,填充数据,就完事儿了~ _____ _ _ _____ _ / __ \ | (_) | ___| | | | / \/ |__ _ _ __ ___ _ __ ...

  4. 【Python自动化Excel】pandas操作Excel的“分分合合”

    话说Excel数据表,分久必合.合久必分.Excel数据表的"分"与"合"是日常办公中常见的操作.手动操作并不困难,但数据量大了之后,重复性操作往往会令人崩溃. ...

  5. autoit 使用excel自带函数操作excel

    Looking into the includes <Excel.au3> helped shed some light on things. To summarize what I've ...

  6. Delphi操作Excel大全

    Delphi操作Excel大全 DELPHI操作excel(转)(一) 使用动态创建的方法 首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp ...

  7. C#操作Excel文件(转)

    摘要:本文介绍了Excel对象.C#中的受管代码和非受管代码,并介绍了COM组件在.net环境中的使用. 关键词:受管代码:非受管代码:Excel对象:动态连接库 引言 Excel是微软公司办公自动化 ...

  8. C#使用oledb操作excel文件的方法

    本文实例讲述了C#使用oledb操作excel文件的方法.分享给大家供大家参考.具体分析如下: 不管什么编程语言都会提供操作Excel文件的方式,C#操作Excel主要有以下几种方式: 1.Excel ...

  9. python基础(六)python操作excel

    一.python操作excel,python操作excel使用xlrd.xlwt和xlutils模块,xlrd模块是读取excel的,xlwt模块是写excel的,xlutils是用来修改excel的 ...

随机推荐

  1. 小程序 页面传值 json 被截断

    因此解决这个报错的方法是将要传输的数据用 encodeURIComponent()函数(可把字符串作为 URI 组件进行编码) 先进行编码, 传输过去后再通过decodeURIComponent()函 ...

  2. PHP缓存技术相关

    全页面静态化缓存也就是将页面全部生成html静态页面,用户访问时直接访问的静态页面,而不会去走php服务器解析的流程.此种方式,在CMS系统中比较常见,比如dedecms:一种比较常用的实现方式是用输 ...

  3. LeetCode刷题笔记-递归-反转二叉树

    题目描述: 翻转一棵二叉树. 解题思路: 1.对于二叉树,立马递归 2.先处理 根节点,不需改动 3.处根的左子树和右子树需要交换位置 4.递归处理左子树和右子树.步骤见1-3步 Java代码实现: ...

  4. Mysql任意读取客户端文件复现

    本机执行 python rogue_mysql_server.py 目标机器上连接本机数据库 mysql -u root -p -h 本机IP mysql -h 192.168.250.132 -ur ...

  5. 推荐几个顶级的IT技术公众号,坐稳了!

    提升自我的路很多,学习是其中最为捷径的一条.丰富的知识提升的不仅仅是你的阅历,更能彰显你的气质,正如古人云:"文质彬彬是君子." 今天为大家整理了10个公众号,分别为多领域,多角度 ...

  6. 2018-2-13-win10-UWP-等级控件

    title author date CreateTime categories win10 UWP 等级控件 lindexi 2018-2-13 17:23:3 +0800 2018-2-13 17: ...

  7. RLO文件名欺骗

    windows下面,支持一种特殊的unicode字符RLO,一个字符串中如果有这个字符的话,那么在windows下显示时,就会把RLO右侧的字符串逆序显示出来,原始字符串:abcd[RLO]efgh, ...

  8. [python3]未配置locale的主机出现UnicodeDecodeError: 'ascii' codec can't decode byte 0x....的解决

    之前写的发邮件的程序部署到vps的时候出现了 UnicodeDecodeError: 'ascii' codec can't decode byte 0x.... 的错误. 按理说UnicodeDec ...

  9. DBCP重连的问题及解决办法(转)

    本文转载:http://lc87624.iteye.com/blog/1734089,欢迎大家阅读原文. 使用数据库连接池时,免不了会遇到断网.数据库挂掉等异常状况,当网络或数据库恢复时,若无法恢复连 ...

  10. Windows——关于Word2016/2019提示需要修复问题处理

    一.问题描述 打开Word提示 很抱歉此功能看似已中断,并需要修复.请使用Windows控制面板中的“程序和功能”选项修复Microsoft Office. 二.解决方法 运行 regedit 进入注 ...