תת תיקיות ועוד בVBA

Sub Macro1()

'

Dim strFilename As String

Dim strPath As String

Dim wbkTemp As Workbook

strPath = "C:\Documents and Settings\Student\Desktop\example\"

strFilename = SubDir(strPath & "*.csv")

Do While Len(strFilename) > 0

Set wbkTemp = Workbooks.Open(strPath & strFilename)

'

' do your code with the workbook

'

Range("A6").Select

ActiveCell.FormulaR1C1 = "=sum(R[-5]C:R[-1]C)"

ActiveCell.Copy

' save and close it

wbkTemp.Close SaveChanges:=False

ActiveCell.PasteSpecial

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = strFilename

ActiveCell.Offset(1, -1).Select

strFilename = Dir

Loop

End Sub