| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
копирование данных в excel [D6, dBase, FoxPro]
rosl © (2003-06-17 05:57:00)Уважаемые МАСЕРА!!! Кому не трудно, помогите.
Нашёл пример копирования данных в 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;
rosl (2003-06-17 16:47:00) [1]Deniz, спасибо!!!
работает
Кулюкин Олег (2003-06-17 12:48:00) [2]http://www.delphikingdom.ru/helloworld/excelsm.htm
Deniz (2003-06-17 09:19:00) [3]Добавь:
ExcelApp.Workbooks[1].WorkSheets["лист1"].Cells[y, x].Select
мож поможет.
Rol (2003-06-17 06:02:00) [4]FAQ однозначно.
| |
