VBA download file from URL to workbook folder

[floggingmolly]

I have a code that downloads a file from our sharepoint site to a specific folder on my computer. Is there any way to change it so it will download to whatever folder my workbook is in? We have weekly folders where we save the workbook so I want the downloaded file to save in the folder where the current workbook will be. Below is the code I have so far. Any help would be greatly appreciated.

Option Explicit
Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Sub DownloadFile()
Dim WinHttpReq As Object
Dim oStream As Object
Dim myURL As String
Dim LocalFilePath As String

myURL = "https://myfedex.sharepoint.com/workbook.xlsx"
LocalFilePath = "C:\Users\updatedworkbook.xlsx"

Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False, "", ""  '("username", "password")
WinHttpReq.send

If WinHttpReq.Status = 200 Then
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Open
    oStream.Type = 1
    oStream.Write WinHttpReq.responseBody
    oStream.SaveToFile LocalFilePath, 2 ' 1 = no overwrite, 2 = overwrite
    oStream.Close
End If
End Sub

 

[Paul Ked]

LocalFilePath = "C:\Users\updatedworkbook.xlsx"

Cange this to LocalFilePath = ActiveWorkbook.Path & "\updatedworkbook.xlsx"

 

[floggingmolly]

Cange this to LocalFilePath = ActiveWorkbook.Path & "\updatedworkbook.xlsx"

Thank you for the quick response. I appreciate your help.

 

[Paul Ked]

You're welcome