Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Изменение формата файла с .xlsm на xlsx с последующим удалением исходного файла, VBA
 
#1
09.08.2018 15:52:28
Добрый день, подскажите пожалуйста как можно методом перебора осуществить пересохранение всех файлов в выбранной директории (или на всем устройстве) с формата .xlsm в формат файла .xlsx? А также последующим удалением .xlsm.
Макрос на перебор файлов в директории тут--->Ссылка
Изменено: Василька - 09.08.2018 16:00:47 (Добавил ссылку)
 
 
 
#2
09.08.2018 16:16:26
Здравствуйте!
.xlsm (на всякий случай) - это формат файлов содержащих макросы. При смене расширения функционал VBA будет удален. Вопрос: хотите удалить все разработки на VBA?
ps А зачем ссылка на чужой макрос?
Удивление есть начало познания © Surprise me!
И да пребудет с нами сила ВПР.
 
 
 
#3
09.08.2018 16:22:02
Ёк-Мок, Да я хочу макросом запущенным из одного файла менять расширение файлов в директории указанной мною с формата .xlsm на формат .xlsx соответственно понимаю что все макросы в данных файлах будут удалены.
На текущий момент я пробую объединить 2 макроса:
1-перебор файлов в директории
2-сохранение файлов в другом формате
Оба макроса в приложенном файле
Изменено: Василька - 09.08.2018 16:23:51
 
 
 
#4
09.08.2018 16:41:14
Так в чем вопрос-то? Что не работает? Что не получается? Внешне в Вашем файле все в ажуре.

ps Зачем пересохранение в другом формате, если весь функционал удалит процедура "УдалениеМакросовИзКнигиEXCEL"? Ну и пусть будет пустой файл .xlsm.
Удивление есть начало познания © Surprise me!
И да пребудет с нами сила ВПР.
 
 
 
#5
09.08.2018 16:42:56
Вопрос в том как сделать чтобы макрос "УдалениеМакросовИзКнигиEXCEL" работал не только в той книге которой записан, а удалял макросы из директории методом перебора каждого файла.
 
 
 
#6
09.08.2018 17:24:02
Вариант
Кнопку "Да" пока что нужно жать для каждого файла (см.скрин)
Удивление есть начало познания © Surprise me!
И да пребудет с нами сила ВПР.
 
 
 
#7
10.08.2018 08:32:02
Ёк-Мок, что-то не так видимо у меня, указал путь к папке, в которой 2 файла xlsm, нажал удалить макросы, вышла табличка что Готово, на самом деле изменений не было.
 
 
 
#8
10.08.2018 09:02:34
На моих файлах .xlsm макрос отрабатывает нормально.
Попробуйте закоментить вот эту строку в коде:
Код
'On Error Resume Next: Err.Clear
Что напишет VBA после запуска?
Изменено: Ёк-Мок - 10.08.2018 09:03:33
Удивление есть начало познания © Surprise me!
И да пребудет с нами сила ВПР.
 
 
 
#9
10.08.2018 09:15:00
Цитата
Василька написал:
я хочу макросом запущенным из одного файла менять расширение файлов
- зачем это написали? Будьте точны, а то ведь можно и так сделать :)
 
 
 
#10
10.08.2018 09:16:06
Попробовал ничего не изменилось, он считывает кол-во файлов в папке, и спрашивает "Продолжить?", после нажатия на кнопку "Да", сразы выходит msgBox "Готово"
 
 
 
#11
10.08.2018 09:19:39
Цитата
Hugo написал:
Будьте точны, а то ведь можно и так сделать
Буду точным, открыть и сохранить файл с другим расширением и после этого удалить исходник с форматом .xlsm
 
 
 
#12
10.08.2018 09:32:06
Ребят я нашел решение, сторонний макрос задействовал (нашел на другом ресурсе готовую сборку) если можно, то могу выложить сюда "MulTEx"
Изменено: Василька - 10.08.2018 09:32:41
 
 
 
#13
10.08.2018 13:47:59
Цитата
Василька написал:
Буду точным, открыть и сохранить файл с другим расширением
- буду придирчивым - тут нет точности. Например - открываем блокнотом (неважно зачем, просили), сохраняем с другим расширением :)
Да и даже можно Экселем открыть и сохранить с другим расширением, не меняя формат - если делать это кодом.
Изменено: Hugo - 10.08.2018 14:52:15
 
 
 
#14
10.08.2018 14:37:15
Цитата
Василька написал:
если можно, то могу выложить сюда "MulTEx"
Думаю, что Дмитрий Щербаков (автор надстройки) будет удивлен :)  
Владимир
 
 
 
#15
12.08.2018 22:10:47
Цитата
sokol92 написал:
автор надстройки) будет удивлен
Я думаю не будет удивлён. У нас целыми сайтами воруют и ничего за это ни кому не делают. В том числе и у меня, несколько лет назад весь сайт под копирку стырили. Бумажки на закрытие плагиата не помогли. Так и работает. А мой сайт закрыли за неуплату. Что тут говорить, весь мир на винде пиратской сидит.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
 
 
 
#16
13.08.2018 08:30:45
sokol92,
Цитата
sokol92 написал:
Думаю, что  Дмитрий Щербаков  (автор надстройки) будет удивлен
Ребят я с дружественного сайта её скачал и так полагаю там она была размещена с согласия автора.
 
 
 
#17
13.08.2018 21:02:31
Цитата
Василька написал:
я с дружественного сайта её скачал
Что за сайт?
 
 
 
#18
14.08.2018 07:48:03
Цитата
Юрий М написал:
Что за сайт?
excel-vba.ru
При установке на комп программа просит вашу почту для подтверждения и потом подписывает вас на новости с сайта.
 
 
 
#19
14.08.2018 08:00:43
Начиная отсюда
Цитата
sokol92 написал:
Думаю, что  Дмитрий Щербаков  (автор надстройки) будет удивлен
и досюда
Цитата
Василька написал:
excel-vba.ru
очень забавный топик получился! :D  
 
 
 
#20
15.08.2018 08:16:30
Главное вопрос заданный в первом посте решен, а остальное не так важно)
 
 
 
Страницы: 1
Наверх