| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Get All Files from a Directory
Sub fileExcel()
Dim MyFile, MyPath, MyName MyFile = Dir("C:\My Documents\*xls") x = 2 Do While MyFile < "" ThisWorkbook.Worksheets("Excel").Cells(x, 1).Value = MyFile MyFile = Dir() If MyFile < "" Then x = x + 1 ThisWorkbook.Worksheets("Excel").Cells(x, 1).Value = MyFile End If Loop End Sub |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| temporary directory files | Excel Discussion (Misc queries) | |||
| Move all files from one directory to another | Excel Programming | |||
| Files in a directory? | Excel Discussion (Misc queries) | |||
| Move files from one directory to another: if they are there | Excel Programming | |||
| Check if directory empty OR no of files in directory. | Excel Programming | |||
Threaded Mode
