[B](Delphi)Организация совместной работы с электронными таблицами Excel[/B]

[Nastya0810]

Подскажите как сделать
1. Вторую закладку главной формы назвать «Обработка объекта Excel ». Разместить в ней компонент TStringGrid для отображения таблицы и компоненты для ее обработки ( в виде кнопок или главного меню или панели инструментов).
2. Обеспечить возможность обработки таблицы (копирование данных из таблицы Excel в компонент StringGrid , редактирование и очистку данных таблицы StringGrid ) .

[Аватар]

А какой доступ к таблице - sql или com-объект?

[Nastya0810]

наверное sql

[Nastya0810]

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  try
  Excel.Quit;
except
end;
CanClose:=True;
 Excel:=Unassigned;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Excel:=CreateOleObject('Excel.Application');
with OpenDialog1 do
  if Execute then


    Excel.Application.WorkBooks.Add(FileName);
  Excel.Visible:=True; 
Excel.DisplayAlerts:=False;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i, j: integer;
begin
 with StringGrid1 do
  for i:=1 to RowCount-1 do
  for j:=1 to ColCount-1 do
    Cells[j,i]:=Excel.WorkSheets.Item['Лист1'].Cell[i+1,j+1];
    StringGrid1.Visible:=true;
end;

end.

Выбивает там где красное ошибку





________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

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

наверное sql

не-а. у Вас создаётся COM-объект:

Excel:=CreateOleObject('Excel.Application');

А какую ошибку "выбивает"?
покажите скриншот ошибки.

У Вас странная логика приложения.
Сначала нужно нажать кнопку Button1 и там указать файл.
И только потом, если всё прошло без ошибок, то нажимать Button2

И в Button2 неплохо бы написать код, который проверяет, что файлик реально открылся, что там есть лист с нужным именем и т.д.

[Nastya0810]

я не могу понять,как тут изображение вставить???

[Alex11223]

Загрузить изображение на форум (в расширенной форме ответа внизу) или на хостинг типа imgur.com или hostingkartinok.com

[Nastya0810]

сейчас попробую

http://imgur.com/MU2M8Dd

открылось?

[Alex11223]

Да. Если бы скопировали вторую ссылку из списка (начинающуюся с i.), то картинка бы даже отобразилась в [IMG]
У сообщений кстати есть кнопка Правка, не надо писать кучу сообщений подряд.

А метод вроде Cells должен называться, а не Cell.

[Nastya0810]

на парах нам немного не такую информацию давали,но я не могу понять куда его писать [IMG] http://imgur.com/t3ljZl1/IMG]

та я видела кнопку правка,но первый день здесь)дайте мне немного разобраться