Code to open file on intranet and save in excel isn't working

I am trying to open a file in intranet with the button and save as text. It
will open the file in excel but it won't save as text.
what am i doing wrong?


Shell ("C:\Program Files\Microsoft Office\Office\excel.exe")
Application.FollowHyperlink
"http://srfi.inc.ikon.org/Daily_Dir/Oracle%20ART%20Closed%20Detail%20ATL.xls"

ActiveWorkbook.SaveAs Filename:="D:\My Documents\ATLCLOSE.txt", FileFormat _
:=xlText, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:="D:\My Documents\ATLCLOSE.txt",
FileFormat _
:=xlText, CreateBackup:=False
ActiveWindow.Close

Thank you!