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()
热门文章更多>>
标签更多>>
专题更多>>
最新文章更多>>
- 团队城市未满足要求:MSBuildTools12.0_x86_Path 存在
- 使用 MSBuild.exe 在发布模式下构建 C# 解决方案
- 当我发布 Web 应用程序时,AfterPublish 脚本不运行
- 构建时 T4 转换的产品仅在下一个构建中使用
- ASP.NET Core Application (.NET Framework) for Windows x64 only error in project.assets.json
- 新的 .csproj 格式 - 如何将整个目录指定为“链接文件"到子目录?
- 如何将条件编译符号(DefineConstants)传递给 msbuild
- MSBuild 支持 Visual Studio 2017 RTM 中的 T4 模板
- NuGet 包还原找不到包,没有源
- 使用 C# 6.0 功能运行 TFS 构建