Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Копирование листа закрытой книги при открытии при частичном совпадении названия файла
 
#1
12.12.2019 23:58:38
Добрый вечер.
Помогите пожалуйста советом. Нашел на просторах вот такой макрос
Код
Set wbCopy = Workbooks.Open("D:\Книга.xlsm", False, False)
   With wbCopy
       .Sheets("Лист1").Copy before:=Workbooks(ThisWorkbook.Name).Sheets(1)
       .Close (False)
   End With

Можно ли его преобразовать таким образом, чтобы он мог обращаться к книге с названием к примеру Очень_полезная_книга в_доме.xlsm, лишь по совпадению "полезная" и из него уже далее копировать лист

Изменено: Leming - 13.12.2019 00:02:05
 
 
 
#2
13.12.2019 00:09:38
Код
fn = dir("d:\*полезная*.*")
if fn <> "" then
Set wbCopy = Workbooks.Open("D:\" & fn, False, False)
Изменено: Ігор Гончаренко - 13.12.2019 00:10:09
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#3
13.12.2019 00:27:53
Большое спасибо
 
 
 
Страницы: 1
Наверх