EOleSysError 'Unknown language'
Problem : EOleSysError 'Unknown language'
Please give me a hint by email how to solve my 'unknown language'
OLE problem. I am using Delphi302 Pro and Excel95 (v7).
Thanks,
ho...@hl.telia.no
Code samples enclosed...
-----------------------------------------------------------
Delphi302 Pro Code :
....
Uses ComObj;
procedure TForm1.ExcelStartClick(Sender: TObject);
// Test av Excel Ole2, Unknown language problem
// XLApplication def as variant in Form private section
begin
try
XLApplication := CreateOleObject('Excel.Application'); // req ComObj
unit
except
MessageDlg('Can not start MS Excel',mtError,[mbOK],0);
end;
// CODE WORKS FINE THIS FAR, Excel App has been created
// -------------------------------------------
XLApplication.Workbooks.Add; // Raises error : EOleSysError 'Unknown
language'
XLApplication.Worksheets('sheet1');
XLApplication.Range('a1:b4').Formula:='=rand()';
XLApplication.Sheets('sheet2').Activate;
XLApplication.ActiveWorkbook.SaveAs('c:\temp\Temp.xls'); // hardcoded 4
test purpose only
end;
-----------------------------------------------------------
Macro tested in Excel95 (Excel v 7) UK version
Code works fine
' Macro1 Macro
' Macro recorded 23.03.1999 by holeg
' EXCEL VBA macro test for Delphi Ole Control by holeg
' Tested in Excel for tranlation to Delphi3 OLE Control
Sub Macro1()
Workbooks.LeggTil
ActiveWorkbook.Author = "holeg"
Workbooks("Mysheet.xlt").Worksheets("sheet1").Activate
Worksheets ("sheet1")
Range("A1:C14").Font.Size = 18
Range("a1:b4").Formula = "=rand()"
Sheets("sheet2").Activate
File1 = "c:\temp\Test.xls"
ActiveWorkbook.SaveAs (File1) ' works ok
End Sub
-----------------------------------------------------------