Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Getting a list of filenames
Dim i as Long, j as Long
Dim FName As Variant FName = Application.GetOpenFilename( _ "Excel files(*.XLS),*.XLS", Multiselect:=True) If FName < False Then j = 0 for i = lbound(Fname) to ubound(FName) Range("A1").Offset(j,0).Value = fName(i) Next Else MsgBox "User cancelled" End If -- Regards, Tom Ogilvy "cottage6" wrote in message ... Hello and HELP! I'm using the following code to insert the selected filename into a cell. What I really need is for the user to be able to select multiple files and to get those names into some sort of list so the user can select a file from that group. Is that possible? Remember when giving me a solution that I'm not as slick as I could be creating code, so please include explicit instructions! Thanks. Dim FName As Variant FName = Application.GetOpenFilename("Excel files(*.XLS),*.XLS") If FName < False Then Range("A1").Select ActiveCell = FName Else MsgBox "User cancelled" End If |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
can not scroll on Edit links very long list of filenames | Excel Discussion (Misc queries) | |||
List all filenames & tab names | Excel Worksheet Functions | |||
Help with a Macro to list all filenames and mod dates in a folder | Excel Programming | |||
Folder and filenames? | Excel Programming | |||
List out FileNames.xls with K4 Blank | Excel Programming |