Открыть из Delphi файл Excel

[masterdela]

Всем доброго времени суток!

Необходимо программно открыть файл Excel и записать некие данные в определенные ячейки. Открыть то получается, а вот записать что-то в него никак. Хотя с экспортом из, например, DBGrid в Excel проблем нет.

Буду благодарен, если кто найдет минуту найти запылившийся кусочек кода, который будет записывать данные в заготовленный ранее файл Excel.

P.S. Надеюсь понятно изложил суть проблемы.

[Grag]

Сообщение от masterdela

Буду благодарен, если кто найдет минуту найти запылившийся кусочек кода, который будет записывать данные в заготовленный ранее файл Excel.

P.S. Надеюсь понятно изложил суть проблемы.

Я делаю так в своей программе...

  ExcelCreateApplication('Данные',1,false);
  Excel.Sheets.Add(After:=Sheet); //создаю лист Параметры...
  Sheet:=Excel.Sheets.Item[2];
  Sheet.Name:='Параметры';
  for CurSaveParams:=1 to AllSaveParams do
    case CurSaveParams of
      1:begin
          iCnt:=1;
          Sheet.Cells[iCnt,CurSaveParams]:='Анкеты';
          Sheet.Cells[iCnt,CurSaveParams].ColumnWidth:=8;
          Inc(iCnt);
          if EditKda.Text<>'' then
            Sheet.Cells[iCnt,CurSaveParams]:=EditKda.Text;
          for jCnt:=0 to KdaRange do
            begin
              Inc(iCnt);
              Sheet.Cells[iCnt,CurSaveParams]:=KdaListBoxInp.Items[jCnt];
              //центрирую ...
              Sheet.Cells[iCnt,CurSaveParams].HorizontalAlignment:=-4108;
              Application.ProcessMessages
            end
        end;
      2:begin
          iCnt:=1;
          Sheet.Cells[iCnt,CurSaveParams]:='Специализации';
          Sheet.Cells[iCnt,CurSaveParams].ColumnWidth:=15;
          Inc(iCnt);
          if EditSpc.Text<>''
            then Sheet.Cells[iCnt,CurSaveParams]:=EditSpc.Text;
          for jCnt:=0 to SpcRange do
            begin
              Inc(iCnt);
              Sheet.Cells[iCnt,CurSaveParams]:=SpcListBoxInp.Items[jCnt];
              Application.ProcessMessages
            end
        end;
      3:begin
           iCnt:=1;
           Sheet.Cells[iCnt,CurSaveParams]:='Город';
           Sheet.Cells[iCnt,CurSaveParams].ColumnWidth:=15;
           Inc(iCnt);
           for jCnt:=0 to CityRange do
             begin
               Inc(iCnt);
               Sheet.Cells[iCnt,CurSaveParams]:=CityListBoxInp.Items[jCnt]
             end
        end;
//ну и так далее...

[masterdela]

Спасибо, Grag. С созданием нового Excel проблем нет. Но когда открываю программно ранее созданный и пытаюсь записать, например

Cells[x,y] := 'xyz'

он мне отвечает что метод Cells не поддерживается.

[Vlad_55]

Сообщение от masterdela

Спасибо, Grag. С созданием нового Excel проблем нет. Но когда открываю программно ранее созданный и пытаюсь записать, например

Cells[x,y] := 'xyz'

он мне отвечает что метод Cells не поддерживается.

Видимо не у того объекта Cell просите. Было дело рассматривал работы с Excel подробно здесь http://www.webdelphi.ru/tag/excel-v-delphi/ от простой записи ячеек до внедрения документов Word в лсты Excel, думаю должно Вам помочь. Кстати, Range не пробовали использовать вместо Cells вот так:

var i:integer;
    s: single;
    str: string;
    Sheet: OLEVariant;
begin
  i:=100;
  s:=2.12;
  str:='Hello World!';
  Sheet.Range['A1'].Value:=i;
  Sheet.Range['A2'].Value:=s;
  Sheet.Range['A3'].Value:=str;
end;

[Grag]

Сообщение от masterdela

Спасибо, Grag. С созданием нового Excel проблем нет. Но когда открываю программно ранее созданный и пытаюсь записать, например

Cells[x,y] := 'xyz'

он мне отвечает что метод Cells не поддерживается.

Ну, так ты приведи хоть часть кода, где открываешь ранее созданную книгу и как ты с ней работаешь...

[Kotofff]

Искать по форуму не хотим ? Проще создать еще одну тему-клон ?
http://programmersforum.ru/showthread.php?t=14064