Переставить листы в Excel

@Romi_k · Регистрация: 13.12.2014

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

Всем здрасте.
Хотел поменять в экселе листы местами (3-й с 4-м), но возникла проблема:

C++

         item = knigi.OlePropertyGet("Item", 1).OlePropertyGet("WorkSheets");
         list2 = item.OlePropertyGet("Item", 2);
         list3 = item.OlePropertyGet("Item", 3);
         list4 = item.OlePropertyGet("Item", 4);
         list4.OleProcedure("Move", list3, list2);

Builder 6 на последней строчке выдаёт ошибку E2247.
Кто- нибудь может сказать, чего она мне мозг конопатит? Как это можно устранить? Или есть ли другой способ поменять листы местами?

@Romi_k · 19.01.2017, 23:09 **[ТС]**

Специально, чтобы избавиться от этой ошибки, установил Builder XE, перелопатил программу, и ... выдаёт ровно ту-же самую ошибку.

@vxg · 20.01.2017, 06:32

Romi_k, в ВБА этот код пробовали?

@Romi_k · 20.01.2017, 12:24 **[ТС]**

Нет, не пробовал
Но дело сдвинулось. Я поменял тип переменной list2 - list4 с "OleVariant" на просто "Variant". Строитель перестал мозги полоскать, но теперь во время работы вылазит ошибка "OleSysError" на последней строчке.

Добавлено через 46 минут
Короче, всё заработало.
Поменял последнюю строчку на

C++

1	list3.OleProcedure("Move", EmptyParam, list4);

и готово дело.
Правда, работает почему-то только с "EmptyParam".
Если, например, нужно поменять местами 2-ю и 3-ю строчку, то вот так не работает:

C++

1	list2.OleProcedure("Move", list4, list3);

а вот так - пожалуйста:

C++

1	list2.OleProcedure("Move", EmptyParam, list3);

@Romi_k 1 / 1 / 1 Регистрация: 13.12.2014 Сообщений: 19
	19.01.2017, 23:09 [ТС]	2
	Специально, чтобы избавиться от этой ошибки, установил Builder XE, перелопатил программу, и ... выдаёт ровно ту-же самую ошибку. 0

@vxg Модератор 3382 / 2154 / 352 Регистрация: 13.01.2012 Сообщений: 8,364
	20.01.2017, 06:32	3
	Romi_k, в ВБА этот код пробовали? 0

	20.01.2017, 12:24

Опции темы

Переставить листы в Excel

Решение