Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c