API Артека (БизнесАкила)

В 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