Не могу создать новые листы Excel

@ULTIMITE · Регистрация: 01.10.2012

Author24 — интернет-сервис помощи студентам

В общем у меня есть процедура, которая в добавок ко всему создает новый лист excel (если это требуется) и переносит туда данные. Ругается на первую же строчку в коде, указанном ниже:

Код

// Создаем новый лист
      if ExBook.Worksheets.Count >= (SegNum + 1) then
        ExSheet := ExBook.Worksheets[SegNum+1]
      else
        ExSheet := ExBook.Worksheets.Add(After:=ExSheet);

Ошибка следующая:

Код

Project Practice_2.exe raised exception class EVariantInvalidOpError with message 'Invalid vareint operator'. Process stoped. Use Step or Run to continue.

Кто подскажет, в чем дело? Код создание листа по данному принципу я взял из интернета, немного подогнав под себя, поэтому мне не понятно, в чем ошибка!

Добавлено через 22 часа 5 минут
Кто-нибудь знает, в чем может быть дело? Подскажите пожалуйста, а то у меня работа застопорилась на этом

@nimp · 25.06.2013, 14:10

Delphi

1
2
3

xlsWB.Sheets.Add;
xlsWB.Sheets[xlsWB.ActiveSheet.Name].Move (After := xlsWB.Sheets[xlsWB.Sheets.Count]);
xlsWB.Sheets[xlsWB.Sheets.Count].Name :=cSubParam[integer(spStatement)];

Я у себя делал так... это кусочек добавление листа

@ULTIMITE · 25.06.2013, 14:48 **[ТС]**

@nimp, Если листы просто добавлять, они будут ссумироватся при каждом выполнении программы, а я хочу сделать это с обновлением листов, т.е. если у меня уже есть второй лист, то не создать лист, а работать со вторым. SegNum - это счетчик листов, с кодом, представленным ниже, он изначально равен двум:

Код

// Создаем новый лист
      if ExBook.worksheets.Count >= SegNum then
        ExSheet := ExBook.Worksheets[SegNum]
      else
        ExSheet := ExBook.Worksheets.Add(After:=ExSheet);
// Далее идет заполнение листа, я опущу этот код...
SegNum := SegNum + 1;

А если SegNum больше, чем количество листов, то программа просто создает лист. Но из-за ошибки, представленной в начале темы, этого не происходит! Мне нужно понять причину ошибки, что я сделал не так?

@nimp · 25.06.2013, 14:56

Delphi

var
  ExApp, ExBook, ExSheet: Variant;
  SegNum: integer;
begin
  ExApp := CreateOleObject('Excel.Application');
  ExBook := ExApp.Application.WorkBooks.Add();
  ExSheet := ExBook.Sheets[1];
 
  ExApp.Visible := true;
 
  SegNum := 4;
  if ExBook.worksheets.Count >= SegNum then
    ExSheet := ExBook.Worksheets[SegNum]
  else
    ExSheet := ExBook.Worksheets.Add(After:=ExSheet);

А ты уверен что ошибка в добавлении? Тот код что я наверху написал у меня работает.
Какой дельф и офис?

@ULTIMITE · 25.06.2013, 15:18 **[ТС]**

@nimp, дельф 7, офис 2003, должны работать. Попробуй сегнам указать 2

@nimp · 25.06.2013, 15:27

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

@nimp, дельф 7, офис 2003, должны работать. Попробуй сегнам указать 2

Пробовал, все фурычит... Вот вложение...

@ULTIMITE 0 / 0 / 1 Регистрация: 01.10.2012 Сообщений: 71
		1
	Не могу создать новые листы Excel 25.06.2013, 13:34. Показов 5427. Ответов 5 Метки нет (Все метки) В общем у меня есть процедура, которая в добавок ко всему создает новый лист excel (если это требуется) и переносит туда данные. Ругается на первую же строчку в коде, указанном ниже: Код // Создаем новый лист if ExBook.Worksheets.Count >= (SegNum + 1) then ExSheet := ExBook.Worksheets[SegNum+1] else ExSheet := ExBook.Worksheets.Add(After:=ExSheet); Ошибка следующая: Код Project Practice_2.exe raised exception class EVariantInvalidOpError with message 'Invalid vareint operator'. Process stoped. Use Step or Run to continue. Кто подскажет, в чем дело? Код создание листа по данному принципу я взял из интернета, немного подогнав под себя, поэтому мне не понятно, в чем ошибка! Добавлено через 22 часа 5 минут Кто-нибудь знает, в чем может быть дело? Подскажите пожалуйста, а то у меня работа застопорилась на этом 0

@ULTIMITE 0 / 0 / 1 Регистрация: 01.10.2012 Сообщений: 71
	25.06.2013, 14:48 [ТС]	3
	@nimp, Если листы просто добавлять, они будут ссумироватся при каждом выполнении программы, а я хочу сделать это с обновлением листов, т.е. если у меня уже есть второй лист, то не создать лист, а работать со вторым. SegNum - это счетчик листов, с кодом, представленным ниже, он изначально равен двум: Код // Создаем новый лист if ExBook.worksheets.Count >= SegNum then ExSheet := ExBook.Worksheets[SegNum] else ExSheet := ExBook.Worksheets.Add(After:=ExSheet); // Далее идет заполнение листа, я опущу этот код... SegNum := SegNum + 1; А если SegNum больше, чем количество листов, то программа просто создает лист. Но из-за ошибки, представленной в начале темы, этого не происходит! Мне нужно понять причину ошибки, что я сделал не так? 0

@ULTIMITE 0 / 0 / 1 Регистрация: 01.10.2012 Сообщений: 71
	25.06.2013, 15:18 [ТС]	5
	@nimp, дельф 7, офис 2003, должны работать. Попробуй сегнам указать 2 0

	25.06.2013, 15:27