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
|