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

Вход

Регистрация

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

 

= Мир MS Excel/Открытие всех файлов xls в определенной папке. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Открытие всех файлов xls в определенной папке. (Макросы/Sub)
Открытие всех файлов xls в определенной папке.
Sashagor1982 Дата: Вторник, 19.07.2016, 22:55 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 160
Репутация: 12 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте уважаемые форумчане. Подскажите пожалуйста код, который содержался бы в определенном файле и выполнял бы следующее действие: В папке "Послужн", находящейся в той же папке, что и файл с кодом поочередно открывал, а потом закрывал сохраняя все файлы формата ".xls"
 
Ответить
СообщениеЗдравствуйте уважаемые форумчане. Подскажите пожалуйста код, который содержался бы в определенном файле и выполнял бы следующее действие: В папке "Послужн", находящейся в той же папке, что и файл с кодом поочередно открывал, а потом закрывал сохраняя все файлы формата ".xls"

Автор - Sashagor1982
Дата добавления - 19.07.2016 в 22:55
nilem Дата: Среда, 20.07.2016, 05:33 | Сообщение № 2
Группа: Авторы
Ранг: Ветеран
Сообщений: 1057
Репутация: 400 ±
Замечаний: 0% ±

Excel 2013
Sashagor1982, привет
попробуйте так
[vba]
Код
Sub ertert()
Dim f$, fPath$
Application.ScreenUpdating = False

fPath = ThisWorkbook.Path
If Right(fPath, 1) <> "\" Then fPath = fPath & "\Послужн\" Else fPath = fPath & "Послужн\"
f = Dir(fPath & "*.xls*", vbNormal)

Do While f <> ""
    With Workbooks.Open(fPath & f)
        MsgBox .FullName
        .Close True
    End With
    f = Dir()
Loop
Application.ScreenUpdating = True
End Sub
[/vba]


Яндекс.Деньги 4100159601573
 
Ответить
СообщениеSashagor1982, привет
попробуйте так
[vba]
Код
Sub ertert()
Dim f$, fPath$
Application.ScreenUpdating = False

fPath = ThisWorkbook.Path
If Right(fPath, 1) <> "\" Then fPath = fPath & "\Послужн\" Else fPath = fPath & "Послужн\"
f = Dir(fPath & "*.xls*", vbNormal)

Do While f <> ""
    With Workbooks.Open(fPath & f)
        MsgBox .FullName
        .Close True
    End With
    f = Dir()
Loop
Application.ScreenUpdating = True
End Sub
[/vba]

Автор - nilem
Дата добавления - 20.07.2016 в 05:33
Sashagor1982 Дата: Среда, 20.07.2016, 13:21 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 160
Репутация: 12 ±
Замечаний: 0% ±

Excel 2007
Что то не работает.
 
Ответить
СообщениеЧто то не работает.

Автор - Sashagor1982
Дата добавления - 20.07.2016 в 13:21
Sashagor1982 Дата: Среда, 20.07.2016, 13:28 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 160
Репутация: 12 ±
Замечаний: 0% ±

Excel 2007
Спасибо. Моя ошибка, все работает.
 
Ответить
СообщениеСпасибо. Моя ошибка, все работает.

Автор - Sashagor1982
Дата добавления - 20.07.2016 в 13:28
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Открытие всех файлов xls в определенной папке. (Макросы/Sub)
Страница 1 из 11
Поиск:

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