bilgisayarımda liste halindeki klasörleri excele aktarmanın bir kolay yolu var mıdır ? yani klasörlerin isimleri excelde liste halinde olması gerek.
boş bir excel dosyası açıp alt + f11 yapın. sol frame'de ThisWorkbook'a tıklayın, aşağıdaki kodu kopyalayıp yapıştırın. kodun 3. satırındaki "C:\" adresini klasör isimlerini almasını istediğiniz adres ile düzeltin ("d:\murty\dosyalar" gibi). excel dosyasına dönün alt + f8 yapıp makroyu çalıştırın.
Sub Klasor_altklasor_listesi()
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\")
Set colSubfolders = objFolder.SubFolders
For Each objSubfolder In colSubfolders
c = c + 1
Cells(c, "a") = objSubfolder.Name
Next
End Sub
kod yeri geldiğinde hayat kurtaran excel.web.tr'den araktır. saolsun var olsunlar. www.excel.web.tr
mahallenindelisi
1