External Data Query path problem

[deltaair]

I have the following code in a macro that extracts data from a folder on a shared drive.

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;J:\Airport Customer Service\Analyst\Coop\Herby Folder\HERBY PROGRAM\HRBDATA.TXT" _
, Destination:=Range("A1"))
.Name = "HRBDATA"
End With

How do I make the path for this file so that it always uses the same folder as the current file like a "\HRBDATA.txt" or something. ( I tried that already ). So i need a path reference or something that always accesses the current folder as a default folder.

 

[PHV]

The Workbook.Path property ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886