Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » tosick4
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Смена ориентация у всех файлов в папке, Ориентация группы файлов
 
#
17.04.2018 15:46:36
Цитата
Sanja написал:
DoEvent
После добавления этой строчки все как рукой сняло. Пол часа - ни разу не вышибло. Я так понял она дает ОС отдуплиться (дабы последняя не решила что макрос завис) и т.о. макрос в цикле и ОС живут в симбиозе?
 
Перейти    
Смена ориентация у всех файлов в папке, Ориентация группы файлов
 
#
17.04.2018 14:26:36
Цитата
ProFessor написал:
В момент возникновения ошибки сделайте скриншот и нажмите debug.
Все выглядит так: запускаю макрос, он висит, файлы редактируются, потом в определенный момент файл макроса отвисает открывается Excel файл из списка и все останавливается.  
 
Перейти    
Смена ориентация у всех файлов в папке, Ориентация группы файлов
 
#
17.04.2018 14:13:17
Ошибок нет. Если запускать макрос по одному и тому же списку файлов, то он может отработать и 10 секунд и вылететь на одном файле, или работать 30 минут и вылететь на совершенно другом файле. Что характерно, почему-то файл на котором все останавливается открывается но не меняет в нем ориентацию
 
Перейти    
Смена ориентация у всех файлов в папке, Ориентация группы файлов
 
#
17.04.2018 12:41:13
Сделал вот такой макрос. Но после обработки нескольких файлов он почему-то останавливается с открытием файла на котором он остановился. Что может быть?
Код
Sub Set_Orientation_All_File_from_Folder()
    Dim sFolder As String, sFiles As String
    sFolder = "d:\temp\Raschet" & "\" 'Папка с файлами
    Application.ScreenUpdating = False
    'Application.DisplayAlerts = False
    sFiles = Dir(sFolder & "*.xls*")
    Do While sFiles <> ""
        'открываем книгу
        Workbooks.Open sFolder & sFiles
        'действия с файлом - ставим ориентацю альбомная
        ActiveWorkbook.Sheets(1).PageSetup.Orientation = xlLandscape
        ActiveWorkbook.CheckCompatibility = False
        'Закрываем книгу с сохранением изменений
        ActiveWorkbook.Close True     'если поставить False - книга будет закрыта без сохранения
        sFiles = Dir
    Loop
    'возвращаем ранее отключенное обновление экрана
    Application.ScreenUpdating = True
End Sub
Изменено: tosick4 - 17.04.2018 12:41:45
 
Перейти    
Смена ориентация у всех файлов в папке, Ориентация группы файлов
 
#
17.04.2018 12:36:20
Однозначно макрос VBA. Печать пока мне не нужна. Т.е. надо просто сохранить эту настройку в файле.
 
Перейти    
Смена ориентация у всех файлов в папке, Ориентация группы файлов
 
#
17.04.2018 11:44:36
Всем привет. Подскажите, как установить ориентацию всех файлов в папке на альбомную на листе "Лист1"?  Т.е. что бы при открытии любого файла из папки и вызове диалога печати уже стояла альбомная ориентация.
Изменено: tosick4 - 17.04.2018 11:47:46
 
Перейти    
Страницы: 1
Наверх