Открытие всех файлов xls в определенной папке.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Открытие всех файлов xls в определенной папке. (Макросы/Sub)

Sashagor1982

Дата: Вторник, 19.07.2016, 22:55 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 287

Репутация: -6 ±

Замечаний: 0% ±

Excel 2007

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

Ответить

nilem

Дата: Среда, 20.07.2016, 05:33 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

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]