Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Import file list
Hi,
I want to know if it's possible to import a list of files in a given folder to Excel. So, for example, I can have all the files in C:\documents\ listed in column A in a worksheet. Is this possible? |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Import file list
I created a macro for another guy that wanted to do the same thing. Here it is. Just enter your folder in cell A1 in the format c:\windows\ making sure you put the \ at the end. Sub myDIR() myFolder = Range("A1").Value x = 1 y = 1 Range("A2").Select Selection = Dir(myFolder) Do While y < "" y = Dir Selection.Offset(x, 0).Value = y x = x + 1 Loop End Sub -- Mallycat ------------------------------------------------------------------------ Mallycat's Profile: http://www.excelforum.com/member.php...o&userid=35514 View this thread: http://www.excelforum.com/showthread...hreadid=560970 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Import file list
Cool thanks.
"Mallycat" wrote: I created a macro for another guy that wanted to do the same thing. Here it is. Just enter your folder in cell A1 in the format c:\windows\ making sure you put the \ at the end. Sub myDIR() myFolder = Range("A1").Value x = 1 y = 1 Range("A2").Select Selection = Dir(myFolder) Do While y < "" y = Dir Selection.Offset(x, 0).Value = y x = x + 1 Loop End Sub -- Mallycat ------------------------------------------------------------------------ Mallycat's Profile: http://www.excelforum.com/member.php...o&userid=35514 View this thread: http://www.excelforum.com/showthread...hreadid=560970 |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Import file list
this post was very usefull,, can the code be altered to show what is in any
sub-directory of the start folder "Mallycat" wrote: I created a macro for another guy that wanted to do the same thing. Here it is. Just enter your folder in cell A1 in the format c:\windows\ making sure you put the \ at the end. Sub myDIR() myFolder = Range("A1").Value x = 1 y = 1 Range("A2").Select Selection = Dir(myFolder) Do While y < "" y = Dir Selection.Offset(x, 0).Value = y x = x + 1 Loop End Sub -- Mallycat ------------------------------------------------------------------------ Mallycat's Profile: http://www.excelforum.com/member.php...o&userid=35514 View this thread: http://www.excelforum.com/showthread...hreadid=560970 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Weird File Open/Save As Behavior | Excel Discussion (Misc queries) | |||
CSV file for inporting contact list from Hotmail to Gmail using Ex | Excel Discussion (Misc queries) | |||
Recently Used File List - 2002 Contains 'Temp' Files | Excel Discussion (Misc queries) | |||
Import Pipe Delimited File, Parse out certian Fields, create new f | New Users to Excel | |||
The 'Recently used file list' does not show up under the 'File' menu. | Excel Worksheet Functions |