View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
NickHK NickHK is offline
external usenet poster
 
Posts: 4,391
Default relative path for const in vba code

thomas,
Public Const strXMLFile As String = "\Config\config.xml"

Dim XMLPath as string
XMLPath =Thisworkbook.path & strXMLFile

NickHK

wrote in message
ups.com...
Hi All,

i have an excel-project with a separate xml file where config
information is stored. this xml is reference through a public constant
with an absolute path, like that:

Public Const strXMLFile As String = "D:\Documents and
Settings\t119637\Desktop\xls_work\Config\config.xm l"

This works as long as the xls file runs on the machine where this
absolute file path is existing.
If i'd like to move these files (the excel file with the vba code and
the xml file) to another machine where this path is not existing, the
excel sheet wont work cause the xml file is not found.
Is there a ways to define a relative path to the xml file startin from
the actual xls file?
E.g:
the excel is stored in:
xls_work/myFile.xls
and the xml file is stored in
xls_work\Config\config.xml

So i would assume that the vba code needs to determine what the path to
the xls file is and add a /Config/config.xml to that path to have the
xls file work with the settings in the xml file.

I dont know the vba code that makes this possible

help woul be greatly apreciated
regards
thomas