Opening of csv files from ftp server not working

haplc

Board Regular
Joined
May 27, 2004
Messages
71
Dear All,

I have multiple csv files in a local directory in my computer. Using following code, I am able to open each csv file and paste in master excel sheet. However, when I change location from my local directory to ftp server, I am getting this message: Run-time error '52' -Bad file name or number

In short, instead of having "folderpath" in my computer, it has to be in ftp server. THanks in advance for help

Code....

Private Sub CommandButton11_Click()
Dim SummarySheet As Worksheet
Dim FolderPath As String
Dim NRow As Long
Dim FileName As String
Dim WorkBk As Workbook
Dim SourceRange As Range
Dim DestRange As Range


' Downloadig files from a location in the laptop
FolderPath = "C:\Users\hahmed\Box Sync\Success stories\October2016"

' Downloadig files from a ftp server
' FolderPath = "ftp://10.128.158.152"

' To start copying from row 2
NRow = 2

' Call Dir the first time, pointing it to all Excel files in the folder path.
FileName = Dir(FolderPath & "*.csv*")

' Loop until Dir returns an empty string.
Do While FileName <> ""
' Open a workbook in the folder
Set WorkBk = Workbooks.Open(FolderPath & FileName)

' On Error Resume Next

ActiveSheet.Range("A1:bi1").Select
Selection.Copy


Windows("Success_storiesMsol_Oct2016_blankoCSV.xlsm").Activate
Range("A" & NRow).Select
Selection.PasteSpecial


Set WorkBk = Workbooks.Open(FolderPath & FileName)
ActiveSheet.Pictures.Copy
On Error Resume Next

With Workbooks("Success_storiesMsol_Oct2016_blanko.xlsm").Sheets("Jan 2015")
.Parent.Activate
.Activate
.Range("BF" & NRow).Select
.Paste
On Error Resume Next
End With
On Error Resume Next
Application.CutCopyMode = False


' Increase NRow so that we know where to copy data next.
NRow = NRow + 1

' Close the source workbook without saving changes.
WorkBk.Close savechanges:=False

' Use Dir to get the next file name.
FileName = Dir()
Loop

For Each Cell In Range("Ab1", Range("Ab6500").End(xlUp))
If (Left(Cell, 4) = "SESA") Then
Cell.Value = Right(Cell, Len(Cell) - 4)
End If
Next Cell
MsgBox "All files from the folder have been imported"
' Call AutoFit on the destination sheet so that all
' data is readable.
' SummarySheet.Columns.AutoFit
End Sub
 

Excel Facts

Can a formula spear through sheets?
Use =SUM(January:December!E7) to sum E7 on all of the sheets from January through December

Forum statistics

Threads
1,223,227
Messages
6,170,848
Members
452,361
Latest member
d3ad3y3

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top