Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

20 Июнь 2019, 19:03 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Часто задаваемые вопросы по LibreOffice и Apache OpenOffice.org
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1 2 »   Вниз
  Печать  
Автор Тема: Объединение таблиц на нескольких листах в одну на новом листе.  (Прочитано 13369 раз)
0 Пользователей и 1 Гость смотрят эту тему.
JohnSUN
Капитана в тот день называли на "ты"
Гуру
*******
Offline Offline

Пол: Мужской
Расположение: Киев
Сообщений: 2 764


Помогаю людям и компьютерам понимать друг друга


WWW
« Ответ #24089: 31 Январь 2014, 13:15 »

Вот для этого и просим обычно образец... Если бы шапка на 10 строк была бы в образце - первый момент уже был бы решен... Имена листов исключений какие? Надеюсь не "Аркуш13" и "Аркуш1313"?

Правки в тексте макроса для учета этих моментов будут минимальные, не волнуйся - решим легко...

По первому моменту:
в строке 28 меняешь
Код:
oCellRangeByPosition = oSheet.getCellRangeByPosition(0, 0, nEndColumn, 0)
на
Код:
oCellRangeByPosition = oSheet.getCellRangeByPosition(0, 10, nEndColumn, 10)
То есть вместо первой строки для заголовка общей таблицы взять 11-ую.
Кроме того аналогичная замена в строке 40, второй параметр "единичку" замени на 11 - брать данные не со второй строки, а с 12-ой.
(Нумерация идёт с нуля, поэтому на первых порах эти несоответствия в цифрах могут сбивать с толку)

По второму моменту:
Достаточно было бы после вычисления sName (имя листа для вписывания в колонку "Исходный лист") добавить проверку
Код:
If (sName <> "Исключение1") AND (sName <> "Исключение2") Then
и закрыть этот If оператором EndIf после Next j
« Последнее редактирование: 31 Январь 2014, 14:00 от JohnSUN » Записан

Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне
Страниц: 1 2 »   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!