Ecxcelの操作につきまして (ID:34517)

名前

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

本文

自己レスです。

どうも、ソースが混ざって処理されていたようで以下のように
したらＯＫでした。

お騒がせしました。

//---------------------------------------------------
const
  lcid: DWORD =LOCALE_SYSTEM_DEFAULT;

type
  TForm1 = class(TForm)

ExcelApplication1: TExcelApplication;
    ExcelWorksheet1: TExcelWorksheet;
    ExcelWorkbook1: TExcelWorkbook;

〜略

procedure TForm1.FormShow(Sender: TObject);
begin
  ExcelApplication1.Workbooks.Open('abcd.xls',
                    EmptyParam,EmptyParam,EmptyParam,
                    EmptyParam,EmptyParam,EmptyParam,
                    EmptyParam,EmptyParam,EmptyParam,
                    EmptyParam,EmptyParam,EmptyParam,lcid);

ExcelApplication1.Visible[lcid]:=True;
  ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook as _workbook);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if ExcelApplication1.Visible[lcid] then begin
     ExcelWorkSheet1.Disconnect;
     //ExcelWorkbook1.Close(save引数,EmptyParam,False,lcid);   // save引数  true:保存  false:しない
     ExcelWorkbook1.Close(true,EmptyParam,False,lcid);
     Application.ProcessMessages;
     ExcelWorkbook1.Disconnect;
  end;
  if ExcelApplication1<>nil then begin
     ExcelApplication1.Quit;
     ExcelApplication1.Disconnect;
  end;
end;

procedure TForm1.BtnCellPut1Click(Sender: TObject);
begin
  ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook as _workbook);
  ExcelWorkSheet1.ConnectTo(ExcelWorkbook1.Worksheets['Sheet1'] as _worksheet);
  ExcelWorksheet1.Range['a10','a10'].Value := 'xxxxxx';
end;

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

戻る