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

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" <[email protected]> wrote in message
news:[email protected]...
> 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

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" <[email protected]> wrote in message
> news:[email protected]...
> > 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
>
>
>

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" <[email protected]> wrote in message
news:[email protected]...
> 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" <[email protected]> wrote in message
> > news:[email protected]...
> > > 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
> >
> >
> >