TExcelApplicationでコメントの挿入 (ID:48652)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

試してみました。
  ただし（１）…使用したのは中国製のExcelもどきです。（MS Officeを買うお金が無いので。）
  ただし（２）…TExcelApplicationのようなタイプライブラリは使ってません。というか用意されてない模様。

なので、動作が異なる可能性が多大にあります。ご参考程度に。

uses
  ComObj;

var
  Excel: OleVariant;

procedure TForm1.Button1Click(Sender: TObject);
var
  ExcelSheet1: OleVariant;
begin
  Excel:=CreateOleObject('ET.Application'); // Kingsoft Spreadsheets
  Excel.Visible:=True;
  Excel.Workbooks.Add;
  ExcelSheet1:=Excel.Workbooks[1].WorkSheets[1];

ExcelSheet1.Cells.Item[1,1].Select;
  ExcelSheet1.Cells.AddComment('てすと１'); // 無反応

// 以下は成功

ExcelSheet1.Cells[1,2].Select;
  Excel.Selection.AddComment('てすと２');

ExcelSheet1.Cells[1,3].Select;
  Excel.ActiveCell.AddComment('てすと３');

ExcelSheet1.Cells[1,4].AddComment('てすと４');
  ExcelSheet1.Cells.Item[1,5].AddComment('てすと５');
  ExcelSheet1.Range['F1'].AddComment('てすと６');

ExcelSheet1.Cells[1,7].AddComment;
  ExcelSheet1.Cells[1,7].Comment.Text:='てすと７';

ExcelSheet1.Cells[1,8].AddComment.Text:='てすと８';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Excel.Quit;
  Excel:=Unassigned;
end;

←解決時は質問者本人がここをチェックしてください。

戻る