Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос на VBA - копировать из вкладки в файл - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Макрос на VBA - копировать из вкладки в файл
dima2013 Дата: Четверг, 17.05.2012, 15:51 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Добрый день!

Подскажите, как написать такой макрос для EXL.
Есть файл с несколькими вкладками, на каждой - таблица.
И есть список городов.
Нужно - таблицы из каждой вкладки скопировать в отдельный файл, имя файла - название города из таблицы.

Как реализовать на VBA:
- переключение между вкладками
- открытие нового файла
- сохранение нового файла с именем города
- закрытие нового файла
- возвращение в исходному файлу

Или может есть решение готовое - как разделить один exl файл на несколько - по вкладкам, т.е. одна вкладка - один файл?


Сообщение отредактировал dima2013 - Пятница, 18.05.2012, 07:25
 
Ответить
СообщениеДобрый день!

Подскажите, как написать такой макрос для EXL.
Есть файл с несколькими вкладками, на каждой - таблица.
И есть список городов.
Нужно - таблицы из каждой вкладки скопировать в отдельный файл, имя файла - название города из таблицы.

Как реализовать на VBA:
- переключение между вкладками
- открытие нового файла
- сохранение нового файла с именем города
- закрытие нового файла
- возвращение в исходному файлу

Или может есть решение готовое - как разделить один exl файл на несколько - по вкладкам, т.е. одна вкладка - один файл?

Автор - dima2013
Дата добавления - 17.05.2012 в 15:51
Hugo Дата: Четверг, 17.05.2012, 19:37 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3690
Репутация: 790 ±
Замечаний: 0% ±

365
Пока примера файла нет - для затравки:
http://www.planetaexcel.ru/forum.php?thread_id=22715


webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеПока примера файла нет - для затравки:
http://www.planetaexcel.ru/forum.php?thread_id=22715

Автор - Hugo
Дата добавления - 17.05.2012 в 19:37
dima2013 Дата: Пятница, 18.05.2012, 07:23 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Спасибо большое!!!

Еще один вопрос:

Во вкладках (50 штук) - стоят формулы (значения берутся из первого листа).
Как автоматически заменить их значениями формул - т.е. автоматически выполнить команды "копировать, специальная вставка-значения"?
Где можно найти готовое решение с такой функцией (макрос или надстройка)?

Или подскажите - какую функцию VBA использовать для переключения между вкладками?


Сообщение отредактировал dima2013 - Пятница, 18.05.2012, 08:13
 
Ответить
СообщениеСпасибо большое!!!

Еще один вопрос:

Во вкладках (50 штук) - стоят формулы (значения берутся из первого листа).
Как автоматически заменить их значениями формул - т.е. автоматически выполнить команды "копировать, специальная вставка-значения"?
Где можно найти готовое решение с такой функцией (макрос или надстройка)?

Или подскажите - какую функцию VBA использовать для переключения между вкладками?

Автор - dima2013
Дата добавления - 18.05.2012 в 07:23
Serge_007 Дата: Пятница, 18.05.2012, 09:06 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Quote (dima2013)
какую функцию VBA использовать для переключения между вкладками

Sheets.Activate


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (dima2013)
какую функцию VBA использовать для переключения между вкладками

Sheets.Activate

Автор - Serge_007
Дата добавления - 18.05.2012 в 09:06
Саня Дата: Пятница, 18.05.2012, 10:20 | Сообщение № 5
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
[vba]
Code
Sheets(i).Activate
[/vba]
 
Ответить
Сообщение[vba]
Code
Sheets(i).Activate
[/vba]

Автор - Саня
Дата добавления - 18.05.2012 в 10:20
Hugo Дата: Пятница, 18.05.2012, 10:44 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3690
Репутация: 790 ±
Замечаний: 0% ±

365
автоматически выполнить команды "копировать, специальная вставка-значения"?
[vba]
Code
    With Sheets(i)
          .UsedRange.Value = .UsedRange.Value
      End With
[/vba]

Это вероятно лучше сделать до копирования листов. Оригинал в конце закрыть без сохранения изменений.


webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
Сообщениеавтоматически выполнить команды "копировать, специальная вставка-значения"?
[vba]
Code
    With Sheets(i)
          .UsedRange.Value = .UsedRange.Value
      End With
[/vba]

Это вероятно лучше сделать до копирования листов. Оригинал в конце закрыть без сохранения изменений.

Автор - Hugo
Дата добавления - 18.05.2012 в 10:44
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!