В Sync.X добавить задание с типом “[WEB] Парсер/Характеристики”
В настройках задания во вкладке “Другие парсеры / API поставщиков” ввести такие настройки:
[suppl] arteka [arteka] active=1 login=ЛОГИН pass=ПАРОЛЬ price_path=g:\123.csv
вместо ЛОГИН ввести ваш логин в b2b поставщика, вместо ПАРОЛЬ - ваш пароль
в price_path указать путь, куда будет сохранен файл, расширение файла CSV
Для загрузки файла в программу использовать макрос для CSV в карточке прайса
текст макроса:
With ActiveSheet.QueryTables.Add(Connection:="TEXT;###FILE###", Destination _
:=Range("$A$1"))
.Name = "csv"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
'укажите кодировку файла, 1251 - windows, 65001 - utf-8
'если с 1251 получите не русский текст, попробуйте 1252
.TextFilePlatform = 65001
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False 'True, если разделитель в файле Tab
.TextFileSemicolonDelimiter = True 'True, если разделитель в файле Точка с запятой
.TextFileCommaDelimiter = False 'True, если разделитель в файле Запятая
.TextFileSpaceDelimiter = False 'True, если разделитель в файле Пробел
.TextFileOtherDelimiter = "" 'между кавычками другой разделитель, если нужно
'укажите здесь числа 2 через запятую, столько сколько у вас
'колонок в прайсе, если 7 колонок, то 2, 2, 2, 2, 2, 2, 2
.TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With