T
THE_RAMONES
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
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