Экспорт/импорт данных в Excel

  • Автор темы Sour
  • Дата начала
Статус
Закрыто для дальнейших ответов.
S

Sour

Не могу сделать Экспорт/импорт данных в Excel (Delphi 7). Имеется StringGrid. Нужно всё в Excel и назад...
 
A

admin

Sour
я уже как-то постил тут пример работы с экселем в форуме по делфям. если не найдешь - кину ещё раз.
 
B

Barmutik

Кусок из проги(могут быть мелкие бажки):

var
ExcelApp: Variant;
...
begin
try
try
ExcelApp := GetActiveOleObject('Excel.Application');
except
try
ExcelApp := CreateOleObject ('Excel.Application');
except
MessageDlg('Не могу загрузить Microsoft Excel.', mtError, [mbOK], 0);
Exit;
end;
end;
Screen.Cursor := crHourGlass;
ExcelApp.WorkBooks.Add;
for I := 0 to пробежка по твоему гриду
for J := 0 to пробежка по твоему гриду
ExcelApp.ActiveWorkBook.WorkSheets[1].Cells[I + 1, J + 1] := знчеиния из ячеек
finally
ExcelApp.Visible := True;
ExcelApp := UnAssigned;
Screen.Cursor := crDefault;
end;
end;

Ну и дальше уже украшай как хочеш .. Я обычно испольую заране заготовленные шаблоны и потом просто в нужные места распихиваю данные . а если в чистой странице то потом долго программить .. той ячейке такой цвет .. те слить .. там бордео поставить .. ну надеюсь общий смысл ты понял.
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:  ТелеграмВконтактеДзенФейсбукТвиттерЮтуб