Excel VBA to open a CSV file on an FTP server

[the_tones]

Sorry pretty much a newbie on VBA. Trying to use VBA to open a CSV file on a FTP server with username and password. Server is an IP address. I found the code below on another thread and am confused on the FilePath line and what I put in for "@ftp.XXXXXXX.com/MEMCARD1/FC_files/flow.csv". Where MEMCARD1/FC_files/flow.csv/flow,csv is file I am trying to open on IP address 172.16.0.10. Any help is appreciated. Thanks

Sub test()


Dim FTPuser, FTPpassword, FilePath, RawWB

FTPuser = "username"
FTPpassword = "password"

FilePath = "ftp://" & FTPuser & ":" & FTPpassword & "@ftp.XXXXXXX.com/MEMCARD1/FC_files/flow.csv"

Set RawWB = Workbooks.Open(Filename:=FilePath, ReadOnly:=True)
RawWB.Activate


End Sub

 

[the_tones]

Figured this out. However if I run the following script several times I get a message that can't connect to the FTP server. It will work for 3 or 4 times and then error out. The FTP server is on a PLC and I'm grabbing data from a CSV file. Anyone know why it will stop working after 3 or 4 runs?

Sub ImportMixedData()
Application.ScreenUpdating = False
co = Cells(7, 2).Value
Set BS = ActiveWorkbook
username = "Bench01"
password = "K444"
Workbooks.Open Filename:="ftp://" & username & ":" & password & "@172.16.0.10/MEMCARD1/FC_FILES/FC_DATA.CSV"
range("D2:D27, G2:G27").Select
Selection.Copy
'Paste data on flow curve in request file
BS.Activate
Cells(30, 2).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Application.DisplayAlerts = False
Workbooks("FC_DATA.CSV").Close savechanges:=False
Application.DisplayAlerts = True
End Sub