Исключить открытую книгу / определенные файлы из цикла

Question

У меня есть код, который копирует данные из других файлов и помещает их в таблицу (открытая рабочая книга).Как я могу исключить открытую книгу (откуда я запускаю макрос) и, например, некоторые конкретные файлы (C: \ Users \ Desktop \ text.xlsm) из цикла?Я пытался с If strFile <> ActiveWorkbook.Name Тогда, но он не работает, он все еще пытается открыть открытую книгу.

Здесь часть кода с циклом:

Set oWks0 = ActiveSheet

aCells = Split(Zellen, ",")

iNextLine = iStartZeile

For ialngFolders = LBound(avntFolders) To UBound(avntFolders)

    strFile = Dir$(avntFolders(ialngFolders) & "*.xlsm")



    Do Until strFile = vbNullString


        Set oWkb1 = Workbooks.Open(avntFolders(ialngFolders) & strFile)
        Set oWks1 = oWkb1.Sheets(1)


        For i = 0 To UBound(aCells)
        'If strFile <> ActiveWorkbook.Name Then

            oWks0.Cells(iNextLine, iStartSpalte).Offset(0, i).Value = _
                oWks1.Range(aCells(i)).Value

        'End If

        Next



        Call oWkb1.Close(SaveChanges:=False)

        iNextLine = iNextLine + 1

        strFile = Dir$



    Loop

Next

Answer 1

Workbooks.Open - это метод открытия рабочей книги

с использованием

Если strFile <> ActiveWorkbook.Name Then *

доline

Set oWkb1 = Workbooks.Open (avntFolders (ialngFolders) & strFile)