Archief - Vraagje - VBA in Excel

Bleu87 · 22 feb 2011

Hoi iedereen,

Ik heb een hele hoop bestanden (niet allemaal met logische naamgeving) waarvan telkens dezelfde cel zou moeten opgeteld worden in een ander bestand.

Heeft iemand enig idee hoe ik dat kan doen? Ik weet hoe ik dezelfde cel uit verschillende sheets kan optellen (als ik op voorhand de namen ingeef) maar geen idee hoe ik dit met een (onbepaald) aantal Excel files doe uit een bepaalde folder. Kan dit?

Parnakra · 22 feb 2011

Code:

Sub fileloop()
    Dim currentDir As String
    Dim varFileName As Variant
    Dim i As Integer
    i = 0
    currentDir = ActiveWorkbook.Path
    With Application.FileSearch
        .NewSearch.LookIn = currentDir
        .SearchSubFolders = False
        .Filename = ".xls"
        If .Execute > 0 Then
            For Each varFileName In .FoundFiles
                Workbooks.Open varFileName        
                With ActiveWorkbook
                    i += .Worksheets("Sheet1").Cells(1, 1).Value
                    .Save
                    .Close
                End With
            Next
        End If
    End With
End Sub

Archief - Vraagje - VBA in Excel

Bleu87

Legacy Member

Parnakra

Legacy Member