Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

Как добавить лист в Excel   Найти похожие ветки 

 
Deni   (2004-03-25 10:30) [0]

Соединяюсь с Excel через компоненту ExcelApplication следующим образом: (XLApp - это и есть компонента ExcelApplication)

// Соединяюсь с сервером TExcelApplication
  XLApp.Connect;
// Добавляю WorkBooks в ExcelApplication
  XLApp.WorkBooks.Add(xlWBatWorkSheet,0);
// Выбираю первую WorkBook
  WorkBk := XLApp.WorkBooks.Item[1];
// Определяю первый WorkSheet
  WorkSheet := WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;

//Здесь пересылаю какие-то данные

  XLApp.Visible[0] := True;
  XLApp.Disconnect;

При таком раскладе в WorkBook есть только 1 лист. ВОПРОС! Как в этой схеме добавить лист и сделать его текущим?


 
SeZam   (2004-03-25 10:57) [1]

Попробуй:
XLApp.Sheets.Add(Параметры)


 
Deni   (2004-03-25 11:04) [2]

Я пробовал так:
XLApp.WorkSheets.Add("А какие параметры здесь писать???");


 
Deni   (2004-03-25 11:10) [3]

Короче вопрос такой, какие параметры писать, чтобы добавить обычные нормальный лист? И где их вообще можно посмотреть? В справке Excel нет...


 
LexXP ©   (2004-03-25 12:40) [4]

Запускаешь Excel
говоришь записать макрос
Добавляешь лист
Заканчиваешь запись макроса
Смотришь текст макроса
Или в VBA смотришь Object Browser

Function Add(Before:OleVariant,After:OleVariant,Count:OleVariant,Type:OleVariant, x:integer)


 
Deni   (2004-03-25 13:42) [5]

Если смотреть в макросы там будет только Sheets.Add
Это я понимаю, что Add(Before:OleVariant,After:OleVariant,Count:OleVariant,Type:OleVariant, x:integer) а какие конкретно переменные-то? Пример плиз  :(?



Страницы: 1 вся ветка

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.057 c
3-1078999104
kvi
2004-03-11 12:58
2004.04.11
TClientDataSet


3-1081944840
Flashas
2004-04-14 16:14
2004.04.11
dbgrid i mouseweel...


7-1075489491
kolpin
2004-01-30 22:04
2004.04.11
Запись файлов и папок на CD-RW


1-1082902802
ss300
2004-04-25 18:20
2004.04.11
TBitBtn


14-1079511122
Gero
2004-03-17 11:12
2004.04.11
В сиднейском аэропорту "обмяк" самолёт :)