Ricardo Alfredo
22-01-2004, 15:07:33
Hola Foro.
Mi pregunta es como puedo crear varias hojas en una planilla excel.
Yo puedo crear y usar una sola hoja pero necesito agregar varias y
llenarlas.Revise la pagina de Deborah Pate's www.djpate y no he
logrado que me funcione.
Lo que efectuo es lo siguiente, pongo los componente excel
application,excel workbook, woorsheet.
Luego
lcid := GetUserDefaultLCID;
ExcelEjecutable.Visible[lcid]:=True;
lv_hoja:=1;
For lv_item:= ListView2.Items.Count - 1 downto 0 do
begin
ExcelLibro.ConnectTo(ExcelEjecutable.Workbooks.Add(TOleEnum
(xlWBATWorksheet), lcid));
ExcelHoja.ConnectTo(ExcelLibro.Worksheets[lv_hoja] as _Worksheet);
ExcelHoja.Name := ListView2.Items[lv_item].Caption;
EnterData;
end;
Esto me funciona para la primera hoja pero cuando pasa a la segunda
hoja da una excepcion que no he podido solucionar.
Cualquier ayuda por favor es bien recibida ya que es lo ultimo que
me queda para finalizar el proyecto.
gracias
Mi pregunta es como puedo crear varias hojas en una planilla excel.
Yo puedo crear y usar una sola hoja pero necesito agregar varias y
llenarlas.Revise la pagina de Deborah Pate's www.djpate y no he
logrado que me funcione.
Lo que efectuo es lo siguiente, pongo los componente excel
application,excel workbook, woorsheet.
Luego
lcid := GetUserDefaultLCID;
ExcelEjecutable.Visible[lcid]:=True;
lv_hoja:=1;
For lv_item:= ListView2.Items.Count - 1 downto 0 do
begin
ExcelLibro.ConnectTo(ExcelEjecutable.Workbooks.Add(TOleEnum
(xlWBATWorksheet), lcid));
ExcelHoja.ConnectTo(ExcelLibro.Worksheets[lv_hoja] as _Worksheet);
ExcelHoja.Name := ListView2.Items[lv_item].Caption;
EnterData;
end;
Esto me funciona para la primera hoja pero cuando pasa a la segunda
hoja da una excepcion que no he podido solucionar.
Cualquier ayuda por favor es bien recibida ya que es lo ultimo que
me queda para finalizar el proyecto.
gracias