Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
загрузка файла через VBA на FTP сервер
 
Все привет!

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

Сервер: ftp://xserv20588.hybridserver.at/BA
Пользователь: sw5xxsbk
Пароль: 123456
Файл, который нужно загрузить: C:\Users\Alexandr Shlika\Desktop\BA_Hurtel.csv
Изменено: shlika - 15 Мар 2019 03:09:59
 
Вы б показали что уже перепробовали, и без результата, а то сейчас накидаем еще вариантов а окажется у вас доступ через прокси или там еще что-то не работает.
https://officetricks.com/excel-vba-ftp-upload-download-secure-file-transfer-macro/
https://excelvba.ru/code/tools/FTP
https://stackoverflow.com/questions/7737691/upload-file-via-ftp-from-excel-vba
 
я выбрал Put для загрузки на сервер, логин, пароль, не совсем уверен, правильно ли я вписал сам фтп и где указывать локальное место нахождение файла, который я хочу загрузить на сервер?

Код
Sub Put_File_To_FTP()
    'Variable Declarion Section
    Dim FTP As Inet
    
    'Assign Host URL, Source and Destination File path
    HostURL = ThisWorkbook.Sheets(1).Cells(1, 1)
    FileSource = ThisWorkbook.Sheets(1).Cells(1, 2)
    FileDestination = ThisWorkbook.Sheets(1).Cells(2, 2)
    
    'Create New instance of Object and Assign the Parameters
    Set FTP = New Inet
    With FTP
        .URL = HostURL
        .Protocol = icFTP
        'Replace with your Login and Password Below. Many FTP servers allow Anonymous access with below credentials
        .UserName = "sw5xxsbk"
        .Password = "DGAlksyhdf_1ldfgh"
        .AccessType = icUseDefault
        'Use "Get" to Download and "Put" Option to Upload File to FTP Server
        .Execute .URL, "Put " & FileSource & "ftp://xserv20588.hybridserver.at/BA" & FileDestination
    End With
    Do While FTP.StillExecuting
        DoEvents
    Loop
    
    'Status of FTP through Voice Message
    Application.Speech.Speak "Process Completed;" & FTP.ResponseInfo
    
    If FTP.ResponseCode = 0 Then
        'SomeTime FTP steps will execute successfully, but file will not be there in Destination path
        'Search for the file in the Path mentioned in this Message Box
        MsgBox "File is Copied to :" & VBA.CurDir
    End If
    Set FTP = Nothing
End Sub
Изменено: shlika - 15 Мар 2019 13:59:11
 
Ребята, помогите пожалуйста!
 
источник
Понравился тем, что нет ни подключения OCX ни ….

Скрытый текст
Изменено: БМВ - 15 Мар 2019 19:13:43
 
БМВ,
почему у меня фунция выделена красным цветом?
 
shlika, Где?
 
БМВ,
toftp.png (156.67 КБ)
 
Что у вас с версией и разрядностью офиса? Предположу что сюда
Изменено: БМВ - 15 Мар 2019 19:53:39
 
БМВ, я несовсем понимаю, что мне с этим делать?..
 
изучать и программировать.
 
Доброе время суток.
Цитата
БМВ написал:
изучать и программировать.
Что-то сегодня админ суров! И ко мне сегодня приходил админ, но так и не поставил Aris - 9 рабочих дней, Касперский побеждает :)
 
Андрей VG, Андрей, будешь тут суров, за макрушников отдуваться приходится. :-)
Страницы: 1
Читают тему (гостей: 1)
Наверх