|
Posted to microsoft.public.excel.programming
|
|
|
GetOpenFilaName
Thanks a lot Tim
"Tim Zych" wrote:
Here's one way:
Dim Filename As Variant
Filename = Application.GetOpenFilename(FileFilter:="Text File
(*.txt),*.txt", MultiSelect:=True)
If TypeName(Filename) < "Boolean" Then
Range("A1").Resize(UBound(Filename, 1) - LBound(Filename, 1) + 1).Value
= Application.Transpose(Filename)
End If
--
Tim Zych
http://www.higherdata.com
Workbook Compare - free and pro versions
"???" wrote in message
...
Hi all!
I am using the Application.GetOpenFilaName procedure in order the get the
path of files. if it is in a MultiSelect mode the pathes are an array. I
tried to copy them to a worksheet but i got only the last path. Is it
posible
to get all the pathes each one in a separate cell?
FileName = Application.GetOpenFilename(FileFilter:="Text File
(*.txt),*.txt", MultiSelect:=True)
Range("A1").Value = FileName
Thanks in advance
Eli
|