|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
31.05.2018, 10:20 | #1 |
Регистрация: 15.05.2018
Сообщений: 9
|
Нужна помощь в доработке макроса
Добрый день! Имеется макрос, составленный через макрорекордер и найденные решения. При запуске его через импорт модуля в окно редактора VBA он отрабатывает корректно, сохраняет что нужно из исходника в эксель, а потом преобразует его в csv, но при запуске из личной книги макросов, в эксель сохраняет пустой лист, скопированные данные удаляет. Полный код во вложении, та часть кода которая отрабатывается по разному
With Application.FileDialog(msoFileDialo gSaveAs) .InitialFileName = ThisWorkbook.Path & "\" & "Старый_формат" If .Show = 0 Then Exit Sub ThisWorkbook.ActiveSheet.Copy Application.DisplayAlerts = False .Execute Application.DisplayAlerts = True End With Помогите настроить макрос, чтобы корректно работал из Personal.xlsb, либо подскажите как его сохранить иначе, что был активным во всех книгах эксель. Последний раз редактировалось artyom2104; 31.05.2018 в 10:32. |
31.05.2018, 10:30 | #2 |
Регистрация: 15.05.2018
Сообщений: 9
|
Файл для обработки макросом
|
31.05.2018, 11:37 | #3 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
попробуйте в макросе ThisWorkbook заменить на ActiveWorkBook
|
31.05.2018, 13:38 | #4 |
Регистрация: 15.05.2018
Сообщений: 9
|
Благодарю, помогло.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужна помощь в доработке инетрнет-магазина. opencart | makeup | Фриланс | 0 | 22.02.2017 17:30 |
Нужна помощь в доработке исходников | derg | Фриланс | 2 | 15.06.2015 23:30 |
Нужна помощь в доработке БД и размещения ее в вэб | Adamov | Фриланс | 0 | 28.01.2015 15:42 |
Помощь в доработке задачи | Rodik11 | Помощь студентам | 0 | 25.06.2014 12:53 |