Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
How do I paste a set of folder NAMES into a set of cells?
I have a set of folders that I will be using Excel to describe the contents
of them. I'd like to be able to paste the folder names into the spreadsheet rather than re-type all of them. I'm pretty sure there's a way to do it, but can't figure it out. Please help! |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
How do I paste a set of folder NAMES into a set of cells?
Several methods to accomplish this.......I like Tushar's best if importing to
Excel. To add a "Print Directory" feature to Explorer, go to this KB Article. http://support.microsoft.com/default...EN-US;q272623& Or you can download Printfolder 1.2 from..... http://no-nonsense-software.com/freeware/ I use PF 1.2 and find it to be more than adequate with custom features. OR Go to DOS(Command) prompt and directory. Type DIR MYFILES.TXT All the above create a *.TXT file which can be opened in Notepad or Excel. One more method if you want to by-pass the *.TXT file and pull directly to Excel is to use Tushar Mehta's Excel Add-in. This allows filtering and sorting once you have the data in Excel. http://www.tushar-mehta.com/ scroll down to Add-insDirectory Listing. Download the ZIP file and un-zip to your Office\Library folder. Gord Dibben MS Excel MVP On Wed, 12 Sep 2007 14:22:01 -0700, Jedi Leba wrote: I have a set of folders that I will be using Excel to describe the contents of them. I'd like to be able to paste the folder names into the spreadsheet rather than re-type all of them. I'm pretty sure there's a way to do it, but can't figure it out. Please help! |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
How do I paste a set of folder NAMES into a set of cells?
This returns a listing of subfolders and their subfolders, etc, from a root
directory. Sub ListSubFolders() Dim f As New Collection Call GetSubfolders("C:\MyRoot", f) Dim i As Integer For i = 1 To f.Count Range("A50000").End(xlup).Offset(1).Value = f(i) Next End Sub Function GetSubfolders(ByVal sFolderRoot As String, ByRef cSubfoldersFound As Collection) Dim oFso As FileSystemObject Set oFso = New FileSystemObject Dim oSubfolder As Folder Dim sFoldername As String Dim nextrow As Long For Each oSubfolder In oFso.GetFolder(sFolderRoot).SubFolders sFoldername = oSubfolder.Path cSubfoldersFound.Add sFoldername, sFoldername Call GetSubfolders(oSubfolder, cSubfoldersFound) Next End Function "Jedi Leba" wrote in message ... I have a set of folders that I will be using Excel to describe the contents of them. I'd like to be able to paste the folder names into the spreadsheet rather than re-type all of them. I'm pretty sure there's a way to do it, but can't figure it out. Please help! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to create a list of file names within a folder in Microsoft Ex | Excel Discussion (Misc queries) | |||
Need a macro to include file names in a folder to excel sheet | Excel Discussion (Misc queries) | |||
Combine several Names in one folder with if-formula | Excel Discussion (Misc queries) | |||
Can I insert a file or folder names in Excel cells? | Excel Discussion (Misc queries) | |||
create a list of worksheet names (from a single folder, or open files) | Excel Discussion (Misc queries) |