با سلام
اگر بخواهیم از دایرکتوری ها و فایل های یک مسیر توی اکسل لیست تهیه کنیم ( به همراه زیر شاخه ها ) چکار میشه کرد ؟
من با این کد تونستم از فایل ها لیست تهیه کنم ولی واسه زیرشاخه ها نتونستم !!
اگر بخواهیم از دایرکتوری ها و فایل های یک مسیر توی اکسل لیست تهیه کنیم ( به همراه زیر شاخه ها ) چکار میشه کرد ؟
من با این کد تونستم از فایل ها لیست تهیه کنم ولی واسه زیرشاخه ها نتونستم !!
کد PHP:
Sub Macro1()
Dim rw
rw = 1
Filename = Dir("D:\path\*.*")
Do While Filename <> ""
Cells(rw, 1).Value = Filename
rw = rw + 1
Filename = Dir
Loop
End Sub
کامنت