通过luacom操作excel。网上提供的资料很少,我模仿vba找出了一些基本操作方法。
复制代码 代码如下:
require 'luacom'
local excel = luacom.CreateObject('Excel.Application')
excel.Visible = true
local book = excel.Workbooks:Add()
local sheet = book.Worksheets(1)
sheet.Name = 'gty'
local range = sheet:Range('A1:A10')
local cell = sheet.Cells(1,1)
sheet:Range('D3:D6'):Merge()--合并单元格
range.Value2 = 1
range.Font.Size = 20
sheet.Cells(1,2).FormulaR1C1 = '=R3C1+R4C1' --公式
cell.Value2 = 'gty'
cell.Font.Name = 'Arial'
--cell.Font.FontStyle = 'bold'
cell.Font.Bold = true
sheet.Cells(4,5).EntireRow.Interior.Color = 0x334455 --整行操作
sheet.Cells(4,5).EntireColumn.Interior.Color = 0x998877 --整列操作
cell.Font.Size = 20
cell.Font.Color = 0x0000ff
cell.Font.Underline = true
cell.Font.Strikethrough = true --删除线
cell.font.OutlineFont = true --下划线
range.Interior.Color = 0x778899 --区域上色
range.Borders.LineStyle = 1 --边框样式 --每个小的内边框
sheet:Range('C2:G7').BorderAround(1)--外边框
--range.Borders.Weight = 4 --边框宽度
--range.Interior.Pattern = 8 --区域花纹
--cell.Font.Shadow = true
--cell.Font.SuperScript = true
--cell.Font.SubScript = true
print(range.Cells.Count) --统计单元格数
print(range.Rows.Count)
print(range.Columns.Count)
range.NumberFormat = '$#,##0.00' --格式化数字
sheet:Range('A2'):Cut() --剪切
sheet:Range('A3'):Copy() --复制
sheet:Paste(sheet:Range('B3')) --粘贴
book.Worksheets('sheet3'):Delete()
book:SaveAs(filePath,51)--51xlsx -4143xls
excel:Quit()
以上就是代码的全部内容了,希望大家能够喜欢。
lua,操作,excel
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
稳了!魔兽国服回归的3条重磅消息!官宣时间再确认!
昨天有一位朋友在大神群里分享,自己亚服账号被封号之后居然弹出了国服的封号信息对话框。
这里面让他访问的是一个国服的战网网址,com.cn和后面的zh都非常明白地表明这就是国服战网。
而他在复制这个网址并且进行登录之后,确实是网易的网址,也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情,因为以前都没有出现这样的情况,现在突然提示跳转到国服战网的网址,是不是说明了简体中文客户端已经开始进行更新了呢?