Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Убрать область печати сразу во всех файлах excel - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Убрать область печати сразу во всех файлах excel
i_r_a Дата: Четверг, 13.07.2023, 09:03 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Добрый день! Работаю программистом 1с, возникла задача закинуть данные из excel в 1с, и сразу нарисовалась проблема, в каждом файле, а их где-то 1500 тысячи, на 3 листе заданы две одинаковые области печати, пытаюсь открыть файл через COMОбъект("Excel.Application"), Книга = WorkBooks.Open(ИмяФайла, 0, Истина); все виснет, если вручную удалить одну область печати, все проходит хорошо. Не сильна в excel, подскажите - куда копать, как можно обработать все файлы сразу, не открывая их.


Сообщение отредактировал i_r_a - Четверг, 13.07.2023, 09:04
 
Ответить
СообщениеДобрый день! Работаю программистом 1с, возникла задача закинуть данные из excel в 1с, и сразу нарисовалась проблема, в каждом файле, а их где-то 1500 тысячи, на 3 листе заданы две одинаковые области печати, пытаюсь открыть файл через COMОбъект("Excel.Application"), Книга = WorkBooks.Open(ИмяФайла, 0, Истина); все виснет, если вручную удалить одну область печати, все проходит хорошо. Не сильна в excel, подскажите - куда копать, как можно обработать все файлы сразу, не открывая их.

Автор - i_r_a
Дата добавления - 13.07.2023 в 09:03
китин Дата: Четверг, 13.07.2023, 09:28 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7020
Репутация: 1075 ±
Замечаний: 0% ±

Excel 2007;2010;2016


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеПРОСМОТРЕТЬ ВСЕ ФАЙЛЫ В ПАПКЕ

Автор - китин
Дата добавления - 13.07.2023 в 09:28
Nic70y Дата: Четверг, 13.07.2023, 09:36 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 8827
Репутация: 2300 ±
Замечаний: 0% ±

Excel 2010
Работаю программистом 1с

Не сильна в excel
чуть не подрался с таким :D
попробуйте:
[vba]
Код
Sub bba_file_PrintArea()
    Application.ScreenUpdating = False
    ip_ = ThisWorkbook.Path
    in_ = Dir(ip_ & "\*.xls*")
    Do While in_ <> ""
        If in_ <> ThisWorkbook.Name Then
            Workbooks.Open Filename:=ip_ & "\" & in_
            Workbooks(in_).Sheets(3).PageSetup.PrintArea = ""
            Workbooks(in_).Close True
        End If
        in_ = Dir
    Loop
    Application.ScreenUpdating = True
End Sub
[/vba]файл положите в ту же папку, где 1,5 к файлов

апдэйт: сразу не подумал.
как это 2 области печати?
К сообщению приложен файл: kniga1.xlsm (17.7 Kb)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Четверг, 13.07.2023, 10:06
 
Ответить
Сообщение
Работаю программистом 1с

Не сильна в excel
чуть не подрался с таким :D
попробуйте:
[vba]
Код
Sub bba_file_PrintArea()
    Application.ScreenUpdating = False
    ip_ = ThisWorkbook.Path
    in_ = Dir(ip_ & "\*.xls*")
    Do While in_ <> ""
        If in_ <> ThisWorkbook.Name Then
            Workbooks.Open Filename:=ip_ & "\" & in_
            Workbooks(in_).Sheets(3).PageSetup.PrintArea = ""
            Workbooks(in_).Close True
        End If
        in_ = Dir
    Loop
    Application.ScreenUpdating = True
End Sub
[/vba]файл положите в ту же папку, где 1,5 к файлов

апдэйт: сразу не подумал.
как это 2 области печати?

Автор - Nic70y
Дата добавления - 13.07.2023 в 09:36
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!