Экспорт в Excel из Stringgrid

[betirsolt]

всем привет, делаю экспорт в Excel из Stringgrid вот код

procedure TForm1.ToolButton22Click(Sender: TObject);
var
 Colum:Variant;
 index,i:Integer;
begin
 e99:= CreateOleObject('Excel.Application');
 e99.Visible:=true;
 e99.Workbooks.Add(-4167);
 e99.Workbooks[1].workSheets[1].Name:='1';
 Colum:=e99.Workbooks[1].WorkSheets['1'].Columns;
 Colum1:=e99.Workbooks[1].WorkSheets['1'].Rows;
 Sheet1:=e99.Workbooks[1].WorkSheets['1'];


       for I := 1 to 10  do
            begin
                for j := 1 to 46 do
                        begin
            Sheet.Cells[j,i]:=stringgrid1_99.Cells[i,j];
                      end;
            end;

end;

вот так я экспортирую из stringgrid1_99 на первый лист в Excel, но мне нужно еще несколько stringgrid-ов экспортировать,и каждый из них на отдельный лист в excel, и так вопрос как экспортировать например stringgrid2_99 на второй лист в Excele, буду очень благодарен если поможете,заранее спасибо

[Stilet]

Оформи процедуру, в которую передавай параметры - имя листа и грид:

procedure TForm1.ToolButton22Click(Sender: TObject);
var
 Colum:Variant;
 index,i:Integer;

Procedure GoGoDolly(Nameshit:String,Grid);
var wshit:olevariant;
begin
 wshit:=e99.Workbooks.Add(-4167);
 wshit.Name:=Nameshit;
       for I := 1 to 10  do
            begin
                for j := 1 to 46 do
                        begin
                         wshit.Cells[j,i]:=grid.Cells[i,j];
                      end;
            end;

end;

begin
 e99:= CreateOleObject('Excel.Application');
 e99.Visible:=true;
 GoGoDolly('1',stringgrid1_99);
 GoGoDolly('2',stringgrid1_9910);
 GoGoDolly('3',stringgrid1_99500);
end;

Идея понятна?

[betirsolt]

Понятна, но у меня несколько циклов должно быть и во всех разное for i=1 to x, но я попробую сделать так и взять максимальное х,

Procedure GoGoDolly(Nameshit:String;Grid:stringgrid);

а тут Grid:stringgrid тип Grid какой писать?а то ошибка

[betirsolt]

с типом Grid:stringgrid я догнал и написал Grid:Tstringgrid

Procedure GoGoDolly(Nameshit:String;Grid:TStringGrid);
var wshit:olevariant;
i,j:integer;
begin
 wshit:=e99.Workbooks.Add(-4167);
 wshit.Name:=Nameshit;
       for i := 1 to 10  do
            begin
                for j := 1 to 46 do
                        begin
                         wshit.Cells[j,i]:=grid.Cells[i,j];
                      end;
            end;

end;

begin
 e99:= CreateOleObject('Excel.Application');
 e99.Visible:=true;
 GoGoDolly('1',stringgrid1_99);
 GoGoDolly('2',stringgrid2_99);
 GoGoDolly('3',stringgrid3_99);
 GoGoDolly('4',stringgrid4_99);
 GoGoDolly('5',stringgrid5_99);
 GoGoDolly('6',stringgrid6_99);
 GoGoDolly('7',stringgrid7_99);
 GoGoDolly('8',stringgrid8_99);
 GoGoDolly('9',stringgrid9_99);
 GoGoDolly('10',stringgrid10_99);
 GoGoDolly('11',stringgrid11_99);
 GoGoDolly('12',stringgrid12_99);
 GoGoDolly('13',stringgrid13_99);
 GoGoDolly('14',stringgrid14_99);
 GoGoDolly('15',stringgrid15_99);
 GoGoDolly('16',stringgrid16_99);
 GoGoDolly('17',stringgrid17_99);
 GoGoDolly('18',stringgrid18_99);
end;

но теперь при экспорте он выдает недопустимое число параметров...и выдает он это сразу на первой строчке

GoGoDolly('1',stringgrid1_99);

что я не так сделал?

[kashirin.p]

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

всем привет, делаю экспорт в Excel из Stringgrid вот код

procedure TForm1.ToolButton22Click(Sender: TObject);
var
 Colum:Variant;
 index,i:Integer;
begin
 e99:= CreateOleObject('Excel.Application');
 e99.Visible:=true;
 e99.Workbooks.Add(-4167);
 e99.Workbooks[1].workSheets[1].Name:='1';
 Colum:=e99.Workbooks[1].WorkSheets['1'].Columns;
 Colum1:=e99.Workbooks[1].WorkSheets['1'].Rows;
 Sheet1:=e99.Workbooks[1].WorkSheets['1'];


       for I := 1 to 10  do
            begin
                for j := 1 to 46 do
                        begin
            Sheet.Cells[j,i]:=stringgrid1_99.Cells[i,j];
                      end;
            end;

end;

вот так я экспортирую из stringgrid1_99 на первый лист в Excel, но мне нужно еще несколько stringgrid-ов экспортировать,и каждый из них на отдельный лист в excel, и так вопрос как экспортировать например stringgrid2_99 на второй лист в Excele, буду очень благодарен если поможете,заранее спасибо

А использование StringGrid обязательно? Просто если использовать TDBGRID, какой-нить dataset, можно использовать для экспорта компонент из JVCL (JvDBGridExcelExport). Посмотри пример, может пригодится1.rar

[betirsolt]

Сообщение от kashirin.p

А использование StringGrid обязательно? Просто если использовать TDBGRID, какой-нить dataset, можно использовать для экспорта компонент из JVCL (JvDBGridExcelExport). Посмотри пример, может пригодитсяВложение 49609

Обязательно, потому что у меня в проекте 14 тыс строк и все сделано со StringGrid -ом,уже все готово,осталось только экспортировать в эксель

[phomm]

Что есть "при экспорте"? при щелчке по кнопке в запущенной (и скомпилированной, ессно) программе или во время компиляции?

Если компиляции, то:
Перепроверьте, чтобы в заголовке процедуры параметры отделялись ;
а при вызове ,
Проверьте правильность расстановки символа одинарной кавычки.

Если в запущенной - то проверяйте тот код как у Вас работало с экспортом в 1 лист с тем что сейчас, ищите несоответствие.

Если у Вас разное количество обходов цикла, то эти величины тоже ведь можете передавать в процедуру, объявите параметры, да передавайте. Плюс советую обратить внимание, что в гриде ячейки нумеруются от 0 (и количество фиксированных сюда входит), а в экселе не знаю точно.. Можно вообще сделать чтобы цикл заканчивался не по числу, а по
Grid.СolСount - 1 и Grid.RowCount - 1 , т.е. по последнему индексу колонок и строк соответственно.

Stilet, Nameshit улыбнуло ))

[betirsolt]

все компилиться без ошибок и работает пока не нажмешь на кнопку экспорт,я ставил точку прерывания и смотрел и ошибка вылетает на этой строчке

GoGoDolly('1',stringgrid1_99);

вроде все запятые и точки проставлены правильно,у меня точно как я выложил на форуме все там,я без понятия что это может быть

[Karabash]

Вылетает не на этой строке, а на предыдущей. Уж так устроен отладчик в Delphi, что останавливается на строке, которая идет следом за той, где произошла ошибка.
А эта строка есть:

  wshit:=e99.Workbooks.Add(-4167);

В ней и надо копать.

[betirsolt]

предыдущая строка это

e99.Visible:=true;

и она проходит нормально и книга у меня появляется, вообще для меня в этом коде много не понятных моментов,например

 e99.Workbooks.Add(-4167);

зачем мне каждый раз создавать новую книгу?мне надо в одной книге добавлять листы и по очереди экспортировать на листы,по моему в этом коде нигде не добавляется новый лист,ребята помогите серьезно, тут же есть знающие по любому