Do Loop вложенным циклом

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

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

Do Loop вложенным циклом (Макросы/Sub)

Sobirjon

Дата: Понедельник, 20.04.2020, 10:32 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 151

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

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

2016

Доброго времени суток, дамы и господа.
При использовании вложенного цикла Do Loop в Do Loop выдает ошибку

Run-time error '5':
Invalid procedure call or argument

Сам код полностью
[vba]

Код

Sub getData()
    Dim sFolderPath$, sFolderName$, sFileName$
    Let sFolderPath = ThisWorkbook.Path & "\"
    Let sFolderName = Dir(sFolderPath, vbDirectory)
    Do While sFolderName <> ""
        If GetAttr(sFolderPath & "\" & sFolderName) = vbDirectory And sFolderName <> "." And sFolderName <> ".." Then
            Debug.Print sFolderPath & sFolderName
            If sFolderName = "NomenclatureFurniture" Or sFolderName = "NomenclaturePlates" Then
                Let sFileName = Dir(sFolderPath & sFolderName & "\" & "*.xls")
                Do While sFileName <> ""
                    Debug.Print sFileName
                    sFileName = Dir
                Loop
            End If
            Debug.Print sFolderPath & sFolderName
        End If
        sFolderName = Dir
    Loop
End Sub

[/vba]

От кода требуется, проверить вложенные папки в папке и если соответствует заданному условию,
то вывести список файлов в debug.
Ошибка вылетает, когда первый цикл Do Loop идет на следующий круг, после первого круга второго цикла Do Loop.
В строке где [vba]

Код

sFolderName = Dir

[/vba]

Сообщение отредактировал Sobirjon - Понедельник, 20.04.2020, 10:35

Ответить

Sobirjon

Дата: Понедельник, 20.04.2020, 10:55 | Сообщение № 2

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

Ранг: Форумчанин

Сообщений: 151

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

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

2016

В таком варианте фурычит.
[vba]

Код

Sub getData()
    Dim sFolderPath$, vFolderNames(), vFolderName, sFileName$
    Let sFolderPath = ThisWorkbook.Path & "\"
    Let vFolderNames() = Array("NomenclatureFurniture", "NomenclaturePlates")
    For Each vFolderName In vFolderNames
        Let sFileName = Dir(sFolderPath & vFolderName & "\" & "*.xls")
        Do While sFileName <> ""
            Debug.Print sFileName
            sFileName = Dir
        Loop
    Next vFolderName
End Sub

[/vba]
Интересно, что не нравиться VBA в первом варианте?
Подозреваю, что, что-то ни то с Dir-ом. Но вот что и почему, догнать ума не хватает.....

Сообщение отредактировал Sobirjon - Понедельник, 20.04.2020, 10:57

Ответить

_Boroda_

Дата: Понедельник, 20.04.2020, 17:40 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 16715

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

А почитайте справку по Dir

Цитата

После возврата строки нулевой длины в последующих вызовах необходимо указывать значение pathname, иначе произойдет ошибка.

https://u.to/-u4mGA

Как вариант - сначала соберите все нужные папки в массив (коллекцию, словарь) ААА, потом переберите этот ААА и для каждого из элементов ААА выводите список файлов

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Sobirjon

Дата: Среда, 22.04.2020, 04:05 | Сообщение № 4

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

Ранг: Форумчанин

Сообщений: 151

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

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

2016

_Boroda_. Спасибо, так и думал :ok:

Ответить

Do Loop вложенным циклом (Макросы/Sub)

Страница 1 из 1
1