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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вывод списка файлов в отдельный лист (Причесать уже готовое решение)
Вывод списка файлов в отдельный лист
RUSRUS495 Дата: Суббота, 02.07.2011, 09:40 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 4 ±
Замечаний: 0% ±

Есть интересное решение от EducatedFool http://excelvba.ru/code/FilenamesCollection
Выводит список файлов в отдельный лист.
У меня есть своя надсройка, куда я заношу интересные мне решения.

Вопрос: как сделать, что бы данный лист появлялся при нажатии кнопки в надстройке и соответственно "удалялся" при очистке.
Собственно говоря, нужно чуть причесать решение.
К сообщению приложен файл: FilenamesCollec.xls (55.5 Kb) · 2248288.png (74.9 Kb)

Я Юзер ушастый, в макросах ни бум-бум
 
Ответить
СообщениеЕсть интересное решение от EducatedFool http://excelvba.ru/code/FilenamesCollection
Выводит список файлов в отдельный лист.
У меня есть своя надсройка, куда я заношу интересные мне решения.

Вопрос: как сделать, что бы данный лист появлялся при нажатии кнопки в надстройке и соответственно "удалялся" при очистке.
Собственно говоря, нужно чуть причесать решение.
Автор - RUSRUS495
Дата добавления - 02.07.2011 в 09:40
Саня Дата: Суббота, 02.07.2011, 10:37 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
этот код назначишь макросу 1 (категория "Разное")
Code
Sub Макрос1()
      
     Dim wbFrom As Workbook
     Set wbFrom = Workbooks("PERSONAL.xlsb")
      
     Dim wbTo As Workbook
     Set wbTo = ActiveWorkbook
      
     Dim n As Integer
     n = wbTo.Sheets.Count
      
     wbFrom.Sheets("Список файлов").Copy After:=wbTo.Sheets(n)
      
     Set wbFrom = Nothing
     Set wbTo = Nothing
End Sub


а в "Personal.xlsb" добавь лист "Список файлов" из:
К сообщению приложен файл: 0576700.xls (54.0 Kb)
 
Ответить
Сообщениеэтот код назначишь макросу 1 (категория "Разное")
Code
Sub Макрос1()
      
     Dim wbFrom As Workbook
     Set wbFrom = Workbooks("PERSONAL.xlsb")
      
     Dim wbTo As Workbook
     Set wbTo = ActiveWorkbook
      
     Dim n As Integer
     n = wbTo.Sheets.Count
      
     wbFrom.Sheets("Список файлов").Copy After:=wbTo.Sheets(n)
      
     Set wbFrom = Nothing
     Set wbTo = Nothing
End Sub


а в "Personal.xlsb" добавь лист "Список файлов" из:
Автор - Саня
Дата добавления - 02.07.2011 в 10:37
RUSRUS495 Дата: Суббота, 02.07.2011, 15:01 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 4 ±
Замечаний: 0% ±

Саня, дело в том, что я не храню макросы в PERSONAL.xlsb. Они у меня все в моей надсройке и соответственно в ней и нужно этот лист создать и прикрутить к нему ПОЯВИЛСЯ с кнопками макросов и затем при очистке опять исчез
Есть решение такого ?
К сообщению приложен файл: 7337547.jpg (40.9 Kb)

Я Юзер ушастый, в макросах ни бум-бум
 
Ответить
СообщениеСаня, дело в том, что я не храню макросы в PERSONAL.xlsb. Они у меня все в моей надсройке и соответственно в ней и нужно этот лист создать и прикрутить к нему ПОЯВИЛСЯ с кнопками макросов и затем при очистке опять исчез
Есть решение такого ?
Автор - RUSRUS495
Дата добавления - 02.07.2011 в 15:01
Саня Дата: Суббота, 02.07.2011, 15:15 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
в свою надструйку добавь лист "Список файлов" и измени в Макрос1 "Personal.xlsb" на "Твоя_надстройка.xlam"

Code
sub Очистка()
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
end sub


программно рисовать кнопочки и прописывать код для них очень хлопотно
 
Ответить
Сообщениев свою надструйку добавь лист "Список файлов" и измени в Макрос1 "Personal.xlsb" на "Твоя_надстройка.xlam"

Code
sub Очистка()
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
end sub


программно рисовать кнопочки и прописывать код для них очень хлопотно
Автор - Саня
Дата добавления - 02.07.2011 в 15:15
RUSRUS495 Дата: Суббота, 02.07.2011, 16:02 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 4 ±
Замечаний: 0% ±

Саня, сделал все как сказал.
1. Добавил лист Список файлов в надсройку (мою)
2. Добавил модуль с макросами, плюс в него же впаял твом макросы (макрос1-в нем поменял имя, и макрос очистка-его же назначил кнопке очистке)
Получилось, что при вызове из надсройки появляется лист Список файлов, но макросы на кнопках в нем не раюотают, Excel их не видит.
Как быть ? Кто виноват, и что делать ? surprised
К сообщению приложен файл: 9388342.jpg (44.7 Kb) · 1120108.jpg (54.5 Kb)

Я Юзер ушастый, в макросах ни бум-бум
 
Ответить
СообщениеСаня, сделал все как сказал.
1. Добавил лист Список файлов в надсройку (мою)
2. Добавил модуль с макросами, плюс в него же впаял твом макросы (макрос1-в нем поменял имя, и макрос очистка-его же назначил кнопке очистке)
Получилось, что при вызове из надсройки появляется лист Список файлов, но макросы на кнопках в нем не раюотают, Excel их не видит.
Как быть ? Кто виноват, и что делать ? surprised
Автор - RUSRUS495
Дата добавления - 02.07.2011 в 16:02
RAN Дата: Суббота, 02.07.2011, 16:16 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
А что, надстройка так и называется "Книга2"? tongue

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеА что, надстройка так и называется "Книга2"? tongue
Автор - RAN
Дата добавления - 02.07.2011 в 16:16
RUSRUS495 Дата: Суббота, 02.07.2011, 16:25 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 4 ±
Замечаний: 0% ±

Надсройка называется "Моя прелесть" biggrin , как во "Властелине колец"...
Книга2 - это открытый файл Excel, в нем появился лист "Список файлов", вызванный из надсройки

Я Юзер ушастый, в макросах ни бум-бум
 
Ответить
СообщениеНадсройка называется "Моя прелесть" biggrin , как во "Властелине колец"...
Книга2 - это открытый файл Excel, в нем появился лист "Список файлов", вызванный из надсройки
Автор - RUSRUS495
Дата добавления - 02.07.2011 в 16:25
RAN Дата: Суббота, 02.07.2011, 16:36 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Ну так и назначайте кнопочке изначально (до создания копии листа) Моя прелесть.xla!Макрос1

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеНу так и назначайте кнопочке изначально (до создания копии листа) Моя прелесть.xla!Макрос1
Автор - RAN
Дата добавления - 02.07.2011 в 16:36
Саня Дата: Суббота, 02.07.2011, 16:48 | Сообщение № 9
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
Quote (RUSRUS495)
2. Добавил модуль с макросами, плюс в него же впаял твом макросы (макрос1-в нем поменял имя, и макрос очистка-его же назначил кнопке очистке)


я же макросы "засунул" в модуль листа, чтобы при копировании листа все скопом "улетало"
 
Ответить
Сообщение
Quote (RUSRUS495)
2. Добавил модуль с макросами, плюс в него же впаял твом макросы (макрос1-в нем поменял имя, и макрос очистка-его же назначил кнопке очистке)


я же макросы "засунул" в модуль листа, чтобы при копировании листа все скопом "улетало"
Автор - Саня
Дата добавления - 02.07.2011 в 16:48
RUSRUS495 Дата: Суббота, 02.07.2011, 17:31 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 4 ±
Замечаний: 0% ±

Quote (RAN)
Моя прелесть.xla!Макрос1


RAN, все так и делаю. Лист в самой надстройке работает все в порядке. На кнопках макросы стоят один в один как здесь Моя прелесть.xla!Макрос1. Но когда из надстройки лист копируется в новую книгу, то макросы на кнопках ссылаются почему то на новую книгу, якобы в ней должны быть названия этих макросов...
К сообщению приложен файл: 9774211.jpg (48.8 Kb) · 5241120.jpg (80.0 Kb)

Я Юзер ушастый, в макросах ни бум-бум
 
Ответить
Сообщение
Quote (RAN)
Моя прелесть.xla!Макрос1


RAN, все так и делаю. Лист в самой надстройке работает все в порядке. На кнопках макросы стоят один в один как здесь Моя прелесть.xla!Макрос1. Но когда из надстройки лист копируется в новую книгу, то макросы на кнопках ссылаются почему то на новую книгу, якобы в ней должны быть названия этих макросов...
Автор - RUSRUS495
Дата добавления - 02.07.2011 в 17:31
RUSRUS495 Дата: Суббота, 02.07.2011, 17:34 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 4 ±
Замечаний: 0% ±

Quote (Саня)
я же макросы "засунул" в модуль листа, чтобы при копировании листа все скопом "улетало"


Чуть позже появился топ этот...
Надо что мне сделать (см.подпись) ? все макросы, скопировать в модуль листа надсройки что ли ?

Я Юзер ушастый, в макросах ни бум-бум
 
Ответить
Сообщение
Quote (Саня)
я же макросы "засунул" в модуль листа, чтобы при копировании листа все скопом "улетало"


Чуть позже появился топ этот...
Надо что мне сделать (см.подпись) ? все макросы, скопировать в модуль листа надсройки что ли ?
Автор - RUSRUS495
Дата добавления - 02.07.2011 в 17:34
Саня Дата: Суббота, 02.07.2011, 18:41 | Сообщение № 12
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
К сообщению№2 приложен файл: 0576700.xls(54Kb)

в нем нет стандартных модулей, а процедуры (макросы, то бишь) находятся в модуле листа "Список файлов" и кнопкам на листе уже назначены правильно расположенные макросы

ты просто из ЭТОЙ книги возьми лист "Список файлов" и скопируй в свою "прелестную" надстройку...

ps
человек, который много хочет, должен по-больше знать об этом
(см. свою подпись)
 
Ответить
СообщениеК сообщению№2 приложен файл: 0576700.xls(54Kb)

в нем нет стандартных модулей, а процедуры (макросы, то бишь) находятся в модуле листа "Список файлов" и кнопкам на листе уже назначены правильно расположенные макросы

ты просто из ЭТОЙ книги возьми лист "Список файлов" и скопируй в свою "прелестную" надстройку...

ps
человек, который много хочет, должен по-больше знать об этом
(см. свою подпись)
Автор - Саня
Дата добавления - 02.07.2011 в 18:41
RUSRUS495 Дата: Суббота, 02.07.2011, 21:50 | Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 4 ±
Замечаний: 0% ±

Quote (Саня)
К сообщению№2 приложен файл: 0576700.xls(54Kb)


1. Саня, огромное тебе спасибо, заработало. Честно говоря я так и не понял, почему в твоем файле сохраняется ссылка на макрос (или типо того...), мне еще предстоит разобраться что произошло...

2. Добавил кнопку "удалить лист", добавил макрос (извините...ПРОЦЕДУРУ - "Я все ловлю на лету, но не понятно, что ты имела ввиду"-из песни) из Сообщение № 4. Удаляет лист, но стала ошибка Демонская вылетать. Во вложении

3. Процесс причесывания входит в завершающую стадию, выложил оригинал (что бы можно было его же и качнуть обратно) smile
а. Можно ли добавить кнопочку выбора папки (нажал, выбрал папку, и путь к ней скопировался в С1
б. Кудато пропала красивая обрезка границ листа (там была голубая бездна... smile )
К сообщению приложен файл: 2415401.jpg (47.5 Kb) · 7363298.xls (53.5 Kb)

Я Юзер ушастый, в макросах ни бум-бум
 
Ответить
Сообщение
Quote (Саня)
К сообщению№2 приложен файл: 0576700.xls(54Kb)


1. Саня, огромное тебе спасибо, заработало. Честно говоря я так и не понял, почему в твоем файле сохраняется ссылка на макрос (или типо того...), мне еще предстоит разобраться что произошло...

2. Добавил кнопку "удалить лист", добавил макрос (извините...ПРОЦЕДУРУ - "Я все ловлю на лету, но не понятно, что ты имела ввиду"-из песни) из Сообщение № 4. Удаляет лист, но стала ошибка Демонская вылетать. Во вложении

3. Процесс причесывания входит в завершающую стадию, выложил оригинал (что бы можно было его же и качнуть обратно) smile
а. Можно ли добавить кнопочку выбора папки (нажал, выбрал папку, и путь к ней скопировался в С1
б. Кудато пропала красивая обрезка границ листа (там была голубая бездна... smile )
Автор - RUSRUS495
Дата добавления - 02.07.2011 в 21:50
Саня Дата: Суббота, 02.07.2011, 22:37 | Сообщение № 14
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
в книге д.б. по крайней мере один лист

да, чуть не забыл - двойной щелчок по ячейке "C1", а кнопку я убрал, можешь переделать
К сообщению приложен файл: 5407976.xls (64.0 Kb)
 
Ответить
Сообщениев книге д.б. по крайней мере один лист

да, чуть не забыл - двойной щелчок по ячейке "C1", а кнопку я убрал, можешь переделать
Автор - Саня
Дата добавления - 02.07.2011 в 22:37
RUSRUS495 Дата: Суббота, 02.07.2011, 22:58 | Сообщение № 15
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 4 ±
Замечаний: 0% ±

Все работает, все хорошо, я счастлив.

Я Юзер ушастый, в макросах ни бум-бум
 
Ответить
СообщениеВсе работает, все хорошо, я счастлив.
Автор - RUSRUS495
Дата добавления - 02.07.2011 в 22:58
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вывод списка файлов в отдельный лист (Причесать уже готовое решение)
  • Страница 1 из 1
  • 1
Поиск:

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