Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.10;
Скачать: CL | DM;

Вниз

копирование данных в excel   Найти похожие ветки 

 
rosl   (2003-06-17 05:57) [0]

Уважаемые МАСЕРА!!! Кому не трудно, помогите.
Нашёл пример копирования данных в excel, но не могу понять, как начать вставку данных с определённой ячейки (в excel)
вставляется с ячейки А1, а нужно например с С1

var
bm: TBookmark;
col, row: Integer;
sline: String;
mem: TMemo;
ExcelApp: Variant;
begin
Screen.Cursor := crHourglass;
bm := DBGrid1.DataSource.DataSet.GetBookmark;
DBGrid1.DataSource.DataSet.First;
begin
ExcelApp:=CreateOleObject("Excel.Application");
ExcelApp.WorkBooks.Add(xlWBatWorkSheet);
ExcelApp.WorkBooks[1].WorkSheets[1].Name := "лист1";
end;
// Сперва отправляем данные в memo
// работает быстрее, чем отправлять их напрямую в Excel
mem := TMemo.Create(Self);
mem.Visible := false;
mem.Parent := Form1;
mem.Clear;
sline := "";
// получаем данные из memo
for row := 0 to DBGrid1.DataSource.DataSet.RecordCount-1 do
begin
sline := "";
for col := 0 to DBGrid1.FieldCount-1 do
sline := sline + DBGrid1.Fields[col].AsString + #9;
mem.Lines.Add(sline);
DBGrid1.DataSource.DataSet.Next;
end;
// копируем данные в clipboard
mem.SelectAll;
mem.CopyToClipboard;
begin
ExcelApp.Workbooks[1].WorkSheets["лист1"].Paste;
ExcelApp.Visible := true;
end;


 
Rol   (2003-06-17 06:02) [1]

FAQ однозначно.


 
Deniz ©   (2003-06-17 09:19) [2]

Добавь:
ExcelApp.Workbooks[1].WorkSheets["лист1"].Cells[y, x].Select
мож поможет.


 
Кулюкин Олег ©   (2003-06-17 12:48) [3]

http://www.delphikingdom.ru/helloworld/excelsm.htm


 
rosl   (2003-06-17 16:47) [4]

Deniz, спасибо!!!
работает



Страницы: 1 вся ветка

Текущий архив: 2003.07.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
1-31254
Mihey
2003-06-29 23:05
2003.07.10
Проблемы с BlockRead.


6-31379
dronas555
2003-05-05 12:40
2003.07.10
Отправка почты


1-31202
Шустрый
2003-06-27 19:14
2003.07.10
Form1.OnClose:=False ???


3-31120
Kile
2003-06-17 15:28
2003.07.10
Interbase тригеры в Delphi


3-31117
Брат
2003-06-17 17:00
2003.07.10
Вставка картинки в db-файл