Работа с FTP из VBA

Коллеги подскажи... столкнулся с такой проблемой, что данный алгоритм категорически не работает с буквой Я на фтп сервере... при загрузке файлов на ФТП в имени которых есть буква Я, она просто пропускается, а при попытке обратиться к папке с буквой Я он ее просто не находит...
Вч ем может быть проблема???

IP адрес:порт
Подскажите, почему адрес сервера с портом для доступа не работает?
например завожу в поле сервер 121.121455.86:2121 при проверке пишет ошибка, при удалении порта начинает проверять, но естественно ошибка, так как требуется порт...

Ещё раз здравствуйте! Хотел бы поделиться результатами испытаний на различных компьютерах данного этого скрипта и класса.
Вкратце, всё удручающе плохо, но не потому что автор что-то не учёл или допустил ошибку. Тут как раз наоборот, код логически блестящен, а класс построен безукоризненно на мой взгляд дилетанта.
Проблема заключается совсем другом: утилита ftp, встроенная в систему Windows, крайне капризна в плане работы через различные файрволлы с NAT, которыми изобилуют локальные подсети как у частных лиц, так и организациях. В некоторых случаях, эту утилиту (ftp) не удалось заставить работать должным образом даже при деятельном содействии нескольких системных администраторов разных корпоративных подсетей.

Решение было подсказано "внезапно" работающей программой командной строки на моём компьютере с Windows 10 (это вендорская сборка ОС от бренда, имя не указываю, чтобы не сочли за рекламу). Её имя - cURL, которая чаще привычна пользователям *NIX операционных систем. Чаще всего, cURL на Windows не предустановлен. Вкратце, основной функционал:

'скачивает c FTP указанный файл (file.txt) в указанную папку под нужным именем (my_file.txt)
curl -u user:password -o c:\tmp\my_file.txt ftp://my_ftp.server.ru/files/file.txt

'закачивает файл my_file.txt из указанного места на FTP с тем же именем
curl -u user:password -T c:\tmp\my_file.txt ftp://my_ftp.server.ru/files/

С использованием этой утилиты: все пляски с бубнами по поводу NAT, открытием портов, раздачей прав в политиках и проброски портов через шлюзы - сразу закончились!
Установка cURL на Windows любой версии проста и легко ищется по запросу "cURL Windows", я её устанавливал на компьютеры даже в условиях ограниченной учетной записи (т.е., без прав Администратора).
Мне пришлось модифицировать представленный Игорем код в соответствии с задачами моего конкретного случая, и полагаю, это послужит толчком для остальных пытливых пользователей этого замечательного сайта. Код публиковать не буду нигде по многим соображениям, просто подсказал путь принципиального решения проблемы.

Ещё раз спасибо Игорю - автору, программисту и администратору этого замечательного проекта!

Прежде всего хотелось бы поблагодарить Администратора этого замечательного сайта за этот скрипт. Спасибо Игорь, вы делаете хорошее дело!
Заметил, что некоторые пользователи жалуются на то, что при закачке и скачивании файла они получают файл с нулевой длиной.
С ровно такой же проблемой пришлось столкнуться и мне. При этом способ, подсказанный в обсуждении - добавить процесс Excel.exe в исключения для брандмауэра - мне не помог.
Пришлось копнуть немного глубже.
Как оказалось, при отключении брандмауэра, весь функционал класса работает вполне нормально.
Не буду рассказывать долго из-за чего это произошло и как.
Мне помогло добавление правила в исходящие и входящие соединения для файла ftp.exe , который обычно находится в папке Windows/system32/. Правило разрешает все соединения этого файла по протоколу TCP по всем портам. Для справки: у меня Windows 10 Home, которая в мае 2018 обновилась до версии 1803.

ЭЭх, блин, я поищу конечно в нете перебор, ибо сам могу только на Js сейчас написать перебор, на VBA - к сожалению слишком вскользь сталкивался. А так - я конечно понимаю что вам это не прям надо - но мб скинули бы вариант?Или через заказ только?

Здравствуйте. подскажите - можно ли как-то сделать загрузку всех файлов из папки по опр. шаблону (типа как по формату, *.jpg/*.ico и т.д.)

В файле с использованием WinAPI прописаны условия для разных версий VBA. А в случае с разными ОС (32 и 64 бит) всё идентично?

День добрый!
Возникла проблема при загрузке файла с фтп... если попытаться сохранить файл в корневой каталог например c:\1.xlsm то он его просто туда не записывает не выдавая никакой ошибке о доступе и т.д. там просто не появляется файла...
А вот если указать путь c:\users\public\1.xlsm то все нормально сохраняется

Здравствуйте, Игорь!
Подскажите, пожалуйста, можно ли с помощью вашего решения загружать файлы одновременно на два разных сервера? Можно ли в настройках задать два фтп? Если да, то подскажите, пожалуйста, каким образом? Где это задать?

Да, как всегда, спешишь и только все усложняешь сам себе )) Благодарю, так все работает. Отправил так же небольшую благодарность за помощь на Я.кошелек.
Заметил маленький недочет, если интересно.
В настройках сайт прописываю так:
.BaseURL = "http://site.ru/"
загрузку файла запускаю так:
link$ = FTP.UploadFile(filename$, "/wp-content/uploads")
или так
link$ = FTP.UploadFile(filename$, "wp-content/uploads")
файл в любом случае закачивается норм, а вот в окне отладки результат всегда пишется с пропущенным слэшем:
"Загруженный файл доступен по ссылке: http://site.ru/wp-contentuploads/111.txt"

А я так и написал в посту ниже: "Создал новый файл Access, из вашего примера по ссылке с WinAPI экспортировал в него все что было внутри."
Я думаю "перетащить" и экспортировать/импортировать это же без разницы?
Вот скриншот с файла Access - https://yadi.sk/i/DaVsKN63pgxuL - все модули и формы называются точно также и содержат точно такой же код как в вашем примере.

Но дело не в этом. Сейчас скачал ваш пример с WinAPI, вставил в НЕГО новую процедуру test() - код ее ниже я писал - запустил и получил ровно ту же ошибку объекта.
Так что я явно что то не так запускаю. Взгляните плиз на код моей процедуры запуска еще разок, как будет время...

Вы написали "поставить какие-то галочки", а их там тьма... ) Ну не суть.
Теперь на самую первую строку моей процедуры ругается "Требуется объект", то есть "New FTPsettings" не может выполнить.
В каком классе этот объект задается? Не найду..
Форму я никак не запускал и не сохранял через нее данные, если что. Ведь это наверно не нужно, раз я руками в процедуре прописываю доступы?

Создал новый файл Access, из вашего примера по ссылке с WinAPI экспортировал в него все что было внутри.
Создал для теста новую процедуру по примеру из коммента:

Sub test()
    Set FTP.settings = New FTPsettings
    With FTP.settings
        .Host = "site.ru"
        .Login = "login"
        .Password = "pass"
        .BaseURL = "http://site.ru/"
        .Mode = 0
    End With
    If Not FTP.OpenConnection Then
        MsgBox "Не удалось соединиться с сервером site.ru" & vbNewLine & _
               FTP.GetLastError, vbCritical, "Ошибка доступа на сервер по FTP"
        Exit Function
    End If
    MsgBox "Success"
End Sub

Здравствуйте.
Спасибо за код что вы пишите.
Столкнулся с такой же проблемой что и Сергей - при использовании модуля без WinAPI на одном компе все проходит нормально, а тот же код на другом компе пишет пустой файл на FTP.
В результате хочу попробовать модуль с использование WinAPI, но там все в разы сложнее понять... Никак даже не могу найти где мне прописать настройки. В этой версии модуля их нельзя прописать в коде VBA?
И второй вопрос, попробовал использовать этот модуль для VBA Access, но при запуске тестового примера выдает какую-то ошибку связанную с DOM. Может ли модуль на основе WinAPI работать из Access 2010?

Здравствуйте!
А с помощью вашей надстройки возможно получить список файлов с контрольными суммами md5 из определенной папки ftp-сервера, не скачивая эти файлы?

Спасибо огромное, все работает! Правда пришлось так же заменить пять слов на Object )

Не подскажете где искать? Прошлая версия была проще, в этой, слегка заблудился. Буду крайне признателен.

Попробую ) Подскажите пожалуйста, можно ли обойти внесение в реестр данных о сервере? Можно ли внести данные непосредственно в код VBA, как было в старой версии? Безопасность не волнует совсем.

Пользуюсь Вашим модулем с удовольствием, но в процессе тестирования обнаружил такую проблему: в большинстве случаев отправка происходит нормально. Файл сохраняется и отправляется. Но иногда происходит так, что на сервер отправляется АБСОЛЮТНО пустой файл, с нулевым размером. Я использую один и тот же ноутбук, но в разных местах: на работе и дома. Дома не работает. На работе - легко. В чем причина - понять не могу. Разный в этих случаях лишь интернет. Но при этом в том же total commander файл на тот же сервер доходит нормально. И сохраняется файл тоже нормально. Следовательно проблема в пересылке. Не подскажете с чем мне поковыряться? Потому что сегодня мне поставщик точно так же не смог ответить, пришли дважды пустые файлы (

Огромное спасибо все заработало.

Здравствуйте. Большое спасибо за новую версию, проверил в оригинале работает.
Но возникла проблема при переносе в другой - документ, при запуске формы появляется ошибка в функции
Function ExportToXML() As IXMLDOMElement. Office 2013 x64

Новая версия работает только в 32-битном Excel. Если сам Excel 64-битный, то некоторые функции не работают, как минимум GetDirectoryListing. Видимо, связано с изменением размера указателей.

Добрый день!
Скачал ваш модуль, пользуюсь для закачки файлов на сервер, все отлично работает!
Не могли бы вы отправить мне на почту усовершенствованный вариант с функциями SetFTPDirectory, GetDirectoryListing и др.
Заранее спасибо!

в принципе, пользуясь вашим советом в комментах 1-го файла:
' Информацию по параметрам командной строки FTP.exe можно найти здесь:
' http://computers.deria.ru/article/~pr/sprav/166/282/
- можно все действия ручками в FTP.exe перевести в код, как в вашем примере на planetaexcel (http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=8&TID=3...) в ветке "адрес файла на фтп с неизвестной переменной"

по линку, указанному мной ниже - дополнение класса модуля выглядит так: !!!
Function FilesFromFolder(ByVal FtpFolder$, Optional ByVal Mask$ = "*")
On Error Resume Next: Kill TMP_FILE_PATH$
folder$ = Replace(FtpFolder$, "//", "/")

TXT_DIR$ = "user " & Login & " " & Password & vbNewLine
TXT_DIR$ = TXT_DIR$ & "cd " & folder$ & vbNewLine
'ls [удаленный_каталог] [локальный_файл] - Вывод сокращенного списка файлов и подкаталогов в удаленном каталоге.
TXT_DIR$ = TXT_DIR$ & "ls " & Mask$ & " """ & TMP_FILE_PATH$ & """" & vbNewLine
TXT_DIR$ = TXT_DIR$ & "close" & vbNewLine & "bye" & vbNewLine

res$ = Execute(TXT_DIR$)
s = Split(res, "150 Here comes the directory listing.")(1)
res$ = Split(s, "226 Directory send OK.")(0)

FilesFromFolder = res$

Kill TMP_FILE_PATH$
While Right(FilesFromFolder, 2) = vbNewLine: FilesFromFolder = Left(FilesFromFolder, Len(FilesFromFolder) - 2): Wend
FilesFromFolder = Split(FilesFromFolder, vbNewLine)
End Function

а сам Обычный модуль так: !!!
Private Function FTPacc() As FTPcommander
'account ' возвращает объект типа FTPcommander, с нужными настройками
Set FTPacc = New FTPcommander
With FTPacc
.Host = "ftp.cmegroup.com"
.Login = "anonymous"
.Password = ""
.BaseFolder = "ftp.cmegroup.com"
.BaseURL = "C:\"
End With
End Function

Sub test()
On Error Resume Next
strPath = "forwardpoints"

Dim FTP As FTPcommander ' объявляем переменную
Set FTP = FTPacc ' создаём объект с нужными настройками

' загружаем с FTP список файлов
arr = FTP.FilesFromFolder(WEB_FOLDER$, strPath)
MsgBox "Найдено файлов: " & UBound(arr)
MsgBox "Последний файл: " & arr(UBound(arr))

' перебираем имена файлов в массиве
'For i = LBound(arr) To UBound(arr)
'MsgBox "Найден файл: " & vbNewLine & arr(i)
'Next i

Set FTP = Nothing
End Sub

Спасибо вам ещё раз. Новые технологии буду осваивать, наверно, попозже... у меня пока работает и прошлое ваше творение!

Игорь, все программисты - волшебники. - ваш модуль класса в FTPфайле очередной раз доказывает это. Вобщем, поэкспериментировав с !! TotalCommander выявила параметры нужного ftp: (если кто-нибудь захочет заглянуть на CMEgroup)

Function MyFTPaccount() As FTPcommander
' возвращает объект типа FTPcommander, с нужными настройками
Set MyFTPaccount = New FTPcommander
With MyFTPaccount
.Host = "ftp.cmegroup.com"
.Login = "anonymous"
.Password = ""
.BaseFolder = "/settle/"
.BaseURL = "C:\"
End With
End Function

смогла закачать файл:
Sub MY_test()
Dim FTP As FTPcommander ' объявляем переменную
' создаём объект с нужными настройками
' необязательно, если настройки записаны в реестре
Set FTP = MyFTPaccount
fn$ = "C:\1\"
res = FTP.DownloadFile("", "stlcur", fn$ & "mysett.txt")
If res Then
Debug.Print "Файл успешно загружен с FTP"
Else
Debug.Print "Ошибка: ", FTP.GetLastError
End If
End Sub

правда, "дебугнулось", что ошибка... но файл, оказался, благополучно загруженным... Спасибо вам большое!.. мой выходной прошёл не зря!...
попробую разобраться ещё, КАК считать имена и время последнего файла в папке на ftp... (ftp://ftp.cmegroup.com/forwardpoints/)... может быть, у вас найдутся идеи и мысли в свободное время?? успехов вам.

Игорь, я знаю ответ вместо Яны, поскольку попала в такую же ситуацию... - с ftp всё время берутся старые данные (которые хоть раз открывались в IE) - похоже, отпечатались где-то в Temporary IE Files... - если брать через ваш GetHttpResponce... поэтому вынуждена искать др. вариант для доступа на ftp.cmegroup.com (в моём случае)... через ftp.exe - могу войти ок, как аноним в командную строку:(ftp -A ftp.cmegroup.com)>dir>cd settle>dir>lcd c:\>get stlcur mysett.csv... потом >quit... - РУЧКАМИ ЭТО ВСЁ РАБОТАЕТ!!..

ваш код из ответа#17 очень, думаю, подходит, чтобы автоматизировать этот процесс, но почему-то ничего не срабатывает... думаю, что не знаю, что прописать здесь (чтобы работало то, что у меня получается руками в ftp.exe)... ?? не подскажете, в чём ошибка и почему не работает и как можно исправить ошибку ?

Function MyFTPaccount() As FTPcommander
' возвращает объект типа FTPcommander, с нужными настройками
Set MyFTPaccount = New FTPcommander
With MyFTPaccount
.Host = ""
.Login = ""
.Password = ""
.BaseFolder = "/ftp.cmegroup.com/settle/"
.BaseURL = "C:\"
End With
End Function

Sub test2342342()
Dim FTP As FTPcommander ' объявляем переменную
' создаём объект с нужными настройками
' необязательно, если настройки записаны в реестре
Set FTP = MyFTPaccount

не могу понять, как в моей ситуации подобраться к ftp.cmegroup.com??:
(чтобы сделать то, что делала в ftp.exe) - что означают данные параметры для функции?? куда, откуда? и слэш всегда нужен?

' скачивание файла
If FTP.DownloadFile("C:\test.jpg", "mail.jpg", "/") Then
Debug.Print "Файл скачан успешно, размер файла в байтах: " & FileLen("C:\test.jpg")
Else
Debug.Print "Ошибка: " & FTP.GetLastError
End If

' получение списка файлов из заданного каталога
If Not FTP.SetFTPDirectory("test") Then
Debug.Print "Не удалось подключиться к каталогу «test»"
Exit Sub
End If

p.s. т.е. по сути 2 вопроса мучают уже долго:
1)как авторизоваться как аноним чтобы скачать на локал комп?
2)как правильно прописать вашу функцию в моём случае? (с какими параметрами)

а что, в виндовом ftp.exe отменили команду pasv ?

наверно я слишком тупа никак не пойму назначение этой строчки.

SaveSetting Application.Name, "FTP", "BaseURL", "http://Адрес Вашего Сайта, куда будут закачиваться файлы/"

не поняла, зачем сайт. Мне нужно на локаль скопировать.
А если и сайт, а права раздать, что прям на любой сайт возьмет и закопируется, не понятно.

("Выслал вам на почту файл с новой версией инструментов для работы с FTP")
Буду очень признателен, если выложите эту версию файла на сайт или отправите и мне на почту.
А то уже отчаялся настроить получение списка файлов и размер папки на FTP на основе того кода, что здесь представлен. Excel ругается на первую же строчку "Dim FTP As New FTPserver, settings As New FTPsettings" из макроса "ПримерРаботыССерверомFTP".
Огромное спасибо!

Приветствую всех! Во-первых, хочу поблагодарить админов за этот сайт. Во-вторых за этот топик. Очень помог. Одна проблемка - на Win8 64 брандмауэр блокирует. Какой файл нужно добавить в исключения, чтобы макрос работал без проблем... Или брандмауэр блокирует сам порт? Знатоки, кто подскажет?

Попробовал Макрос со своими настройками (вариант 2). В итоге на сервере появляется файл который я заливал, но 0 размера. Разрешения для папки заливки поставил 777, но все равно ничего не изменилось.