path names in getopenfilename
you are a legend bob!
-----Original Message-----
Hi again Paul,
Sub macroopen()
Dim sPath As String
Dim sFile
sPath = "\\wxp2000\Joe Docs\Joe\Reports"
If SetUNCPath(sPath) = 0 Then
MsgBox "Error in setting the UNC path - " & sPath
Else
sFile = Application.GetOpenFilename("Excel,*.xls")
If sFile < False Then
Workbooks.Open Filename:=sFile
End If
End If
End Sub
--
HTH
Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
"Paul" wrote in message
...
Bob ..one small oversight.Having found the file i now
need
to open it! <vbg????
-----Original Message-----
Thank god! I was running out of ideas. Told you it was
not too hard <vbg
Enjoy your next project.
Regards
Bob
"Paul" wrote in
message
...
Bob it works like a charm.Now to go back to my new
vba
book by reed jacobsen..Hopefully my next project
will be
covered by it!!Thanks for your help!
.
.
|