That is the way it would be set up.

If it is not going to the correct directory then the correct directory must
not be the current directory.

You need to query Curdir to see what it is returning.


spath = CurDir
If Right(spath, 1) < "\" Then
spath = spath & "\"
End If
ans = msgbox("Is this correct" & vbNewLine & _
sPath & "q261pxda." , vbYesNo)
if ans = vbNo then exit sub
Workbooks.OpenText Filename:=spath & "q261pxda.", _






If Curdir is not the correct string, then what property will give you the
correct string?

If you know the correct path then (assume it is "C:\Myfolder\MyFiles\" )

then you could do

sPath = "C:\Myfolder\MyFiles\"
Workbooks.OpenText Filename:=spath & "q261pxda.", _



--
Regards,
Tom Ogilvy



"CLR" wrote in message
...
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