VPF::Создать второй лист в екселевском документе

Lianamir

Дата 23.9.2007, 22:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 63
Регистрация: 8.9.2007

Репутация: нет
Всего: нет

Необходимо в книге создать несколко листов с названиями, получается создать только один, что я неправильно делаю?

Код


procedure TDataModule2.Action1Execute(Sender: TObject);
var
XlApp,Sheet,Colum:Variant;
Indfex,I:Integer;
begin
XLApp:= CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';// до этого моиента все нормально
        // далее как второй лист создать?

XLApp.Workbooks[1].Add.WorkSheets[2].Name:='Отчёт-2';

Добавлено @ 22:21
Пардон!!! забыла поместить в тэги
Может есть у кого пример, экспорта в эксель.
В книге есть общее понятие, один пример и все, а как например картинку на лист вставить, как второй лист создать и тд....

Это сообщение отредактировал(а) Alexeis - 23.9.2007, 22:26

kemiisto

Дата 23.9.2007, 23:14 (ссылка)

(нет голосов)

Загрузка ...

Дикий Кот. =^.^=

Награды: 1

Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

Репутация: 1
Всего: 160

По поводу кода - сначала создай лист, затем меняй его название:

Код


var
  XlApp: Variant;
begin
  XLApp := CreateOleObject('Excel.Application');
  XLApp.Visible := True;
  XLApp.Workbooks.Add(-4167);
  XLApp.Workbooks[1].Sheets[1].Name:='Отчёт';
  XLApp.Workbooks[1].Sheets.Add(After := XLApp.Workbooks[1].Sheets[XLApp.Workbooks[1].Sheets.Count]);
  XLApp.Workbooks[1].Sheets[2].Name:='Отчёт-2';
end;

Книжка, которую стоит почитать: Корняков В. Н. - Программирование документов и приложений MS Office в Delphi.

Да и еще есть такой прием, описанный много где. Открываешь Excel, совершаешь необходимые действия, при этом записываешь макрос. Затем переводишь код с VBA в свой проет Delphi.

Ну к примеру твой вопрос про картинку. Если записать макрос получим что-то типа:

Код


ActiveSheet.Pictures.Insert( _
        "C:\Program Files\Microsoft Office\MEDIA\CAGCAT10\j0090070.wmf").Select

На Delphi тоже самое выглядит так:

Код


XLApp.Workbooks[1].ActiveSheet.Pictures.Insert(
    'C:\Program Files\Microsoft Office\MEDIA\CAGCAT10\j0090070.wmf').Select;

Работает!

--------------------

XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »