Как я могу активировать основную рабочую книгу и вывести ее в начало всех открытых файлов Excel? - PullRequest
0 голосов
/ 06 мая 2019

Этот код открывает набор рабочих книг и отлично работает для этого. Однако после того, как рабочие книги были открыты, я хочу, чтобы основная рабочая книга, из которой я запускаю макрос, была активирована и выведена на передний план. Вот мой код, и он не активируется и выводит основной файл Excel на передний план.

    Sub SkipBlankCells2()
Dim cell As Range, rng As Range, FName As String
Set rng = Range("E12:E24")

'Disable Screen Updating - stop screen flickering
'   And Disable Events to avoid inturupted dialogs / popups
With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With

Application.DefaultFilePath = ActiveWorkbook.Path

For Each cel In rng
    If Len(cel) >= 1 Then
            FName = cel.Value
        Workbooks.Open Filename:=FName
    End If
Next cel

'Enable Screen Updating and Events
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With

    'Return to master workbook
ThisWorkbook.Activate

End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...