Открыть рабочие книги в текущем каталоге

Question

У меня есть основная рабочая книга, которая включает список файлов (E14:E26), некоторые из которых являются пустыми (пустыми) ячейками.Мне нужен код для циклического перемещения по списку и открытия перечисленных книг (все они находятся в текущем каталоге).Я пробовал этот код, но получаю сообщения об ошибках:

Sub SkipBlankCells()
    Dim cell As Range, rng As Range, FName As String

    Set rng = Range("E14:E26")

    For Each cell In rng
        If Not IsEmpty(cell) Then
            FName = cell.Value
            Workbooks.Open Filename:=FName
        End If
    Next cell
End Sub

Answer 1

Эта функция должна работать.Я думаю, что проблема вашей функции была в пути.Чтобы решить эту проблему, я использовал функцию ActiveWorkbook.Path, но чтобы вы знали, вы можете использовать буквальный путь, например "C:\Users\bor\Documents\folder_with_files", чтобы использовать другой путь.

Sub open_file_list()
    first_row = 14 'in your case
    last_row = 26 'in your case
    For i = first_row To last_row
        If Not IsEmpty(Cells(i, 5)) Then 'Check for empty
            file = Cells(i, 5)
            Workbooks.Open (ActiveWorkbook.Path & "\" & file)
            End If
    Next

End Sub

Answer 2

Полагаю, в ячейках нет полного пути к книгам, только имена файлов, поэтому это должно работать:

    Sub SkipBlankCells()
        Dim cell As Range, rng As Range, FName As String

        Set rng = Range("E14:E26")

        For Each cell In rng
            If Not IsEmpty(cell) Then
                FName = vbNullString
                FName = Dir(thisworkbook.Path & "\" & cell.Value) 'use dir to get the filename. If it doesn't exists, it will return blank
                If Not FName = vbNullString then Workbooks.Open _
                   Filename:=Thisworkbook.Path & "\" & FName 'to open a workbook you need the whole path to it, not only the file name.
            End If
        Next cell
    End Sub