MEGA.NZ
local oExcel = luacom.CreateObject("Excel.Application");
if oExcel then
oExcel.Visible = 1;
oExcel.WorkBooks:Add();
oExcel.ActiveWorkbook.Sheets(1):Select();
--Estas son las columnas de excel con el tamaño que les doy a cada una de ellas
oExcel.ActiveSheet.Columns(1).ColumnWidth = 0;
oExcel.ActiveSheet.Columns(2).ColumnWidth = 23;
oExcel.ActiveSheet.Columns(3).ColumnWidth = 47;
oExcel.ActiveSheet.Columns(4).ColumnWidth = 10;
oExcel.ActiveSheet.Columns(5).ColumnWidth = 16;
oExcel.ActiveSheet.Columns(6).ColumnWidth = 15;
oExcel.ActiveSheet.Columns(7).ColumnWidth = 15;
--este es el color del encabezado de desde la columna A a la Columna G de la linea 1
oExcel.ActiveSheet:Range("A1:G1").Interior.ColorIndex = 14;
--aqui activo el negrita para la linea 1
oExcel.ActiveSheet:Range("A1:G1").Font.Bold = true;
--aqui le coloco el nombre a la hoja de trabajo
oExcel.Sheets(1).Name = "Reporte"
for i = 0, Grid.GetRowCount("Grid1") - 1 do
for k = 0, Grid.GetColumnCount("Grid1") do
oExcel.ActiveSheet.Cells(i+1 , k+1).FormulaR1C1 = Grid.GetCellText("Grid1", i, k);
end
end
end