Delphi excel добавить лист в книгу

уважаемые посетители блога, если Вам понравилась, то, пожалуйста, помогите автору с лечением. Подробности тут.

В прошлые раз мы с Вами остановились на сохранении рабочей книги. В принципе, ничего сложного в запуске Excel, создании и сохранении рабочей книги нет. Сегодня заглянем немного глубже в работу с Microsoft Excel в Delphi — рассмотрим как можно работать с листами рабочей книги, изменять внешний вид ячеек и попробуем скопировать таблицу из своего приложения в открытую рабочую книгу.

План статьи:

• Объекты Microsoft Excel
• Как активировать лист рабочей книги Excel?
• Методы  листа книги Excel

Однако прежде, чем забираться в дебри Excel я хотел продемонстрировать Вам насколько глубоко мы сегодня заглянем.

1. Объекты Microsoft Excel

На рисунке я попробовал изобразить объектную модель Excel в миниатюре. Т.е. из этой модели исключены не требующиеся пока нам элементы, например такие, как свойства рабочей книги или выделенные объекты Selection — об этом речь пойдет позже.

Как Вы можете судить по представленной модели, а также и по собственному опыту работы, приложение Excel в общем случае может содержать коллекцию рабочих книг (WorkBooks Collection). Для доступа к конкретной рабочей книге мы с Вами использовали свойства Item коллекции:

WorkBook:=WorkBooks.Item[index]

где index — порядковый номер рабочей книги в коллекции WorkBooks.

И на этом наше первое  знакомство с Excel закончилось. Между тем, каждая отдельная рабочая книга может содержать N листов, каждый из которых состоит из N ячеек, которые могут быть объединены в объекты Range.

На каждой из ступеней этой модели можно останавливаться и изучать её месяцами. Если будет особая необходимость в изучении каких-либо дополнительных свойств и методов — мы обязательно вернемся и изучим. А теперь, приступим к работе в Delphi с листами рабочей книги.

2. Как активировать лист рабочей книги Excel?

Как Вы знаете при создании пустой рабочей книги Excel автоматически добавляет в эту книгу 3 пустых листа. Чтобы работать с конкретным листом (WorkSheet или просто Sheet) этот лист необходимо активировать. Один из способов активации листа рабочей книги Excel в Delphi выглядит следующим образом:

resourcestring
  rsEInvalidSheetIndex = 'Задан неверный индекс для WorkBooks. Активация листа прервана';
  rsEInvalidSheetActivate = 'Активация листа завершена с ошибкой';
 
function ActivateSheet(WBIndex: integer; SheetName: string): boolean;
var
  i: integer;
begin
  Result := false;
  if WBIndex > MyExcel.WorkBooks.Count then
    raise Exception.Create(rsEInvalidSheetIndex);
  try
    for i := 1 to MyExcel.WorkBooks[WBIndex].Sheets.Count do
      if AnsiLowerCase(MyExcel.WorkBooks[WBIndex].Sheets.Item[i].Name)
        = AnsiLowerCase(SheetName) then
      begin
        MyExcel.WorkBooks[WBIndex].Sheets.Item[i].Activate;
        Result := true;
        break;
      end;
  except
    raise Exception.Create(rsEInvalidSheetActivate);
  end;
end;

Здесь в качестве параметров функции задается индекс рабочей книги (WBIndex) в коллекции WorkBooks и название листа.

Если хотите, то можете активировать тот же лист по индексу в коллекции WorkSheets — при этом сама функция немного упрощается (не требуется условие проверки названия листа).

Также, если вы уверены, что в данный момент времени активна необходимая Вам рабочая книга, то можно избежать использования лишней переменной (индекса рабочей книги WBIndex) и активировать лист вот так:

MyExcel.ActiveWorkBook.Sheets.Item[i].Activate;

Теперь рассмотрим более подробно методы, используемые объектом WorkSheet.

3. Методы  листа книги Excel

Теперь рассмотрим более подробно объект WorkSheet.

На рисунке представлены те методы, которые я когда-либо использовал в своей работе.

Всего объект WorkSheet насчитывает 30 различных методов, которые Вы можете использовать.

Рассмотрим теперь каждый из представленных выше методов.

Метод Calculate

Расчёт рабочей книги, листа или диапазона ячеек.

Стоит отметить, что вызов метода Calculate возможен не только для конкретного рабочего листа книги Excel. Рассмотрим варианты вызова метода Calculate.

Как рассчитать все открытые в данный момент книги Excel в Delphi?

var MyExcel: OleVariant;
MyExcel.Calculate

Как рассчитать отдельный лист книги Excel в Delphi?

в приведенном ниже фрагменте кода рассчитывается активный лист

MyExcel.ActiveWorkBook.ActiveWorkSheet.Calculate

Как рассчитать диапазон ячеек листа Excel в Delphi?

Рассчитаем все формулы в столбцах A, B и C:

MyExcel.ActiveWorkBook.ActiveWorkSheet.UsedRange.Columns("A:C").Calculate

Метод CheckSpelling

Вызов метода выглядит следующим образом:

expression.CheckSpelling(CustomDictionary, IgnoreUppercase, AlwaysSuggest, SpellLang)

При этом в качестве expression должен выступать лист (WorkSheet).

Как проверить грамматику на листе Excel в Delphi?

MyExcel.ActiveWorkBook.ActiveWorkSheet.CheckSpelling(CustomDictionary:=EmptyParam,  
                                                                        IgnoreUppercase:= false, 
                                                                        AlwaysSuggest:=EmptyParam, 
                                                                        SpellLang:=1033)

в этом случае MS Excel проверит текущий лист, включая проверку слов из прописных букв. Язык проверки — русский. Обратите внимание, что для того, чтобы вызвать метод мы явно указывали, какому параметру какое значение присвоить. Причём для того, чтобы пропустить какой-либо параметр, мы использовали EmptyParam (пустой параметр), который в Delphi представляет собой переменную типа OleVariant.

Понятно, что подобный способ вызова методов (с явным указанием всех параметров) для Вас не совсем удобен и широко не практикуется в программировании на Delphi, но тем не менее только так и никак иначе можно вызывать методы, используемые в Excel.

Метод SaveAs

Сохранение рабочего листа книги Excel.

Вызов метода:

expression.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AddToMru,TextCodepage, TextVisualLayout, Local)

Как сохранить активный лист рабочей книги Excel в Delphi?

MyExcel.ActiveWorkBook.ActiveWorkSheet.SaveAs('C:MyExcelFile.xls')

В этом случае при сохранении будут использованы настройки по умолчанию.

Если Вам необходимо сохранить файл Excel в другом формате, то в параметре FileFormat можно использовать одно из значений перечислителя xlFileFormat. Некоторые значения xlFileFormat представлены в таблице ниже:

Как сохранить активный лист рабочей книги Excel в заданном формате?

Напишем небольшую процедуру, позволяющую сохранять лист Excel в различных форматах:

const
  xlCSV = 6;
  xlExcel8 = 56;
  xlHtml =44;
  xlOpenDocumentSpreadsheet = 60;
  xlOpenXMLWorkbook = 51;
 
resourcestring
  rsESaveActiveSheet = 'Ошибка сохранения активного листа книги';
 
procedure SaveAs(const AFileName: TFileName; AFileFormat: integer);
begin
 try
   MyExcel.ActiveWorkBook.ActiveSheet.SaveAs(AFileName, AFileFormat);
  except
    raise Exception.Create(rsESaveActiveSheet);
  end;
end;

Метод Delete

Удаление рабочего листа Excel.

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

MyExcel.ActiveWorkBook.ActiveWorkSheet.Delete

Метод Select

Выделение рабочего листа книги Excel.

Вызов метода:

expression.Select(Replace)

Как выделить листа рабочей книги Excel в Delphi?

MyExcel.ActiveWorkBook.WorkSheets.Item[3].Select

Выделяет третий лист книги

Метод Copy

Копирование листа в другое место в рабочей книге.

Вызов метода:

expression.Copy(Before, After)

При этом, если вы используете параметр Before, то вы не должны использовать After и наоборот. Обращу Ваше внимание, что указывается именно ЛИСТ, а не индекс листа.

Как копировать лист Excel в Delphi?

MyExcel.ActiveWorkBook.WorkSheets.Item[1].Copy(After:=MyExcel.ActiveWorkBook.WorkSheets.Item[2])

В этом случае первый лист будет скопирован и вставлен после третьего.

Метод Paste

Вставка содержимого буфера обмена на лист Excel.

Вызов метода:

expression.Paste(Destination, Link)

Как вставить содержимое буфера обмена на лист Excel в Delphi?

MyExcel.ActiveWorkBook.ActiveSheet.Paste(Destination:=MyExcel.ActiveWorkBook.ActiveSheet.Range("D1:D5"))

В этом случае содержимое буфера будет вставлено в столбец D в строки с 1 по 5. Следует отметить, что если содержимое буфера не удовлетворяет условию, например в буфере только 1 число, то вызывается исключительная ситуация.

Метод ChartObjects

Возвращает объект, который представляет собой либо одну диаграмму (объект ChartObject) или совокупность всех диаграмм (объект ChartObjects) на листе.

Вызов метода:

expression.ChartObjects[Index]

Как получить диаграмму на листе Excel в Delphi?

MyExcel.ActiveWorkBook.ActiveSheet.ChartObjects[1]

В этом случае будет получена первая диаграмма на листе.

Метод Move

Перемещение листа. Этот метод аналогичен методу Copy. Различие лишь в том, что после вcтавки копируемый лист удаляется из книги.

Вот та часть методов, которые я использовал когда-либо при работе с Excel в Delphi. Вообще можно сказать, что в Delphi можно управлять MS Excel не хуже, чем при непосредственной работе с этим приложением, главное не забывать, какой метод или свойство за что отвечает :). Ну, а для того, чтобы не забыть, я создал небольшой MindMap, который буду периодически дополнять и обновлять. Перейдя по ссылке, Вы сможете посмотреть объекты Excel, методы ими используемые, параметры методов и их типы в соответствии с типами Delphi. В общем небольшая графическая шпаргалка для любителей поразбираться с Excel в Delphi.

Книжная полка

Название:Разработка приложений Microsoft Office 2007 в Delphi Описание Описаны общие подходы к программированию приложений MS Office. Даны программные методы реализации функций MS Excel, MS Word, MS Access и MS Outlook в среде Delphi.

уважаемые посетители блога, если Вам понравилась, то, пожалуйста, помогите автору с лечением. Подробности тут.

← →
Fishka
 
(2002-09-30 12:06)
[0]

Проверяю, запущено или нет приложение EXCEL. Если нет, то пишу так:

MSExcel := CreateOleObject(«Excel.Application»);

Если запущено, то необходимо добавить лист.Макрос выглядит так:

Sheets.Add

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

А как нужно написать в программе? Как обратиться к переменной MSEXCEL типа Variant?

← →
3JIA9I CyKA
 
(2002-09-30 12:32)
[1]

← →
Fishka
 
(2002-09-30 15:54)
[2]

← →
Prooksius
 
(2002-09-30 16:04)
[3]

← →
Fishka
 
(2002-10-01 09:46)
[4]

← →
3JIA9I CyKA
 
(2002-10-01 11:30)
[5]

Найди все. Выбери по названию.

Ку?

← →
Fishka
 
(2002-10-01 12:20)
[6]

А поподробнее можно? Пожалуйста.

← →
3JIA9I CyKA
 
(2002-10-01 12:43)
[7]

У коллекций Workbooks и Worksheets есть Count.

У Workbook и Worksheet есть Name.

Этого мало?

← →
Fishka
 
(2002-10-01 16:20)
[8]

>3JIA9I CyKA © (01.10.02 12:43)

Спасибо.

Но чего-то я не догоняю.

Пишу так:

MsExcel := GetActiveOleObject("Excel.Application");

count_books:=MSExcel.Workbooks.Count;

MSExcel.Workbooks[count_books].Sheets.Add;

count_sheets:=MSExcel.WorkSheets.Count;

MSExcel.Workbooks[count_books].WorkSheets[count_sheets].Select;

И далее заполняю ячейки. Новый лист в книгу добавляется, но почему-то
всегда заполняются ячейки 3-го листа, хотя последний добавленный лист в книге называется «лист6».

В чем мои ошибки?

← →
max2057
 
(2002-10-01 16:28)
[9]

function PrepareExcel(ListName :string): boolean;

begin

result := true ;

try

try

Excel:= GetActiveOleObject(«Excel.Application»);

except

try

Excel := CreateOleObject(«Excel.Application»);

except

ShowMessage(«

← →
3JIA9I CyKA
 
(2002-10-01 16:34)
[10]

← →
Fishka
 
(2002-10-01 16:40)
[11]

>3JIA9I CyKA © (01.10.02 16:34)

Я вообще-то не про название говорю, а о том, почему всегда заполняются ячейки одного и того же листа, а не последнего добавленного.

← →
3JIA9I CyKA
 
(2002-10-01 16:51)
[12]

Re[4]: Как добавить через Делфи лист в Excel?

Здравствуйте Whisperer, Вы писали:

W>Здравствуйте Yury_Malich, Вы писали:

YM>>Здравствуйте Whisperer, Вы писали:

W>>>Здравствуйте Yury_Malich, Вы писали:

YM>>>>Есть фукция
YM>>>>TExcelApplication.Worksheets.Add(Before: OleVariant; After: OleVariant; Count: OleVariant; Type_: OleVariant;
YM>>>>lcid: Integer): IDispatch; safecall;
YM>>>>Я пробовал её при самых разных параметрах (например:
YM>>>>Add(2,1,1,xlWorksheet,1);
YM>>>>Add(‘Лист2′,’Лист1’,1,xlWorksheet,1);
YM>>>>Add(ExcelApplBase.Worksheets.Item[2],ExcelApplBase.Worksheets.Item[1],1,xlWorksheet,1);
YM>>>>и множество других сочетаний параметров Before,After,lcid и Type_
YM>>>>), но при любом выскакивает ошибка:
YM>>>>’OLE error 800A03EC’. При этом с функцией Workbooks.Add никаких проблем нет.
YM>>>>Если мне кто-нибудь приведёт работающий пример, я буду очень благодарен.
YM>>>>Спасибо
YM>>>>Юрий
W>>>Я бы натвоем месте сначала почитал MSDN
W>>>вот кусок

W>>>Creates a new worksheet. The new worksheet becomes the active sheet. Returns a Worksheet object.
W>>>Syntax
W>>>expression.Add(Before, After, Count, Type)
W>>>expression Required. An expression that returns a Worksheets object.
W>>>Before Optional Variant. An object that specifies the sheet before which the new sheet is added.
W>>>After Optional Variant. An object that specifies the sheet after which the new sheet is added.
W>>>Count Optional Variant. The number of sheets to be added. The default value is one.
W>>>Type Optional Variant. The sheet type. Can be one of the following XlSheetType constants: xlWorksheet, xlExcel4MacroSheet, or xlExcel4IntlMacroSheet. The default value is xlWorksheet.
W>>>Remarks
W>>>If Before and After are both omitted, the new sheet is inserted before the active sheet.
W>>>———————————————————————————

YM>>Ну знаешь… В общем, как говорится, не умничайте. Я это уже читал. То же самое написано в справке VisualBasic к Excel. Ты мне работающий пример на Делфи приведи.
YM>>Спасибо, конечно, но ответ не катит.

W>Да вы необежайтесь — я не умнечаю, но так думаю ты пытаешься создать лист без страници вот и
W>ошибка васкакивает

W>Этот код работает

W>procedure TForm1.Button1Click(Sender: TObject);
W>var
W> lcid: Integer;
W> Before: OleVariant;
W> After: OleVariant;
W> Count: OleVariant;
W> Type_: OleVariant;
W>begin
W> ExcelApplication1.Workbooks.Add(xlWBATWorksheet,1); а если это убрать таже ошибка
W> Before:= ExcelApplication1.Sheets.Add(
W> EmptyParam,EmptyParam, EmptyParam,EmptyParam,0);
W> After:= EmptyParam;
W> lcid := 1;
W> Count := 1;
W> Type_ := xlWorksheet;
W> ExcelApplication1.Worksheets.Add(Before,After,Count,Type_,lcid);

W>end;

W>ну а дальше экспериментируй.

И так работает

ExcelApplication1.Workbooks.Add(xlWBATWorksheet,1);
Before:= ExcelApplication1.Worksheets.Item[1];
After:= EmptyParam;
lcid := 1;
Count := 10;
Type_ := xlWorksheet;
ExcelApplication1.Worksheets.Add(Before,After,Count,Type_,lcid);

так что извенения в студию, или хотябы ОЦЕНОЧКУ

Как добавить через Делфи лист в Excel?

Re: Как добавить через Делфи лист в Excel?

Здравствуйте Yury_Malich, Вы писали:

YM>Есть фукция
YM>TExcelApplication.Worksheets.Add(Before: OleVariant; After: OleVariant; Count: OleVariant; Type_: OleVariant;
YM>lcid: Integer): IDispatch; safecall;
YM>Я пробовал её при самых разных параметрах (например:
YM>Add(2,1,1,xlWorksheet,1);
YM>Add(‘Лист2′,’Лист1’,1,xlWorksheet,1);
YM>Add(ExcelApplBase.Worksheets.Item[2],ExcelApplBase.Worksheets.Item[1],1,xlWorksheet,1);
YM>и множество других сочетаний параметров Before,After,lcid и Type_
YM>), но при любом выскакивает ошибка:
YM>’OLE error 800A03EC’. При этом с функцией Workbooks.Add никаких проблем нет.
YM>Если мне кто-нибудь приведёт работающий пример, я буду очень благодарен.
YM>Спасибо
YM>Юрий
Я бы натвоем месте сначала почитал MSDN
вот кусок

Creates a new worksheet. The new worksheet becomes the active sheet. Returns a Worksheet object.
Syntax
expression.Add(Before, After, Count, Type)
expression Required. An expression that returns a Worksheets object.
Before Optional Variant. An object that specifies the sheet before which the new sheet is added.
After Optional Variant. An object that specifies the sheet after which the new sheet is added.
Count Optional Variant. The number of sheets to be added. The default value is one.
Type Optional Variant. The sheet type. Can be one of the following XlSheetType constants: xlWorksheet, xlExcel4MacroSheet, or xlExcel4IntlMacroSheet. The default value is xlWorksheet.
Remarks
If Before and After are both omitted, the new sheet is inserted before the active sheet.
———————————————————————————

Re[2]: Как добавить через Делфи лист в Excel?

Здравствуйте Whisperer, Вы писали:

W>Здравствуйте Yury_Malich, Вы писали:

YM>>Есть фукция
YM>>TExcelApplication.Worksheets.Add(Before: OleVariant; After: OleVariant; Count: OleVariant; Type_: OleVariant;
YM>>lcid: Integer): IDispatch; safecall;
YM>>Я пробовал её при самых разных параметрах (например:
YM>>Add(2,1,1,xlWorksheet,1);
YM>>Add(‘Лист2′,’Лист1’,1,xlWorksheet,1);
YM>>Add(ExcelApplBase.Worksheets.Item[2],ExcelApplBase.Worksheets.Item[1],1,xlWorksheet,1);
YM>>и множество других сочетаний параметров Before,After,lcid и Type_
YM>>), но при любом выскакивает ошибка:
YM>>’OLE error 800A03EC’. При этом с функцией Workbooks.Add никаких проблем нет.
YM>>Если мне кто-нибудь приведёт работающий пример, я буду очень благодарен.
YM>>Спасибо
YM>>Юрий
W>Я бы натвоем месте сначала почитал MSDN
W>вот кусок

W>Creates a new worksheet. The new worksheet becomes the active sheet. Returns a Worksheet object.
W>Syntax
W>expression.Add(Before, After, Count, Type)
W>expression Required. An expression that returns a Worksheets object.
W>Before Optional Variant. An object that specifies the sheet before which the new sheet is added.
W>After Optional Variant. An object that specifies the sheet after which the new sheet is added.
W>Count Optional Variant. The number of sheets to be added. The default value is one.
W>Type Optional Variant. The sheet type. Can be one of the following XlSheetType constants: xlWorksheet, xlExcel4MacroSheet, or xlExcel4IntlMacroSheet. The default value is xlWorksheet.
W>Remarks
W>If Before and After are both omitted, the new sheet is inserted before the active sheet.
W>———————————————————————————

Ну знаешь… В общем, как говорится, не умничайте. Я это уже читал. То же самое написано в справке VisualBasic к Excel. Ты мне работающий пример на Делфи приведи.
Спасибо, конечно, но ответ не катит.

Re[3]: Как добавить через Делфи лист в Excel?

Здравствуйте Yury_Malich, Вы писали:

YM>Здравствуйте Whisperer, Вы писали:

W>>Здравствуйте Yury_Malich, Вы писали:

YM>>>Есть фукция
YM>>>TExcelApplication.Worksheets.Add(Before: OleVariant; After: OleVariant; Count: OleVariant; Type_: OleVariant;
YM>>>lcid: Integer): IDispatch; safecall;
YM>>>Я пробовал её при самых разных параметрах (например:
YM>>>Add(2,1,1,xlWorksheet,1);
YM>>>Add(‘Лист2′,’Лист1’,1,xlWorksheet,1);
YM>>>Add(ExcelApplBase.Worksheets.Item[2],ExcelApplBase.Worksheets.Item[1],1,xlWorksheet,1);
YM>>>и множество других сочетаний параметров Before,After,lcid и Type_
YM>>>), но при любом выскакивает ошибка:
YM>>>’OLE error 800A03EC’. При этом с функцией Workbooks.Add никаких проблем нет.
YM>>>Если мне кто-нибудь приведёт работающий пример, я буду очень благодарен.
YM>>>Спасибо
YM>>>Юрий
W>>Я бы натвоем месте сначала почитал MSDN
W>>вот кусок

W>>Creates a new worksheet. The new worksheet becomes the active sheet. Returns a Worksheet object.
W>>Syntax
W>>expression.Add(Before, After, Count, Type)
W>>expression Required. An expression that returns a Worksheets object.
W>>Before Optional Variant. An object that specifies the sheet before which the new sheet is added.
W>>After Optional Variant. An object that specifies the sheet after which the new sheet is added.
W>>Count Optional Variant. The number of sheets to be added. The default value is one.
W>>Type Optional Variant. The sheet type. Can be one of the following XlSheetType constants: xlWorksheet, xlExcel4MacroSheet, or xlExcel4IntlMacroSheet. The default value is xlWorksheet.
W>>Remarks
W>>If Before and After are both omitted, the new sheet is inserted before the active sheet.
W>>———————————————————————————

YM>Ну знаешь… В общем, как говорится, не умничайте. Я это уже читал. То же самое написано в справке VisualBasic к Excel. Ты мне работающий пример на Делфи приведи.
YM>Спасибо, конечно, но ответ не катит.

Да вы необежайтесь — я не умнечаю, но так думаю ты пытаешься создать лист без страници вот и
ошибка васкакивает

Этот код работает

procedure TForm1.Button1Click(Sender: TObject);
var
lcid: Integer;
Before: OleVariant;
After: OleVariant;
Count: OleVariant;
Type_: OleVariant;
begin
ExcelApplication1.Workbooks.Add(xlWBATWorksheet,1); а если это убрать таже ошибка
Before:= ExcelApplication1.Sheets.Add(
EmptyParam,EmptyParam, EmptyParam,EmptyParam,0);
After:= EmptyParam;
lcid := 1;
Count := 1;
Type_ := xlWorksheet;
ExcelApplication1.Worksheets.Add(Before,After,Count,Type_,lcid);

end;

ну а дальше экспериментируй.

Re[5]: Как добавить через Делфи лист в Excel?

Здравствуйте Whisperer, Вы писали:

W>Здравствуйте Whisperer, Вы писали:

W>>Здравствуйте Yury_Malich, Вы писали:

YM>>>Здравствуйте Whisperer, Вы писали:

W>>>>Здравствуйте Yury_Malich, Вы писали:

YM>>>>>Есть фукция
YM>>>>>TExcelApplication.Worksheets.Add(Before: OleVariant; After: OleVariant; Count: OleVariant; Type_: OleVariant;
YM>>>>>lcid: Integer): IDispatch; safecall;
YM>>>>>Я пробовал её при самых разных параметрах (например:
YM>>>>>Add(2,1,1,xlWorksheet,1);
YM>>>>>Add(‘Лист2′,’Лист1’,1,xlWorksheet,1);
YM>>>>>Add(ExcelApplBase.Worksheets.Item[2],ExcelApplBase.Worksheets.Item[1],1,xlWorksheet,1);
YM>>>>>и множество других сочетаний параметров Before,After,lcid и Type_
YM>>>>>), но при любом выскакивает ошибка:
YM>>>>>’OLE error 800A03EC’. При этом с функцией Workbooks.Add никаких проблем нет.
YM>>>>>Если мне кто-нибудь приведёт работающий пример, я буду очень благодарен.
YM>>>>>Спасибо
YM>>>>>Юрий
W>>>>Я бы натвоем месте сначала почитал MSDN
W>>>>вот кусок

W>>>>Creates a new worksheet. The new worksheet becomes the active sheet. Returns a Worksheet object.
W>>>>Syntax
W>>>>expression.Add(Before, After, Count, Type)
W>>>>expression Required. An expression that returns a Worksheets object.
W>>>>Before Optional Variant. An object that specifies the sheet before which the new sheet is added.
W>>>>After Optional Variant. An object that specifies the sheet after which the new sheet is added.
W>>>>Count Optional Variant. The number of sheets to be added. The default value is one.
W>>>>Type Optional Variant. The sheet type. Can be one of the following XlSheetType constants: xlWorksheet, xlExcel4MacroSheet, or xlExcel4IntlMacroSheet. The default value is xlWorksheet.
W>>>>Remarks
W>>>>If Before and After are both omitted, the new sheet is inserted before the active sheet.
W>>>>———————————————————————————

YM>>>Ну знаешь… В общем, как говорится, не умничайте. Я это уже читал. То же самое написано в справке VisualBasic к Excel. Ты мне работающий пример на Делфи приведи.
YM>>>Спасибо, конечно, но ответ не катит.

W>>Да вы необежайтесь — я не умнечаю, но так думаю ты пытаешься создать лист без страници вот и
W>>ошибка васкакивает

W>>Этот код работает

W>>procedure TForm1.Button1Click(Sender: TObject);
W>>var
W>> lcid: Integer;
W>> Before: OleVariant;
W>> After: OleVariant;
W>> Count: OleVariant;
W>> Type_: OleVariant;
W>>begin
W>> ExcelApplication1.Workbooks.Add(xlWBATWorksheet,1); а если это убрать таже ошибка
W>> Before:= ExcelApplication1.Sheets.Add(
W>> EmptyParam,EmptyParam, EmptyParam,EmptyParam,0);
W>> After:= EmptyParam;
W>> lcid := 1;
W>> Count := 1;
W>> Type_ := xlWorksheet;
W>> ExcelApplication1.Worksheets.Add(Before,After,Count,Type_,lcid);

W>>end;

W>>ну а дальше экспериментируй.

W>И так работает

W> ExcelApplication1.Workbooks.Add(xlWBATWorksheet,1);
W> Before:= ExcelApplication1.Worksheets.Item[1];
W> After:= EmptyParam;
W> lcid := 1;
W> Count := 10;
W> Type_ := xlWorksheet;
W> ExcelApplication1.Worksheets.Add(Before,After,Count,Type_,lcid);

W>так что извенения в студию, или хотябы ОЦЕНОЧКУ

Спасибо тебе преогромное, выручил. Моя благодарность не будет иметь границ (в пределах разумного, разумеется ). Я потестит вся загвоздка заключалася в After=EmptyParam (или Before=EmptyParam, в принципе без разницы), остальной код в моём приложении остался без изменений.
Спасибо.
Юрий

Re[6]: Как добавить через Делфи лист в Excel?

Здравствуйте Yury_Malich, Здравствуйте Whisperer, Вы писали:

[skipped]

Ребята, когда отвечаете на вопрос, достаточно и небольшого цитирования, чтобы адресат понял, к чему относится ваша реплика. Не ленИтесь нажимать Backspace!

Re[7]: Как добавить через Делфи лист в Excel?

Здравствуйте Хитрик Денис, Вы писали:

ХД>Здравствуйте Yury_Malich, Здравствуйте Whisperer, Вы писали:

ХД>[skipped]

ХД>Ребята, когда отвечаете на вопрос, достаточно и небольшого цитирования, чтобы адресат понял, к чему относится ваша реплика. Не ленИтесь нажимать Backspace!

А в чем собственна проблема. Текст много места незанимает, а так человек всю историю разговора видит.
Но замечания я приму к сведению.