| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
10.03.2021, 21:47 | #1 | |
Изменение макроса VBA для использования внутренних подпапок
Конструктор
Уфа
Регистрация: 01.09.2012
Сообщений: 80
|
||
Просмотров: 5775
|
|
||||
конструктор Регистрация: 14.08.2014
Псков
Сообщений: 7,111
|
pro9, чего-то лень разбираться .... если нужен просто результат - то подойдет групповое переименование файлов *.xlsm на *.xlsx, эта функция есть в "total commander", да и наверное еще в каких либо файловых менеджерах...
или что-то дает именно "сохранить как"? |
|||
|
||||
СЦБ Регистрация: 09.03.2006
Иркутск
Сообщений: 78
|
|
|||
|
||||
Конструктор Регистрация: 01.09.2012
Уфа
Сообщений: 80
|
Помогли кодом на сайте Microsoft Communities https://answers.microsoft.com/en-us/...=1615478529296
Sub MakeXLSX() ' Top folder to process Const sPath = "C:\DataTest" Dim fld As Object Application.ScreenUpdating = False Application.DisplayAlerts = False Application.EnableEvents = False On Error GoTo ExitHere Set fld = CreateObject("Scripting.FileSystemObject").GetFolder(sPath) ProcessFolder fld ExitHere: Application.EnableEvents = True Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Sub ProcessFolder(fld As Object) Dim sPath As String Dim sName As String Dim wBk As Workbook Dim sfl As Object sPath = fld.Path If Right(sPath, 1) <> "\" Then sPath = sPath & "\" End If sName = Dir(sPath & "*.xlsm") Do While sName <> "" Set wBk = Workbooks.Open(sPath & sName) wBk.SaveAs Filename:=sPath & Replace(sName, ".xlsm", ".xlsx"), FileFormat:=xlOpenXMLWorkbook wBk.Close SaveChanges:=False sName = Dir Loop Kill sPath & "*.xlsm" For Each sfl In fld.Subfolders Call ProcessFolder(sfl) Next sfl End Sub Эта функция не подходила, так как оставляла макросы в файле. |
|||
|
Опции темы | Поиск в этой теме |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Фатальная ошибка при попытке загрузки макроса | Inhu | Программирование | 23 | 02.10.2017 12:13 |
Заброшенный склад ГСМ (возможность дальнейшего использования) | Paykay | Прочее. Отраслевые разделы | 4 | 13.09.2016 18:46 |
Как задать процент использования элементов | Vofff4ik | Лира / Лира-САПР | 8 | 14.03.2014 12:48 |
Возможность использования инженерно геологических изысканий стадии П для ИГИ для стадии Р.Д. | Иван235 | Прочее. Архитектура и строительство | 4 | 16.10.2013 22:56 |