Download from FTP

G

Guest

I have macro that combines multiple workbooks from multiple vendors. I
receive this data through an ftp sites, then I save onto my local server. I
was wondering if I could update the code below to download from the ftp
automatically. Please let me know thanks

Ramon



Application.EnableEvents = False
Application.ScreenUpdating = False
Path =
"R:\Reports\PDP-Reporting\CUSTOMER_SERVICE\DAILY\Scorecard\DATA_FEED\CURRENT_STREAM_WellCare_PDP\OLD FILES\New Folder" ''Change as needed
FileName = Dir(Path & "\*.csv", vbNormal)
Do Until FileName = ""
Set Wkb = Workbooks.Open(FileName:=Path & "\" & FileName)
For Each WS In Wkb.Worksheets
If Left(WS.Name, 20) = "WellcarePDP_Interval" Then
WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
End If
Next WS
Wkb.Close False
FileName = Dir()
Loop
Application.EnableEvents = True
Application.ScreenUpdating = True
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Move Files from Folder to Folder 2
Want to modify this VBA code snippet 1
Need help adjusting my code: 1
Need another eye on this Sub() 8
Merge data from two temp files into a master 1
re Merge 2
Move File 3
Auto Open + Disable on Final Product 2

Top