Hi Tom.......

Thanks for the response but I still can't get it working.....here's where I
put your code, but it still keeps looking to the default directory as set in
Tools Options......what did I do wrong?

'Open the new q261 file from IS
'this first part intends to set up the Current Directory as default for the
Open
spath = CurDir
If Right(spath, 1) < "\" Then
spath = spath & "\"
End If

Workbooks.OpenText Filename:=spath & "q261pxda.", _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited,
TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True,
Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1,
1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1),
Array(7, 1), Array(8, 1))


thanks again,
Chuck



"Tom Ogilvy" wrote:

sPath = CurDir
if Right(sPath,1) < "\" then
sPath = sPath & "\"
End if

Workbooks.OpenText Filename:=sPath & "q261pxda.*",

--
Regards,
Tom Ogilvy

"CLR" wrote in message
...
Hi Don......

Thanks for the response, but I can't figure out what to do with those
phrases. When I just add them to my macro, they only pop-up a window
telling
me the path, or Cur Dir.........what I'm really looking for is a line of
code
to force Excel to goto the Current Directory to find the file I'm telling
it
to open, whatever that Current Directory may be, and overriding the
"Default
file Location:" setting in Excel's options........I dunno how clear that
is,
it reads funny.......it may not even be possible.

Chuck


"CLR" wrote:

Hi All.......

I am using the following code to open a non-excel file so I can
manipulate
and extract the data from it I need. I would like to force Excel to
look in
the same directory that the file I'm using to open the non-excel file
came
from........rather than some directory that some default figures I
should
use........problem is, the file "is not found" in that default
directory.
Note, the actual file has no extention.


Workbooks.OpenText Filename:="q261pxda.*", _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited,
TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True,
Semicolon:=False, _
Comma:=False, Space:=False, Other:=False,
FieldInfo:=Array(Array(1,
1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1),
Array(7, 1), Array(8, 1))

Any help would be much appreciated,
TIA
Vaya con Dios,
Chuck, CABGx3