当前位置: 首页 > 图文教程 > 网络编程 > Javascript > Apply an AutoFormat to an Excel Spreadsheet

Javascript
推荐:极酷右键菜单
跟随鼠标旋转的文字
拖动层效果,兼容IE和FF!
由 element.appendChild(newNode) ,谈开去
发个自己写的表格操作类(添加,删除,排序,上移,下移)
小议Function.apply() 之一------(函数的劫持与对象的复制)
小议Function.apply()之二------利用Apply的参数数组化来提高 JavaScript程序性能
JavaScript中令你抓狂的魔术变量
[原创]网络复制内容时常用的正则+editplus
createElement和onclick
很有趣的一段textarea
用 JavaScript 给站外链接的 cursor 进行改造
一段好玩的JavaScript代码
IE中实现全屏广告代码,霸道无比.
phpwind放自动注册方法
线路分流自动跳转代码;希望对大家有用!
鼠标放在放在输入框上面提示效果
常用js脚本
硬盘浏览程序,保存成网页格式便可使用
Js的MessageBox

Javascript 中的 Apply an AutoFormat to an Excel Spreadsheet


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-12   浏览: 117 ::
收藏到网摘: n/a

Script Code
复制代码 代码如下:

Const xpRangeAutoFormatList2 = 11
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)
k = 1
For i = 1 to 10
For j = 1 to 10
objWorksheet.Cells(i,j) = k
k = k + 1
Next
Next
Set objRange = objWorksheet.UsedRange
objRange.AutoFormat(xpRangeAutoFormatList2)