1

Тема: VBA: Проверка наличия папки в Excel

Имеется таблица Excel. В первом столбце - имя сервера. Во втором столбце путь до какой-либо папки на этом сервере.
Задача: Написать макрос на VBA, который будет проверять наличие (существование) папки из второй ячейки на сервере из первой ячейки. И в случае наличия папки, делать строку, например, зеленой. Иначе делать красной.
В общем, нужна функция - аналог Test-Path и PowerShell.

2

Re: VBA: Проверка наличия папки в Excel

Option Explicit

Sub TestPath()
    Dim objFSO As Object
    Dim objRange As Range
    Dim i As Integer
    
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    With ThisWorkbook.ActiveSheet.UsedRange.Rows
        For i = 2 To .Rows.Count
            If objFSO.FolderExists(objFSO.BuildPath(.Cells(i, 1).Value, .Cells(i, 2).Value)) Then
                Union(.Cells(i, 1), .Cells(i, 2)).Font.ColorIndex = 10
            Else
                Union(.Cells(i, 1), .Cells(i, 2)).Font.ColorIndex = 3
            End If
        Next
    End With
    
    Set objFSO = Nothing
End Sub

Предполагается, что первая строка отдана под заголовки столбцов.