Главная страница
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.021 c
1-31307
SkyRanger
2003-06-25 04:30
2003.07.10
Бинарное дерево


6-31383
LOX
2003-05-03 12:29
2003.07.10
А IP у компа всегда одинаковый?


1-31203
Dream
2003-06-28 12:43
2003.07.10
проблемы с memo ( смешно конечно но я по моему уже гоню )


3-31140
Silver_
2003-06-18 14:29
2003.07.10
ADODataSetDETAIL.Filter не катит. Приходится делать так ...


1-31224
Lamos aka 31337
2003-06-28 08:38
2003.07.10
Возникла проблем(-ка) с компонентой PopupMenu