Код для циклического просмотра всех файлов Excel в указанной папке и извлечения данных из определенных ячеек.

Сначала начните с этого запроса Google и нажмите первую ссылку, которая открывается, что приведет вас к статье, в которой показано, как перебирать группу Файлы Excel в папке.

Sub RunCodeOnAllXLSFiles()
Dim lCount As Long
Dim wbResults As Workbook
Dim wbCodeBook As Workbook


Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False

On Error Resume Next
    Set wbCodeBook = ThisWorkbook
        With Application.FileSearch
            .NewSearch
            'Change path to suit
            .LookIn = "C:\MyDocuments\TestResults"
            .FileType = msoFileTypeExcelWorkbooks
            'Optional filter with wildcard
            '.Filename = "Book*.xls"
                If .Execute > 0 Then 'Workbooks in folder
                    For lCount = 1 To .FoundFiles.Count 'Loop through all
                        'Open Workbook x and Set a Workbook variable to it
                        Set wbResults = Workbooks.Open(Filename:=.FoundFiles(lCount), UpdateLinks:=0)

                        'DO YOUR CODE HERE

                        wbResults.Close SaveChanges:=False
                    Next lCount
                End If
        End With
On Error GoTo 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub

Чтобы получить имя рабочей книги, вам нужно адаптировать код в разделе «СДЕЛАЙТЕ СВОЙ КОД ЗДЕСЬ», чтобы включить wbResults.Name. Если вам нужно именно это имя файла, используйте wbResults.FullName, которое возвращает имя книги, включая ее путь на диске, в виде строки.

Поиск вариант VBScript на том же вещь дает ряд полезных результатов, включая этот скрипт:

strPath = "C:\PATH_TO_YOUR_FOLDER"

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.DisplayAlerts = False

Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder (strPath)

For Each objFile In objFolder.Files

If objFso.GetExtensionName (objFile.Path) = "xls" Then
   Set objWorkbook = objExcel.Workbooks.Open(objFile.Path)
   ' Include your code to work with the Excel object here
   objWorkbook.Close True 'Save changes
End If

Next

objExcel.Quit

Я бы сделал это на VBScript или даже на VB.NET или Powershell, если вам так хочется.

Используя VB.NET, вы можете получить доступ к электронным таблицам Excel, как если бы они были базами данных, через поставщика OLEDB. Код для выбора диапазона значений может выглядеть так:

 Try
        Dim MyConnection As System.Data.OleDb.OleDbConnection
        Dim DtSet As System.Data.DataSet
        Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
        MyConnection = New System.Data.OleDb.OleDbConnection _
        ("provider=Microsoft.Jet.OLEDB.4.0;"  _
        " Data Source='testfile.xls'; " _
         "Extended Properties=Excel 8.0;")
        MyCommand = New System.Data.OleDb.OleDbDataAdapter _
            ("select * from [Sheet1$]", MyConnection)
        MyCommand.TableMappings.Add("Table", "TestTable")
        DtSet = New System.Data.DataSet
        MyCommand.Fill(DtSet)
        MyConnection.Close()
    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try

Получив данные, вы можете уточнить их, а затем вставить результат в другую таблицу Excel, используя тот же API.

Получить список файлов в .NET легко, вызвав System.IO.Directory.GetFiles(); просто укажите подстановочный знак "*.xls". Получив список, просто используйте цикл for, чтобы просмотреть его, открывая каждый файл по очереди, затем выполняя запрос к этому файлу и так далее.

Если вы используете VBScript, предпочтительным способом получения списка файлов Excel является использование Scripting.FileSystemObject, в частности метод GetFolder. Он работает в основном так же, но синтаксис немного отличается.

Если это VBScript или VB.NET, он, вероятно, будет работать вне самого Excel. Вы запустите его двойным щелчком или из пакетного файла или что-то в этом роде. Преимущество использования VB.NET заключается в том, что вы можете создать графическую форму для взаимодействия — она может отображать индикатор выполнения, отслеживая, сколько файлов вы просмотрели, обновления статуса и тому подобное.

Всякий раз, когда вы последовательно обращаетесь к такому количеству файлов Excel, вы обычно можете повысить производительность, используя ADODB, а не объект автоматизации Excel.

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

Это можно сделать с помощью следующего кода

Sub LoopThroughFiles()

Dim StrFile As String
StrFile = Dir("V:\XX\XXX\*.xlsx")
 Do While Len(StrFile) > 0
    Debug.Print StrFile
       Set wbResults = Workbooks.Open("V:\XX\XXX\" & StrFile)   

                    'DO YOUR CODE HERE


       wbResults.Close SaveChanges:=True
    StrFile = Dir
 Loop
End Sub