次のコードが Excel 2010 ( Home and Small Business Office Edition )で機能しない理由を知っている人はいますか?
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;
ワークブックの追加中に「登録されていないクラス」例外が表示される: "ExcelObject.Workbooks.Add(EmptyParam, LCID);"
これは、Office 2010 Professional Edition (およびそれ以前の Office Edition) では正常に機能しますが、Home and Small Business Edition 2010 Edition では機能しません。