Импорт txt-значений из FTP

401
Darkburrow

Я пытаюсь получить текст в формате .txt с FTP, который я хочу в Excel, вот что я получил от поддержки наших поставщиков:

Создайте файл с именем GetFromFTP.bat с этим в нем.

echo off c: cd\import ftp -s:getmyfile.dat

Другой файл - getmyfile.dat и содержит:

open x.x.x.x  username  password  cd /Prisfiler  get Saldot.txt  quit

Затем я сделал новый макрос, содержащий:

Sub ImportSaldo() Call Shell("c:\import\GetFromFTP.bat", vbNormalFocus)  Dim fileName As String, folder As String  folder = "c:\import\" fileName = "Saldot.txt"  ActiveCell.Offset(0, 0).Range("A1").Select  With ActiveSheet.QueryTables _ .Add(Connection:="TEXT;" & folder & fileName, Destination:=ActiveCell) .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 850 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = False .TextFileSemicolonDelimiter = True .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With  End Sub

У меня также есть надстройка, которая синхронизирует Excel с нашим интернет-магазином, которая предназначена только для 32-битной Windows, и, поскольку я на Mac, я использую виртуальную машину с Windows 10, но я не уверен, что это может быть проблемой. Запуск макроса возвращает «Ошибка 400», если я создаю файл с именем Saldot.txt в папке импорта, я получаю «Ошибка: Недостаточно памяти», и если я помещаю, например, 55555555; 232 вручную, в файл Saldot.txt, то это будет импортирован в Excel, поэтому, если я не объяснил это как осел, теперь вы должны знать, что я хочу, чтобы содержимое текстового файла с FTP было импортировано на активную вкладку.

Если вам нужна другая информация из моих плохих объяснений, просто скажите мне.

Благодарю.

0

0 ответов на вопрос

Похожие вопросы