Загрузка файлов с FTP на общий диск

У меня есть макрос Excel, который может вытащить файлы с FTP-клиента WinSCP в мою локальную папку C:\users\documents , однако, когда я изменяю путь к папке на диске G: оболочка больше не запускает созданный скрипт по моему коду автоматически. Мой код создает сценарий, а затем мне нужно вручную перейти на cmd и запустить "ftp -s:" & sWorkingDirectory & FTP_BATCH_FILE_NAME для передачи файла с FTP на G:

Вот мой код до сих пор, есть ли у кого-нибудь совет, что я должен делать?

 Option Explicit Const FTP_ADDRESS = "ip address" Const FTP_USERID = "user" Const FTP_PASSWORD = "pw" Sub GetFile() If Not GetFtpFile_F() Then MsgBox "Error getting ftp file" Else MsgBox "Received" End If End Sub Function GetFtpFile_F() As Boolean Dim rc As Integer Dim iFreeFile As Integer Dim sFTPUserID As String Dim sFTPPassWord As String ' Dim sWorkingDirectory As String Dim sFileToGet As String Const FTP_BATCH_FILE_NAME = "PULLSCRIPT" GetFtpFile_F = False sWorkingDirectory = "G:\...\...\folder\" sFileToGet = "file." & Format(Now(), "yyyyMMdd") On Error GoTo FtpNECAFile_EH 'Kill FTP process file if it exists If Dir(sWorkingDirectory & FTP_BATCH_FILE_NAME) <> "" Then Kill sWorkingDirectory & FTP_BATCH_FILE_NAME End If 'Create FTP process file iFreeFile = FreeFile Open sWorkingDirectory & FTP_BATCH_FILE_NAME For Output As #iFreeFile Print #iFreeFile, "open " & FTP_ADDRESS Print #iFreeFile, FTP_USERID Print #iFreeFile, FTP_PASSWORD Print #iFreeFile, "cd " & FTP_USERID Print #iFreeFile, "mget " & sFileToGet Print #iFreeFile, "y" Print #iFreeFile, "quit" Close #iFreeFile 'Shell command the FTP file to the server Shell "ftp -s:" & sWorkingDirectory & FTP_BATCH_FILE_NAME GetFtpFile_F = True GoTo FtpNECAFile_EX FtpNECAFile_EH: MsgBox "Err", Err.Name FtpNECAFile_EX: Exit Function End Function 

Просто сделайте исправление. Как показано ниже. Это работало. На меня надеюсь, что вы будете работать и на вас

  Print #iFreeFile, "open " & "111.111.1111.111" Print #iFreeFile, "[email protected]" Print #iFreeFile, "********" Print #iFreeFile, "cd " & "/data" Print #iFreeFile, "lcd D:\mydata\test" Print #iFreeFile, "mget *.csv" Print #iFreeFile, "y" Print #iFreeFile, "close" Print #iFreeFile, "quit" Close #iFreeFile or iFreeFile = FreeFile Open sWorkingDirectory & FTP_BATCH_FILE_NAME For Output As #iFreeFile Print #iFreeFile, "open " & FTP_ADDRESS Print #iFreeFile, FTP_USERID Print #iFreeFile, FTP_PASSWORD Print #iFreeFile, "cd " & FTP_USERID Dim FTP_mypath As string FTP_mypath ="D:\mydata\test" Print #iFreeFile, "lcd " & FTP_Mypath Print #iFreeFile, "mget " & sFileToGet Print #iFreeFile, "y" Print #iFreeFile, "quit" Close #iFreeFile 
  • Выходной текст Создание / сохранение файла VBA
  • Команда FTP работает в Excel VBA, но не PowerPoint
  • Ошибка открытия файлов csv на ftp-сервере с использованием VBA
  • Справка Excel VBA для объектов Inet
  • Отправка файла через FTP на общий диск (UNC)
  • Нечетное поведение FTP при вызове командного файла из VBA на Windows Server 2012 R2
  • Загрузить файл через FTP из Excel VBA
  • Использование FTP в VBA
  • Excel VBA Shell FTP регистрации
  • Извлечение файлов Excel с FTP-сервера и сохранение на Google Диске
  • Загрузка с помощью VBA через sFTP и FTP, выходы журнала для обнаружения ошибок
  • Interesting Posts

    Копирование различных выбранных диапазонов Excel в разные текстовые файлы

    Пакет SSIS .csv в .xlsx необходимо перезаписать вместо добавления данных

    Подсчет нескольких конкретных букв в одной ячейке

    Изменения цвета вкладки – макрос – не работает должным образом

    Изменение способа объявления переменной в зависимости от размера рабочего листа?

    VBA – создание диаграммы, где каждая серия представляет собой точку данных

    Получить значение ячейки из случайных строк на основе того же значения содержимого

    Код VBA для перевода sourcedata в таблицу excel

    Удаление Excel ListObject после его отмены

    Диапазон ISBLANK? Как проверить диапазон для того, чтобы быть пустым

    Excel, 2> 1 = False, How?

    Внедрение Excel в качестве объекта изображения в документ Word. Холодный синтез

    добавление двух столбцов в vba userform combobox

    Вызовы пользователей в нескольких модулях

    Отправка электронной почты через VBA

    Давайте будем гением компьютера.