Форум: "Базы";
Текущий архив: 2003.07.10;
Скачать: [xml.tar.bz2];
Внизкопирование данных в 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c