AMSSpecialist

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