『デスクトップ上のフォルダ名をエクセルに』（やま）

・大量のフォルダを整理するため、エクセルに貼り付けたいのですが仕方がわかりません。よろしくお願いします。
----
 デスクトップのパスは

 CreateObject("WScript.Shell").SpecialFolders("Desktop")
 で取得できます。

 取得したフォルダから、サブフォルダを取得するのは、
 ↓が参考になると思います。
 OfficeTanaka-VBAのステージ-FileSystemObject-Folderオブジェクト-SubFolders フォルダ内の全てのサブフォルダを返します
http://www.officetanaka.net/excel/vba/filesystemobject/folder.htm

 フォルダ内のファイル一覧取得は、↓も参考になると思います。

 Excelでお仕事！-VBA応用-テキストデータやファイル操作-フォルダ内のファイル一覧の取得
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_080.html
 (MARBIN)