מעבר על כל הקבצים בתיקייה באמצעות אקסל VBA

לפעמים צריך לעבור על הקבצים בתיקייה , לפתוח אותם ,לבצע עליהם פעולות באקסל ולסגור חזרה.

בטיפ זה נראה עבודה עם אובייקט Scripting.FileSystemObject שיש לו שימושים רבים.

בין השאר הוא מאפשר לגשת לתיקיות ולקבצים.

קוד למעבר על קבצים בתיקייה :

Sub ShowFolderList()

' הצגת שמות כל הקבצים בתיקייה הנשלחת

Dim fs, s

Dim myFolder ' לאובייקט התיקייה

Dim myFile ' הקובץ התורן בתיקייה

Set fs = CreateObject("Scripting.FileSystemObject") ' משתנה המכיל אובייקט

Set myFolder = fs.GetFolder("C://") ' משתנה המכיל אובייקט תיקייה

For Each myFile In myFolder.Files ' סריקת כל הקבצים בתיקייה

' באזור זה ניתן לעשות עם הקבצים מה שרוצים ,לפתוח וכו'

s = s & myFile.Name ' מחרוזת המכילה את שמות הקבצים בתיקייה כל שם בשורה נפרדת

s = s & vbCrLf

Next myFile

MsgBox s

Set myFolder =nothing

Set fs = nothing

End Sub

ב ה צ ל ח ה !