با سلام
اگر بخواهیم از دایرکتوری ها و فایل های یک مسیر توی اکسل لیست تهیه کنیم ( به همراه زیر شاخه ها ) چکار میشه کرد ؟
من با این کد تونستم از فایل ها لیست تهیه کنم ولی واسه زیرشاخه ها نتونستم !!
کد 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
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)