2

次のコードが 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 では機能しません。

4

1 に答える 1