Mid Function with XlInsertObject Hlp!

[Joyce]

Hi there,

I'm trying to use XlInsertObject to bring the user to the Insert File
dialog, with display as icon True and Link False.

I'd like to display the name of the fall (not the entire path) as the label.
I've tried to incorporate the Mid function into the code, but am failing
miserably.

Dim FName As String
Application.Dialogs(xlDialogInsertObject).Show , , , True, , , ,
"=Mid(FName, InStrRev(FName, " \ ") + 1)"

Thanks.

 

[Patrick Molloy]

try using this method instead

chDrive = "C"
chDir = "C:\temp"
sFileName = Application.GetOpenFilename()

 

[Joyce]

Hi Patrick,
Thanks for your response. Unfortunately, I couldn't get that to work. I
get an error message - Path Not Found on the line with chDir "C:temp"

Dim SFileName As String
ChDrive "C"
ChDir "C:\temp"
SFileName = Application.GetOpenFilename()

 

[Patrick Molloy]

well of course not. you need to point where your files are. That was my
example, plus you need the '\'

 

[Joyce]

Hi Patrick,

Sorry for my lack of skills. I'll keep trying.

This will be on different computers, but I'd like the dialog box to simply
open into My Documents. The users can navigate from there.

Thanks.