VBA download file help

[floggingmolly]

I have a file on our sharepoint site that we need to download often. Our sharepoint wont let me direct download it so I am trying to open it, then save it to the folder where my workbook is located. It's wanting to save it as a file named FALSE.xlsx and I'm not sure what I am doing wrong. Any help would be appreciated.

Sub Test()

Dim LocalFilePath As String

    Range("A1").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Workbooks.Open Filename:= _
        "https://myfedex.sharepoint.com/teams/ourteam/myfile.xlsx"
    ActiveWindow.Visible = False
    Windows("myfile.xlsx").Visible = _
        True
    ActiveWorkbook.SaveAs Filename:= _
        LocalFilePath = ActiveWorkbook.Path & "\myfileupdate.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
End Sub
[\code]

 

[Eric W]

Change:

ActiveWorkbook.SaveAs Filename:= _
        LocalFilePath = ActiveWorkbook.Path & "\myfileupdate.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

to

ActiveWorkbook.SaveAs Filename:= _
        ActiveWorkbook.Path & "\myfileupdate.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

 

[floggingmolly]

Change:

ActiveWorkbook.SaveAs Filename:= _
        LocalFilePath = ActiveWorkbook.Path & "\myfileupdate.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

to

ActiveWorkbook.SaveAs Filename:= _
        ActiveWorkbook.Path & "\myfileupdate.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

This isn't working either. It gives an error when I run the code.

 

[floggingmolly]

This isn't working either. It gives an error when I run the code.

It says Method Save As of object _Workbook failed