Thanks for your input.

I did come up with basically the same code for the With .QueryTables....Endwith
code but I used text substitution to feed the .Add method the text file name:

For example:
Note: gcappdir=addbs(sys(5)+curdir())


lcString='"TEXT;'+gcappdir+SUBSTR(SYS(2015),3)+".txt"+'"'
WITH loExcel.Application.ActiveSheet
.QueryTables.Add(&lcString,.Cells(2,1))
ENDWITH



Thanks again!