Обработка множества excel файлов на VBA

В уроке показываю, как можно автоматически обработать несколько файлов Excel одинаковым способом. Пишем код на VBA.

Ссылка на книгу Excel с кодом на VBA

'//Процедура обрабатывает одинаковым способом все файлы Excel в каталоге
Sub TestProc()
    Dim FSO As FileSystemObject
    Dim sourceFolder As Folder
    Dim fileItem As File
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set sourceFolder = FSO.GetFolder("C:\Temp")
 
    For Each fileItem In sourceFolder.Files
        Dim currentBook As Workbook
        Dim source As Worksheet
 
        Set currentBook = Workbooks.Open(fileItem.Path, False, False)
        Set source = currentBook.Sheets(1)
 
        '//полезные действия
        source.Cells(15, 15) = source.Cells(1, 1)
        source.Cells(1, 1) = ""
 
        Application.DisplayAlerts = False '//отключаем все сообщения
        currentBook.Close True
        Application.DisplayAlerts = True '//включаем сообщения
 
        Set source = Nothing
        Set currentBook = Nothing
    Next
End Sub

No Comments

Post Reply