Excel и StringGrid в Delphi

[_Dmitry]

Преписать всю таблицу в Excel можно так

for i:=1 to StringGrid1.RowCount do
  for j:=1 to StringGrid1.ColCount do
    E.ActiveSheet.Cells[i,j].Value:=StringGrid1.Cells[j-1,i-1];

Смотрите пример...

[_Dmitry]

Дополнил пример. Теперь еще создает текстовый CSV файл, который понимает Excel

[monushka]

А каким образом теперь можно загрузить данные из Экселя в СтрингГрид?
Я сделала вот так (с помощью книги Корнякова):

for i:=0 to SG1.RowCount do
for j:=0 to SG1.ColCount do
SG1.Cells[j,i]:='';
for i:=1 to SG1.RowCount do
for j:=1 to SG1.ColCount do
 begin
 ee:=E.ActiveSheet.Cells[i+2,j].Text;
 SG1.Cells[j-1,i-1]:=ee;
 end;

Но так получается только для открытого листа.
А вот как сделать с помощью OpenDialog'а? Чтобы выбрать самому файл и он загружался в СтрингГрид... Было бы еще не плохо узнать, можно ли каким-то образом определять число столбцов и строк в документе Эксель и создавать такой же стринггрид?
Спасибо за помощь!!

[_Dmitry]

По просьбе monushka залил примеры с диска Корнякова на Rapidshare
http://rapidshare.com/files/88096854...elphi.rar.html

[Serge_Bliznykov]

Кстати, господа и дамы, рекомендую посмотреть статейку "Зарисовка на тему экспорта в Excel"
Так пункт третий, как кучу данных передать за один раз (это может в десятки раз ускорить выполнение экспорта... конечно, если время выполнения критично )

[monushka]

Ознакомилась я со всей информацией, представленной в предыдущих двух сообщениях... Но что-то так и не пойму, каким образом можно загрузить данные из документа Excel в StringGrid?? Во всех примерах используется либо Memo, либо ListBox... Но ведь это совсем другое, тут все понятно. А вот как цикл для StringGrid'а сделать?

[_Dmitry]

Измените код #11, сделайте наоборот

E:=CreateOleObject('Excel.Application');
E.Visible:=true;
if not OpenDialog1.Execute then exit;
E.WorkBooks.Open(OpenDialog1.FileName);

for i:=1 to StringGrid1.RowCount do
  for j:=1 to StringGrid1.ColCount do
     StringGrid1.Cells[j-1,i-1]:=E.ActiveSheet.Cells[i,j].Value;

[monushka]

_Dmitry, а как в приведенном Вами коде можно сделать так, чтобы StringGrid имел такое же кол-во строк, что и Excel. Т.е. пусть изначально СтрингГрид имеет 1 строку, а Эксель - 50 к примеру. Можно ли подсчитать число строк в Экселе и добавить необходимое количество в СтрингГрид? Имеется ли у Экселя параметр вроде RowCount?

[monushka]

Я сделала вот так:

begin
E:=CreateOleObject('Excel.Application');
if not OpenDialog1.Execute then exit;
E.WorkBooks.Open(OpenDialog1.FileName);
k:=1;
for i:=1 to SG1.RowCount do
 if SG1.RowCount <= k then
  SG1.RowCount:=SG1.RowCount+1;
for j:=1 to 5 do
SG1.Cells[j-1,k-1]:=E.ActiveSheet.Cells[k,j].Value;
end;

Программа запускается, но из открытого файлы копируется только первая строка и добавляется еще одна строка в СтрингГрид.
Подскажите, пожалуйста, что неправильно?

[_Dmitry]

Количество заполненных строк и столбцов:

Rows:=E.ActiveSheet.UsedRange.Rows.Count;
Columns:=E.ActiveSheet.UsedRange.Columns.Count;