Профессиональные приемы работы в Microsoft Excel

Пожалуйста, войдите или зарегистрируйтесь.


Расширенный поиск  

Новости:

Подпишитесь на рассылку новых сообщений форума через службу рассылок: Subscribe.ru

Автор Тема: Перенос данных из одной книги в другую  (Прочитано 1172 раз)

0 Пользователей и 1 Гость просматривают эту тему.

andrewgusev

  • Новичок
  • *
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 2

Добрый день!

Хотел попросить о помощи:

У меня есть 100+ книг, лежащих в одной папке, созданных по одному шаблону. Сейчас я видоизменил исходный шаблон и хотел бы переместить всю информацию из старых книг в новый шаблон. Схема такая:

1)У меня открыт шаблон в котором будет написан макрос
2)Макрос идет в папку и открывает первую книгу
3)Копирует определенные ячейки и вставляет их в определенные ячейки шаблона
4)Закрывает старую книгу
5)Новый шаблон с информацией сохраняет под именем из одной из ячеек
6)Открывает следующую книгу
7)Копирует определенные ячейки и вставляет их в определенные ячейки шаблона

и тд. пока не пройдет по всем старым книгам и не создаст альтернативные им новые.

я попробовал написать макрос для обращения к одной книге:

Sub Get_Value_From_Close_Book_Formula()

Dim sPath As String, sFile As String, sShName As String

sPath = "S:\..."
sFile = "..."
sShName = "General info"
With Range("B1:B2")
.Formula = "='" & sPath & "[" & sFile & "]" & sShName & "'!" & "B1:B2"
.Value = .Value

End With
End Sub

ну это на примере копирования части ячеек.

хотел попросить о помощи в переборе по всем книгам и сохранении и тд.(и возможного другого варианта копирования.

К сожалению целиком листы копировать нельзя поэтому только определенные ячейки
Книги содержат 3 листа и со всех надо копировать что то на 3 листа нового шаблона

Спасибо заранее тому, кто сможет подсказать.
Записан

RAN

  • Постоялец
  • ***
  • Уважение: +12/-0
  • Оффлайн Оффлайн
  • Сообщений: 125

Заранее спасибо тут не котируется.
Если платно - пишите. Сделаю.
Записан

andrewgusev

  • Новичок
  • *
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 2

Стоимость и сроки?
Записан

RAN

  • Постоялец
  • ***
  • Уважение: +12/-0
  • Оффлайн Оффлайн
  • Сообщений: 125

Почта в подписи.
С вас "Что есть" + "Что надо".
Сроки - когда надо?
Цена - за мороженое не работаю.
Записан
 



Темы без ответов

22.05.2018 11:38 Скрипт написать который допишет данные в файл 148
03.03.2018 00:00 Подсчет отработанного времени, за исключением заранее определенных перерывов 587
14.02.2018 10:11 Подготовить читабельную отчетность по платежам 554
23.01.2018 13:46 Найти вероятность повторной покупки 565
12.01.2018 23:56 Сделать отчет на Power BI (Dashboard) 754
06.09.2017 10:43 Solver VBA не решает гиперболическое уравнение, но при этом решает гармоническое 836
17.08.2017 12:15 Гиперссылка и фильтр одновременно макрос 1062
23.05.2017 11:20 Копирование данных из одной таблицы в умную таблицу по условию 2499
15.03.2017 15:45 автозамена картинок PowerPoint 1557
11.03.2017 13:43 Изменить нумерацию страниц 1785





Яндекс цитирования msexcel.ru Яндекс.Метрика

Страница сгенерирована за 0.097 секунд. Запросов: 108.