View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
ezil ezil is offline
external usenet poster
 
Posts: 43
Default hyperlinks saving error in code


I used the following code for saving files from hyperlinks but it saves the
file from which macro is launched and not the file from hyperlink. Help me to
correct the code (dummy hyperlink address given)

Application.DisplayAlerts = False
Application.ScreenUpdating = False
On Error GoTo ErrHandler
For i = 11 To 16
Worksheets("abcd").Select
abc = Cells(i, 3)
url1 = "http://abcd.com/"+abc+"abc.csv"
ActiveWorkbook.FollowHyperlink Address:=url1, _
NewWindow:=False, AddHistory:=True
ActiveWorkbook.SaveAs Filename:= _
"C:\HISDATA\" + abc + ".xls"
Workbooks(abc).Close
label1:
Next i
ErrHandler:
GoTo label1