DDR爱好者之家

lua操作excel方法分享
站长资源 2024/11/23 佚名
61 1538
DDR爱好者之家 Design By 杰米

通过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()

以上就是代码的全部内容了，希望大家能够喜欢。

DDR爱好者之家 Design By 杰米
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！
DDR爱好者之家 Design By 杰米
ddrfans.com DDR爱好者之家
8,675无损音乐
1,324高清电影
213破解软件
70,141收录资讯

RTX 5090要首发 性能要翻倍！三星展示GDDR7显存

三星在GTC上展示了专为下一代游戏GPU设计的GDDR7内存。

首次推出的GDDR7内存模块密度为16GB，每个模块容量为2GB。其速度预设为32 Gbps（PAM3），但也可以降至28 Gbps，以提高产量和初始阶段的整体性能和成本效益。

据三星表示，GDDR7内存的能效将提高20%，同时工作电压仅为1.1V，低于标准的1.2V。通过采用更新的封装材料和优化的电路设计，使得在高速运行时的发热量降低，GDDR7的热阻比GDDR6降低了70%。

更新日志

友情链接

杰晶网络 DDR爱好者之家 南强小屋 黑松山资源网 白云城资源网
DDR爱好者之家 Design By 杰米