Загрузка штрихкода из Экселя #445507

Добрый день. Написал обработку загрузки номенклатуры из документа Excel. Не понимаю каким образом можно считать штрихкод, который в файле я так понимаю в виде рисунка. Подскажите, пожалуйста, уважаемые, как это сделать? Спасибо. ШтрихКод = Прил.Range("I"+Строка(I)).Value; В ШтрихКоде ничего нет.

Сначала знай в каком формате. Да и потом, что за файл, от поставщика?

ты уже определись что там в ячейке: картинка или число?

Штрих код это цифры с определенным шрифтом. Чтобы его получить в 1с, его надо получить из екселя не в виде картинки...

это печатная форма РасходнойНакладной самописной конфы. В ячейке экселя рисунок в виде полосок (какие обычно на этикетках) под ними цифры. То есть из картинки получить штрихкод не реально? нужно переделать выгрузку, чтобы выгружался штрихкод в числовом виде без цифр? Других вариантов нет? Просто переделать выгрузку не реально.

поясняю что полоски и цифры это всё вместе рисунок

В ячейке Excel - точно рисунок? Что в поле формулы записано? Если рисунок - то какой именно объект этот рисунок делает.

.3 Ну только если распознать чем-то...

в ячейке формула написано =ВНЕДРИТЬ("BARCODE.BarcodeCtrl.1";"") в режиме загрузки как это сделать?

Ну в теории всякие USD ведь распознают картинки с сайти, использую движок FineReadera, но ИМХО проще выгрузку переделать, чем огород городить Так ты не ответил, что за файл. Если от поставщика, то могут быть грабли, так как их штрихкод, может совпадать с вашим. Если это ваши внутренние перемещения, то проще выгрузку/загрузку нормально сделать. В любом случае зачем вам именно этот штрихкод?

У Barcode, eсли мне память не изменяет, свойство Value выдаст "цифирки".

сохрани в текстовом формате - там ШК есть?

+ Пройдись по файлу, получай объекты - и вытаскивай из них штрих-коды.

Клиент берёт товар от двух разных поставщиков. Оба они ему предоставляют накладные в Excel формате. Товар у обоих поставщиков может быть одинаковым, но называться может по разному, артикул у них тоже разный, а вот штрихкод совпадает. Поэтому есть мысль при загрузке искать по штрихкоду. Именно за этим мне и нужно его получить. Переделать выгрузку нереально, потому как никто не будет из-за единственного ИП менять конфигурацию в крупной торговой сети.

Ну просто штрих код не всегда производитель рисует. Иногда его может сама торговая сеть проставить. Поэтому возможны ситуации, кода товар разный а штрихкод один.

Загружаешь - чем?

написал обработку

Прил.Range("I"+Строка(I)).ПолучитьОбъект.Value Ошибку выдаёт. Как правильно прописать?

Так а чем тебя вариант из не устраивает?

[Товар у обоих поставщиков может быть одинаковым, но называться может по разному, артикул у них тоже разный, а вот штрихкод совпадает] есть артикул, в УТ УПП КА есть Рг номенклатура контрагентов, нафиг огород с штрих-кодом городить

))) дак как это прописать то правильно?

Там не Range, а Shapes. И никаких "ПолучитьОбъект" в VBA нет.

Прил.Shapes("I"+Строка(I)).Value    {}: Метод объекта не обнаружен (Shapes)

Прил - это Excel? Обращайся к Worksheet. И залезь в справку по VBA, посмотри, что там написано.

Справка не помогла Вот должен быть более менее похожий вариант. ШК=Прил.Workbooks.Worksheets.Shapes.Application.ActiveSheet.OLEObjects(Прил.Range("I"+Строка(I)).Value); Где ошибка? Подскажите, плиз, многоуважаемые гуру.

>>ШК=Прил.Workbooks.Worksheets.Shapes.Application.ActiveSheet.OLEObjects(Прил.Range("I"+Строка(I)).Value); жесть

дык в чём жесть то?

Гм. А почему бы не попросить поставщика вставить колонку с цифровым штрих кодом?

никто не будет из-за единственного ИП менять конфигурацию в крупной торговой сети.

Это еще почему?

да это нереально просто.

Так написал. тоже ошибка Прил.ActiveSheet.OLEObjects("картинка "+i).Object.Text

Неужели никто не знает?

кинь кусок xls на slil.ru

нашел таки разницу между Прил.ActiveSheet.OLEObjects("картинка "+i).Object.Text и Прил.Workbooks.Worksheets.Shapes.Application.ActiveSheet.OLEObjects(Прил.Range("I"+Строка(I)).Value); ))

Спасибо dk

к сожалению в готовом файле уже просто картинка и текст из нее не вытащить ( хотя могу ошибаться, но ...

попробовать каким-то образом натравить на картинку штрихкода распознавалку Душелова...

или