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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Getting a list of filenames
do it this way then
Dim i as Long, j as Long Dim FName As Variant FName = Application.GetOpenFilename( _ "Excel files(*.XLS),*.XLS", Multiselect:=True) If isarray(FName) 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 ... Hi Tom, and thanks for the response. I'm getting a "type mismatch" error on "If FName < False Then". Can you help? "Tom Ogilvy" wrote: 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Getting a list of filenames
Tom,
You forgot to increment j: j = 0 for i = lbound(Fname) to ubound(FName) Range("A1").Offset(j,0).Value = fName(i) j = j + 1 Next HTH, Bernie MS Excel MVP "Tom Ogilvy" wrote in message ... do it this way then Dim i as Long, j as Long Dim FName As Variant FName = Application.GetOpenFilename( _ "Excel files(*.XLS),*.XLS", Multiselect:=True) If isarray(FName) 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 ... Hi Tom, and thanks for the response. I'm getting a "type mismatch" error on "If FName < False Then". Can you help? "Tom Ogilvy" wrote: 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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Getting a list of filenames
thanks!
-- Regards, Tom Ogilvy "Bernie Deitrick" <deitbe @ consumer dot org wrote in message ... Tom, You forgot to increment j: j = 0 for i = lbound(Fname) to ubound(FName) Range("A1").Offset(j,0).Value = fName(i) j = j + 1 Next HTH, Bernie MS Excel MVP "Tom Ogilvy" wrote in message ... do it this way then Dim i as Long, j as Long Dim FName As Variant FName = Application.GetOpenFilename( _ "Excel files(*.XLS),*.XLS", Multiselect:=True) If isarray(FName) 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 ... Hi Tom, and thanks for the response. I'm getting a "type mismatch" error on "If FName < False Then". Can you help? "Tom Ogilvy" wrote: 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 |
Reply |
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 |