Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.02.2012, 22:19   #1
kta87
Форумчанин
 
Аватар для kta87
 
Регистрация: 22.02.2010
Сообщений: 912
По умолчанию Сохранение StringGrid в Excel

Для сохранения StringGrid1 в Excel использую функцию
Код:
function TForm1.GetExcelSave: String;
begin
   Result:= ExtractFilePath(Application.ExeName) + 'MyProject\' +
            'Динамика пассажиропотока на маршруте №' + LabeledEdit4.Text;
  if LowerCase(ExtractFileExt(Result)) <> EXCEL_FILE_EXT then
     Result := Result + EXCEL_FILE_EXT;
end;
Использую ее так
Код:
ForceDirectories(ExtractFilePath(ParamStr(0)) + 'MyProject'); 
ExcelApp:= CreateOleObject('Excel.Application');
   try
    ExcelApp.Visible:= False;
    ExcelApp.Workbooks.Add;
    Sheet:= ExcelApp.ActiveWorkBook.WorkSheets[1];
    for Col:= 0 to StringGrid1.ColCount -1 do
     for Row:= 0 to StringGrid1.RowCount -1 do
      Sheet.Cells[Row + 1, Col +1]:= StringGrid1.Cells[Col, Row];
    ExcelApp.ActiveWorkbook.SaveAs(GetExcelSave);
    ShowMessage('Проект успешно сохранен!');
   finally
    ExcelApp.Application.Quit;
    ExcelApp:= Unassigned;
    Sheet:= Unassigned;
   end;
Все отлично сохраняет, все работает, при этом в Excel создается Книга 1. Теперь вопрос: как сделать что бы StringGrid2 в тот же Excel, но в книге 2?
kta87 вне форума Ответить с цитированием
Старый 20.02.2012, 06:10   #2
HyperZen
Пользователь
 
Аватар для HyperZen
 
Регистрация: 20.07.2010
Сообщений: 45
По умолчанию

Код:
    Sheet:= ExcelApp.ActiveWorkBook.WorkSheets[2];
Плохого человека должно быть мало...
HyperZen вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
СОХРАНЕНИЕ данных из StringGrid в Excel monushka Общие вопросы Delphi 4 17.05.2012 18:56
Сохранение StringGrid ViJey Помощь студентам 3 11.06.2011 13:49
Builder StringGrid сохранение Jack-shade Общие вопросы C/C++ 1 06.04.2011 08:08
Сохранение Stringgrid c ColorBOX mazdakilla Компоненты Delphi 3 12.05.2008 17:05