Thread: Path
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
jaf jaf is offline
external usenet poster
 
Posts: 300
Default Path

Hi,
If the file is open then...
MyPath=workbooks("XLUSRGAL.XLS").path

If it's closed you can do a filesearch, but opening it may be faster.

From help.
Use the Execute method to begin the file search and update the FoundFiles
object. The following example searches the My Documents folder for all files
whose names begin with "Cmd" and displays the name and location of each file
that's found. The example also sorts the returned files in ascending
alphabetic order by file name.

Set fs = Application.FileSearch
With fs
.LookIn = "C:\My Documents"
.FileName = "cmd*"
If .Execute(SortBy:=msoSortbyFileName, _
SortOrder:=msoSortOrderAscending) 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With


--

John

johnf202 at hotmail dot com


"ojv" wrote in message
...
Hi,
Is there a way to retrieve programmatically the path to
the XLUSRGAL.XLS workbook which Excel generate to store
custom made plot formats?

any help appreciated!