pvelarde
27-01-2011, 12:18:33
Hola,
Alguien sabe porque el siguiente código no funciona en Excel 2010 (Home and Small Business Office Edition) y si en la versión profesional y en versiones anterior de Microsoft Office ¿?
procedure TForm1.Button1Click(Sender: TObject); var rango : OleVariant; ExcelObject : TExcelApplication; ExcelWorksheet : TExcelWorksheet; LCID : integer; begin try ExcelObject := TExcelApplication.Create (self); LCID := LOCALE_USER_DEFAULT; ExcelObject.Workbooks.Add(EmptyParam, LCID); ExcelWorksheet := TExcelWorksheet.Create(ExcelObject); ExcelWorksheet.ConnectTo(ExcelObject.Worksheets.Item [1] as _Worksheet); rango := ExcelWorksheet.Range['B2','B2']; rango.Font.size := 16; rango.Font.Bold := True; rango.Value2 := 'test'; ExcelObject.Visible[lcid] := true; except on e: exception do showmessage(e.message); end; end;
una excepción es generada cuando se añade el libro:
"ExcelObject.Workbooks.Add(EmptyParam, LCID);"
saludos y muchas gracias,
Alguien sabe porque el siguiente código no funciona en Excel 2010 (Home and Small Business Office Edition) y si en la versión profesional y en versiones anterior de Microsoft Office ¿?
procedure TForm1.Button1Click(Sender: TObject); var rango : OleVariant; ExcelObject : TExcelApplication; ExcelWorksheet : TExcelWorksheet; LCID : integer; begin try ExcelObject := TExcelApplication.Create (self); LCID := LOCALE_USER_DEFAULT; ExcelObject.Workbooks.Add(EmptyParam, LCID); ExcelWorksheet := TExcelWorksheet.Create(ExcelObject); ExcelWorksheet.ConnectTo(ExcelObject.Worksheets.Item [1] as _Worksheet); rango := ExcelWorksheet.Range['B2','B2']; rango.Font.size := 16; rango.Font.Bold := True; rango.Value2 := 'test'; ExcelObject.Visible[lcid] := true; except on e: exception do showmessage(e.message); end; end;
una excepción es generada cuando se añade el libro:
"ExcelObject.Workbooks.Add(EmptyParam, LCID);"
saludos y muchas gracias,