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

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

Sour

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

admin

Well-Known Member
08.08.2003
2 754
1
#2
Sour
я уже как-то постил тут пример работы с экселем в форуме по делфям. если не найдешь - кину ещё раз.
 
B

Barmutik

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

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;

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