Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Paste filenames into cells
Dear Don,
I was going through the earlier one of your mail on 14th Dec regarding Paste filenames into cells there u have given a code Sub GetFileList() Dim iCtr As Integer With Application.FileSearch .NewSearch .LookIn = "c:\aa" .SearchSubFolders = True .Filename = ".xls" If .Execute 0 Then For iCtr = 1 To .FoundFiles.Count Cells(iCtr, 1).Value = .FoundFiles(iCtr) Next iCtr End If End With End Sub ===== or DIR Sub anotherfindfiles() Application.ScreenUpdating = False Dim FN As String ' For File Name Dim ThisRow As Long Dim MediaFileLocation As String MediaFileLocation = "c:\yourfolder\*.xls" FN = Dir(MediaFileLocation) Do Until FN = "" ThisRow = ThisRow + 1 Cells(ThisRow, 1) = FN FN = Dir Loop Application.ScreenUpdating = True End Sub I am not able to execute it. Or u can say i m not able understand how the macro works. How the user can select files from a single folder. Instead of opening them. Awaiting for ur mail... Regards Akash |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Paste filenames into cells
Dear Don,
Thanks for the Confirmation, I tried and i find that its working, I beleave that i have found the perfect guy for the Excel tips. Amazing work. More over i want that if the macro is called it should prompt the user to select the folder, so that user selects the foder and then the macro extract file name in one column & the patch in the other column. Is that possible If yes pls do help me in this regards Thanks Akash On Dec 15, 6:14 pm, "Don Guillett" wrote: The original post said to make a list on a worksheet. It should be fairly self explanatory. Just change the path to your folder/directory. -- Don Guillett SalesAid Software "Akash" wrote in oglegroups.com... Dear Don, I was going through the earlier one of your mail on 14th Dec regarding Paste filenames into cells there u have given a code Sub GetFileList() Dim iCtr As Integer With Application.FileSearch .NewSearch .LookIn = "c:\aa" .SearchSubFolders = True .Filename = ".xls" If .Execute 0 Then For iCtr = 1 To .FoundFiles.Count Cells(iCtr, 1).Value = .FoundFiles(iCtr) Next iCtr End If End With End Sub ===== or DIR Sub anotherfindfiles() Application.ScreenUpdating = False Dim FN As String ' For File Name Dim ThisRow As Long Dim MediaFileLocation As String MediaFileLocation = "c:\yourfolder\*.xls" FN = Dir(MediaFileLocation) Do Until FN = "" ThisRow = ThisRow + 1 Cells(ThisRow, 1) = FN FN = Dir Loop Application.ScreenUpdating = True End Sub I am not able to execute it. Or u can say i m not able understand how the macro works. How the user can select files from a single folder. Instead of opening them. Awaiting for ur mail... Regards Akash |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
PASTE LINK FROM HORIZONTAL CELLS TO VERTICAL CELLS | Excel Discussion (Misc queries) | |||
Paste filenames into cells | Excel Programming | |||
paste locked cells and unlocked cells in protected sheet | Excel Worksheet Functions | |||
getting filenames | Excel Programming | |||
Getting filenames via VBA | Excel Programming |