با درود فراوان
برای این کار همه فایلها رو در یک پوشه اگر قرار بدین با یک حلقه همه فایلهای موجود در آن پوشه را برای شما لیست میکند و به ترتیب هرکدام را باز کرده کار مورد نظر را روی آن انجام داده و آن را بسته و فایل بعدی به همین ترتیب تا آخر
اینم کد حلقه ای که فایل ها رو برات پیدا میکنه
در کد زیر آدرس پوشه رو بدین و بجای مسیج باکس کارهای لازم را روی فایل انجام دهید
کد PHP:
Sub Macro1()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim ws As Worksheet
Set objFSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set objFolder = objFSO.GetFolder(Application.ThisWorkbook.Path & "\files\")
For Each objFile In objFolder.Files
MsgBox objFile.Name
Next
Set objFolder = Nothing
Set objFile = Nothing
Set objFSO = Nothing
End Sub
علاقه مندی ها (Bookmarks)