Не могу создать новые листы 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

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

Новые блоги и статьи
UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форм быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .	Как создать нейросеть для генерации картинок на Python InfoMaster 12.01.2025 Генерация изображений с помощью искусственных нейронных сетей стала одним из наиболее захватывающих направлений в области компьютерного зрения и машинного обучения. В этой статье мы рассмотрим. . .	Создание нейросети для генерации текста на Python InfoMaster 12.01.2025 Нейросети, или искусственные нейронные сети, представляют собой модели машинного обучения, вдохновленные работой человеческого мозга. Они состоят из множества взаимосвязанных узлов, или "нейронов",. . .	Как создать нейросеть распознавания изображений на Python InfoMaster 12.01.2025 Введение в распознавание изображений с помощью нейросетей Распознавание изображений с помощью нейронных сетей стало одним из самых впечатляющих достижений в области искусственного интеллекта. Эта. . .
Основы искуственного интеллекта InfoMaster 12.01.2025 Искусственный интеллект (ИИ) представляет собой одну из наиболее динамично развивающихся областей современной науки и технологий. В широком смысле под искусственным интеллектом понимается способность. . .	Python и нейросети InfoMaster 12.01.2025 Искусственные нейронные сети стали неотъемлемой частью современных технологий, революционизировав множество областей - от медицинской диагностики до автономных транспортных средств. Python, благодаря. . .	Python в машинном обучении InfoMaster 12.01.2025 Python стал неотъемлемой частью современного машинного обучения, завоевав позицию ведущего языка программирования в этой области. Его популярность обусловлена несколькими ключевыми факторами, которые. . .	Создание UI на Python с TKinter InfoMaster 12.01.2025 TKinter — это одна из наиболее популярных библиотек для создания графических интерфейсов пользователей (GUI) в языке программирования Python. TKinter входит в стандартную библиотеку Python, что. . .	HTML5 в разработке мобильных приложений InfoMaster 12.01.2025 Введение: Обзор роли HTML5 в мобильной разработке В современном мире мобильных технологий HTML5 стал ключевым инструментом для разработки кроссплатформенных приложений. Эта технология произвела. . .	Как создавать приложения для iOS/iPhone InfoMaster 12.01.2025 Введение в разработку iOS-приложений Разработка приложений для iOS открывает огромные возможности в мире мобильных технологий. С каждым годом количество пользователей iPhone и iPad растет,. . .

@ULTIMITE 0 / 0 / 1 Регистрация: 01.10.2012 Сообщений: 71
		1
	Не могу создать новые листы Excel 25.06.2013, 13:34. Показов 5445. Ответов 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