ADO и Excel, несколько практических вопросов:)

[funball]

Всем здравствуйте.

Реализовал экспорт в эксель по аналогии с предыдщиих тем форума и так как не силен в этой теме есть несколько вопросов как что реализовать:
- как реализовать экспорт в определенный файл(с нужным мне названием), в определенное место на съемном диске...а не онлайн, как у меня есть сейчас?
- как сделать в этом же Exce-ле второй лист, тритий и т.д. и туда тоже экспортировать данные?
- как задать имя листа на который экспортируем в Excele?
- как экспортировать график?
- возможно ли разукрасить Excel?,например залить все белым цветом и т.д.?
- где можно почитать подробно про эту тему?

Вот мой простинький код:

procedure TForm3.Button2Click(Sender: TObject);
var
XL, XArr: Variant;
i: Integer;
j: Integer;
begin
    begin
    ADOQuery1.Active:=false;
    ADOQuery1.SQL.Text:='select * from V_MSV_DETALNIK';
    ADOQuery1.Active:=true;
    end;
 XArr:=VarArrayCreate([1,DBGrid1.FieldCount],varVariant);
 XL:=CreateOLEObject('Excel.Application');     // Создание OLE объекта
 XL.WorkBooks.add;
 XL.visible:=true;

 for i := 0 to DBGrid1.FieldCount - 1 do begin
   XL.Cells[1,i+1].Value := DBGrid1.Fields[i].FieldName;
 end;
 XL.Range['A1',CHR(64+DBGrid1.FieldCount)+'1'].Font.Bold := True;

 j := 1;
 DBGrid1.DataSource.DataSet.First;
 while not DBGrid1.DataSource.DataSet.Eof do
  begin
   i:=1;
   while i<=DBGrid1.FieldCount do
    begin
     XArr[i] := DBGrid1.Fields[i-1].Value;
     i := i+1;
    end;
   XL.Range['A'+IntToStr(j+1),
   CHR(64+DBGrid1.FieldCount)+IntToStr(j+1)].Value := XArr;
   DBGrid1.DataSource.DataSet.Next;
   j:=j+1;
  end;
 XL.Range['A1',CHR(64+DBGrid1.FieldCount)+IntToStr(j+1)].select;
 // XL.cells.select;                     // Выбираем все
 XL.Selection.Font.Name:='Arial cur';
 XL.Selection.Font.Size:=10;
 XL.selection.Columns.AutoFit;
 XL.Range['A1','A1'].select;
end;

Буду благодарен за любую помощь.

[quit]

есть просто замечательная книга, называется Программирование документов и приложений MS Office в Delphi [В. Корняков]
Тыщу раз эта тема поднималась, пользуйтесь поиском!!!

[Stilet]

как реализовать экспорт в определенный файл

Просто сохрани свой "онлайн"
XL.SaveAs('c:\temp\My.xls');

как задать имя листа на который экспортируем в Excele?

Если не опшибаюсь:

Xl.ActiveSheet.Name:='Лист мой';

- возможно ли разукрасить Excel?,например залить все белым цветом и т.д.?
- где можно почитать подробно про эту тему?

Ну как всегда:

Хелп
Гугл
Корняков В.Н. «Программирование документов и приложений MS Office в Delphi»

[funball]

Всем спасибо, буду разбираться.

А почему у меня автоматически не предлагается выбирать различные доступные свойства работы над XL при нажатии ctrl+пробел? и некоторый текст выделен красным, это специфика работы с удаленными приложениями? Или может чего недоустановлено у меня?
Использую codegear2007.

[Stilet]

А потому что делфи не импортировала библиотеку типов экселя, она не умеет это делать налету, ей неизвесно что ты там подключаешь.

[Скандербег]

Сообщение от funball

А почему у меня автоматически не предлагается выбирать различные доступные свойства работы над XL при нажатии ctrl+пробел? и некоторый текст выделен красным, это специфика работы с удаленными приложениями? Или может чего недоустановлено у меня?
Использую codegear2007.

Уточню для автора чтобы было понятно "почему не предлагается".
Работа с COM серверами (а установленный в Windows MS Excel - это типичный COM сервер) предполагается в двух вариантах. Один вариант называют "позднее связывание". Типичный признак - подключение к серверу через переменную типа Variant и создание некоего OLE объекта:

var
  XlApp : Variant;
begin
  XLApp:= CreateOleObject('Excel.Application');
  ...
end;

Другой - "раннее связывание". Признак: непосредственное подключение к серверу на этапе компиляции:

var
  XL: TExcelApplication;
begin
  XL := TExcelApplication.Create(nil);
  ...
end;

Вся эта терминологистика, на самом деле немного сложнее, но для некоторых базовых понятий сгодится и приведенная.

Тогда понятно, почему Дельфи не может предложить методы сервера при кодировании, если используется позднее связывание - методы сервера будут доступны только при работе программы. Другое дело раннее связывание. Здесь компилятор Дельфи уже "знает" с чем он работает и может предложить все то, что экспортирует COM сервер.

В общем виде, где то так. Все это описание более подробно можно найти в Сети, в частности на http://www.delphikingdom.com/ при поиске по КС или статьям.

[funball]

Спасибо Скандербег, теперь все понянтно.

[Скандербег]

Все про Excel через Delphi: "Excel ЧаВо"
http://www.delphikingdom.com/asp/users.asp?ID=1262

[funball]

Сообщение от Скандербег

Все про Excel через Delphi: "Excel ЧаВо"

Скандербег, в чем может быть причина что не именуется лист, код вроде верно написал:

procedure TForm3.Button3Click(Sender: TObject);
begin
  EEE := TExcelApplication.Create(nil);
  //try
    EEE.ConnectKind := ckNewInstance;
    EEE.Connect; // подключение
    EEE.AutoQuit := False; // по умолчанию это свойство True только в unit ExcelXP
    EEE.Visible[lcid] := True;
    EEE.SheetsInNewWorkbook[lcid]:=5;
    EEE.Workbooks.Add(EmptyParam,lcid);
    ASheet.ConnectTo(EEE.ActiveWorkbook.Sheets[1] as _Worksheet);
    ASheet.Name:='Книhjjhjhjh';

    // здесь работаем с Excel'ем
(*  finally
    // отсоединяемся
    EEE.UserControl := True; // отдадим управление пользователю
    EEE.Quit; // закрыть Excel
    EEE.Disconnect;
    FreeAndNil(EEE);
  end;   *)
end;

и ошибку еще приписывает:Access violation at address 004DDAE2 in modul...

[Скандербег]

Так переименовывает и без ошибок:

    ...
  (EEE.ActiveWorkbook.ActiveSheet as _Worksheet).Name := 'Привет';
//    ASheet.ConnectTo(EEE.ActiveWorkbook.Sheets[1] as _Worksheet);
//    ASheet.Name:='Книjjhjhjh';
  //а так для листа с указанным номером
    (EEE.ActiveWorkbook.Sheets[2] as _Worksheet).Name := 'Hello';