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

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

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

В общем, встал вопрос автоматизации создания документа.
Есть большая табличка с кучей полей в 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

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

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

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

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

Опции темы