upload file name
 

is it possible to have a upload feature in excel...like, click "browse" it
opens a list of files from a certain folder, you click open and it puts the
file name into cell A1?
i dont want to upload the file..just have the file name go into A1

thanks in advance

upload file name
 

fileToOpen = Application _
.GetOpenFilename("Microsoft Excel Files (*.xls), *.xls")
If fileToOpen < False Then
Range("A1").Value = fileToOpenEnd If
--

HTH

RP
(remove nothere from the email address if mailing direct)


"choice" wrote in message
...
is it possible to have a upload feature in excel...like, click "browse" it
opens a list of files from a certain folder, you click open and it puts
the
file name into cell A1?
i dont want to upload the file..just have the file name go into A1

thanks in advance

upload file name
 

if its jpeg files i need instead would i just change it to

fileToOpen = Application _
.GetOpenFilename("JPEG Files (*.jpeg), *.jpeg")
If fileToOpen < False Then
Range("A1").Value = fileToOpenEnd If

"Bob Phillips" wrote:

fileToOpen = Application _
.GetOpenFilename("Microsoft Excel Files (*.xls), *.xls")
If fileToOpen < False Then
Range("A1").Value = fileToOpenEnd If
--

HTH

RP
(remove nothere from the email address if mailing direct)


"choice" wrote in message
...
is it possible to have a upload feature in excel...like, click "browse" it
opens a list of files from a certain folder, you click open and it puts
the
file name into cell A1?
i dont want to upload the file..just have the file name go into A1

thanks in advance

upload file name
 

Not quite, JPEg files have a jpg extension

Dim filetoopen

filetoopen = Application _
.GetOpenFilename("JPEG Files (*.jpg), *.jpg")
If filetoopen < False Then
Range("A1").Value = filetoopen
End If

--

HTH

RP
(remove nothere from the email address if mailing direct)


"choice" wrote in message
...
if its jpeg files i need instead would i just change it to

fileToOpen = Application _
.GetOpenFilename("JPEG Files (*.jpeg), *.jpeg")
If fileToOpen < False Then
Range("A1").Value = fileToOpenEnd If

"Bob Phillips" wrote:

fileToOpen = Application _
.GetOpenFilename("Microsoft Excel Files (*.xls), *.xls")
If fileToOpen < False Then
Range("A1").Value = fileToOpenEnd If
--

HTH

RP
(remove nothere from the email address if mailing direct)


"choice" wrote in message
...
is it possible to have a upload feature in excel...like, click
"browse" it
opens a list of files from a certain folder, you click open and it
puts
the
file name into cell A1?
i dont want to upload the file..just have the file name go into A1

thanks in advance