ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Import file list (https://www.excelbanter.com/excel-discussion-misc-queries/99002-import-file-list.html)

Josh Craig

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?

Mallycat

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


Josh Craig

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



Rich[_2_]

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




All times are GMT +1. The time now is 03:19 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com