Как найти UPC штрих-код из ячейки Excel в виде VBA? - PullRequest
Новая
       21

Как найти UPC штрих-код из ячейки Excel в виде VBA?

0 голосов
/ 08 июня 2019

У меня есть база данных инвентаризации в Excel с пользовательской формой ввода со следующими и предыдущими кнопками, которые показывают ранее введенные данные. Как я могу добавить опцию, скажем, кнопку «посмотреть штрих-код», она будет автоматически искать его на сайте www.upcitemdb.com. У него есть API с JSON, но я не уверен, нужно ли мне это вообще, и я не знаю, как это сделать. Все, что мне нужно, это как только кнопка поиска будет введена, она откроет браузер и автоматически найдет штрих-код, который был в ячейке со штрих-кодом на листе. Спасибо за вашу помощь.

Посмотрел API, но я не знаю Java-скрипт. 

Private Sub UserForm_Initialize()

    MultiPage1.Value = 0
    Call resetForm

         With Worksheets("Data")
    ComboBox1.List = .Range(.Range("A1"), .Range("A1").End(xlDown)).Value
    End With

    With Worksheets("Data")
    ComboBox2.List = .Range(.Range("B1"), .Range("B1").End(xlDown)).Value
    End With

    'ComboBox1.ListRows = 8


    ' Set the first item in combobox
    ComboBox1.ListIndex = 0
    ComboBox2.ListIndex = 0


'worksheet with your data
    Set wsDatabase = Sheets("Inventory")
        'find last row in data range
        LastRow = wsDatabase.Cells(wsDatabase.Rows.Count, "A").End(xlUp).Row
        'Cells(Rows.Count, 1).End(xlUp).Row
    'start at first record
    r = LastRow

    'or from activecell
    'r = ActiveCell.Row - 1


    Navigate Direction:=r


End Sub

1 Ответ

0 голосов
/ 09 июня 2019

как только кнопка поиска будет введена, откроется браузер и автоматически искать штрих-код, который был в ячейке штрих-кода в лист

это легко исправить:

скопируйте нижеприведенную функцию, поставьте полный URL с / в конце, добавьте штрих-код, вуаля. старый добрый друг IE появляется сразу. 

Sub gotopage(url As String, barcode As String)
    Shell ("C:\Program Files\internet explorer\iexplore.exe " & url & barcode)
End Sub
...