Хитроумный экспорт Excel->Excel через кнопку

@BKNiMaruIchi · Регистрация: 12.04.2019

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

В общем, встал вопрос автоматизации создания документа.
Есть большая табличка с кучей полей в Excel и есть 2 разных документа, которые создаются на основе данных из этой таблицы.
Процесс копировать-вставить уже изрядно подзамучил, а в программировании меня собака съела, понятное дело не нужно семи пядей во лбу, но в тоже время не охота изобретать велосипед

В общем, смысл такой:
Из таблицы Экселя, надо из одной строки перекинуть данные в два файла, при этом нужна кнопка "Сформировать", которая на основе выбранной пользователем строки в самой таблице по заранее готовым шаблонам Экселя сможет создать два файла с разными названиями (данные по названиям файлов будут в таблице) в двух разных папках, вставить из таблицы данные в шаблоны (в шаблонах места вставки этих данных разные, не на одной линии и т.д., но в целом всегда на первом, максимум на втором листе).

Кто может мне подсказать где найти такой велосипед? Я пробовал использовать запись Макроса, но очень многого не понимаю и буду очень благодарен если мне кто укажет, что да как сделать

Кликните здесь для просмотра всего текста

Visual Basic

Sub Макрос2()
'
' Макрос2 Макрос
'
 
'
    Windows("отчет.xlsx").Activate
    Range("A2311").Select
    Selection.Copy
    Windows("1.xlsx").Activate
    Range("AP32:AX33").Select
    ActiveSheet.Paste
    Windows("отчет.xlsx").Activate
    Range("B2311").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("1.xlsx").Activate
    Range("AP32:AX33").Select
    ActiveSheet.Paste
    Windows("отчет.xlsx").Activate
    Range("F2311").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("1.xlsx").Activate
    Range("AY32:BF33").Select
    ActiveSheet.Paste
    Windows("отчет.xlsx").Activate
    ActiveWindow.LargeScroll ToRight:=1
    Range("J2311").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("1.xlsx").Activate
    Range("D49:X49").Select
    ActiveSheet.Paste
    ActiveWindow.LargeScroll ToRight:=1
    Range("N2311").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("1.xlsx").Activate
    Range("AR49:BA49").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    Windows("отчет.xlsx").Activate
End Sub

Вот так примерно выглядит копипаста в один из файлов.
Всем заранее спасибо за помощь!

@Narimanych · 12.04.2019, 14:52

BKNiMaruIchi,

Лучше приложите файлы:
1)Исходный
2) Что нужно получить...

@Казанский · 12.04.2019, 14:59

Не по теме:

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

Процесс копировать-вставить уже изрядно подзамучил

Да, и копирование-вставка на разные форумы (кросспостинг) - тоже.

Новые блоги и статьи
NoSQL базы данных: что это такое и какие существуют bytestream 22.01.2025 В современную эпоху цифровой трансформации объемы данных растут экспоненциально, создавая новые вызовы для традиционных систем управления базами данных. NoSQL (Not Only SQL) представляет собой. . .	Обновление исследования от команды MCM (январь 2025 г.) Programma_Boinc 22.01.2025 Обновление исследования от команды MCM (январь 2025 г. ) Мы продолжаем изучать молекулярные сигнатуры, связанные с раком легких, с текущим фокусом на GCM1, факторе транскрипции, участвующем в. . .	Как работать с Kafka в Go (Golang) bytestream 22.01.2025 Apache Kafka представляет собой распределенную платформу потоковой передачи данных, которая произвела революцию в области обработки событий и интеграции микросервисов. Эта система, изначально. . .	Как использовать RabbitMQ в Go (Golang) bytestream 22.01.2025 RabbitMQ представляет собой надежный и широко используемый брокер сообщений, который играет ключевую роль в построении современных распределенных систем и микросервисной архитектуры. В основе работы. . .	Как преобразовать список списков в простой список в Python bytestream 22.01.2025 При работе с Python разработчики часто сталкиваются с необходимостью обработки сложных структур данных, среди которых особое место занимают вложенные списки. Эти структуры представляют собой списки,. . .	Что такое GUID / UUID и как их создать bytestream 22.01.2025 В мире разработки программного обеспечения существует постоянная потребность в уникальной идентификации объектов, записей и ресурсов. Эта задача становится особенно актуальной в распределенных. . .
Как добавить пустую директорию в репозиторий Git bytestream 22.01.2025 При работе с системой контроля версий Git разработчики часто сталкиваются с ситуацией, когда необходимо сохранить пустую директорию в репозитории. Данная задача может показаться простой на первый. . .	Как валидировать адрес email в JavaScript bytestream 22.01.2025 JavaScript, как основной язык веб-разработки, предоставляет разработчикам множество инструментов для реализации эффективной валидации email-адресов. От простых встроенных решений до сложных. . .	Как заменить все вхождения подстроки в JavaScript bytestream 22.01.2025 Строки в JavaScript представляют собой неизменяемые последовательности символов, что делает их обработку особенно интересной с точки зрения оптимизации и выбора правильного подхода к решению задач. . . .	Управление версиями пакетов в Node.js. В чем разница между тильдой (~) и кареткой (^) в package.json bytestream 22.01.2025 В современной разработке программного обеспечения управление версиями пакетов играет ключевую роль в обеспечении стабильности и надежности проектов. Node. js, как одна из самых популярных платформ для. . .	Аутентификация на сайте с помощью формы bytestream 21.01.2025 В современном цифровом мире безопасная аутентификация становится краеугольным камнем защиты веб-приложений и пользовательских данных. Каждый день миллионы людей используют различные онлайн-сервисы,. . .	Как получить индекс в цикле for в Python bytestream 21.01.2025 При работе с коллекциями данных в Python часто возникает необходимость не только получить доступ к элементам последовательности, но и знать их позицию в процессе итерации. Индексация в циклах. . .

@Narimanych 2748 / 1722 / 779 Регистрация: 23.03.2015 Сообщений: 5,440
	12.04.2019, 14:52	2
	BKNiMaruIchi, Лучше приложите файлы: 1)Исходный 2) Что нужно получить... 0

@Казанский
	12.04.2019, 14:59 Хитроумный экспорт Excel->Excel через кнопку #3
	Не по теме: Сообщение от BKNiMaruIchi Процесс копировать-вставить уже изрядно подзамучил Да, и копирование-вставка на разные форумы (кросспостинг) - тоже. 0

Опции темы