WorkSheet, WorkBook

← →
john_mag © (2005-06-06 12:42) [0]

уважаемые мастера, может мне уже пора на пенсию?но вот уже 2 часа бьюсь над тем, чтобы добавить вторую страничку в Excel из программы, а она мне все время "не верный индекс". Код внизу. Если кто-то что-то подскажет буду бесконечно благодарен!

IIndex := 1;
ExcelApplication1.Connect;
ExcelApplication1.WorkBooks.Add(xlWBatWorkSheet,0);
WorkBk := ExcelApplication1.WorkBooks.Item[IIndex];
WorkSheet := WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;
xlsheet:= ExcelApplication1.WorkBooks[1].WorkSheets[1];
WorkSheet.name := "Customers";
ExcelApplication1.Visible[0] := True;
ExcelApplication1.Quit;
ExcelApplication1.Disconnect;

← →
Digitman © (2005-06-06 12:44) [1]

индексы коллекций там, кажись, имеют нумерацию с "нуля", а не с "единицы"

← →
john_mag © (2005-06-06 12:52) [2]

IIndex:= 0; - неверный индекс
я же говорю, что 2 часа бьюсь, а добавить не могу эту ср.. страницу...

← →
Digitman © (2005-06-06 13:04) [3]

неверен индекс книги или индекс листа в книге ?

← →
john_mag © (2005-06-06 13:08) [4]

а я и книги и листа добавлял, но кроме единицы она ничего не кушает. Help(ы) штудирую -только еще больше запутываюсь

ты на вопрос не ответил ...

вероятно там что-то с дифолтом не в порядке ..

пробуй обращаться к эл-там коллекции явно

ТакойТоОбъект.Items.Item[Индекс]

WorkSheet, WorkBook Найти похожие ветки