Hi Steve,
Dim myFileName As Variant
myFileName = Application.GetOpenFilename(filefilter:=Text Files, *.txt)
If myFileName = False Then Exit Sub 'user hits cancel
With ActiveSheet
With .QueryTables.Add(Connection:=TEXT; myFileName,
Destination:=.Range(AA2))
Thanks Dave, I'll give it a try when I get back to work tomorrow.
Regards, Steve
On Jan 18, 3:46 am, Dave Bonallack davebonall...@hotmail.com wrote:
Hi Steve,
Ignore the first email. It was incomplete.
Try this. Remember the extra End With near the end.
Regards - Dave.
Dim myFileName
i am new to the blog so maybe everyone gets these, but i didn't ask this
question. Actually, i have a different one if you perhaps know. I have
been working on a project that has real time stock prices on one worksheet
and i wanted to tak a snap shot every 15 minutes starting at 9:30 am til
4pm.