отображения сгенерированного кода с сайта в excel

[Kapany3uk]

Всем доброго дня, помогите с макросом. Есть сайт на который макрос отправляет данные в ячейку, ставит галку "выводить результат в новом окне" (можно ставить можно не ставить) и нажимает кнопку сгенерировать код. Нужно полученный код перенести в EXCEL на конкретный лист в конкретную ячейку.

Private Sub Command1_Click()
Dim ie As Object
Dim doc As HTMLDocument
Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.navigate ("http://www.datamatrixcode.net/data-matrix-code-generator/")
     Do Until ie.readyState = 4
        DoEvents
    Loop
    
     ie.document.getElementsByName("text").Item(0).Value = Range("b2")
     
    ie.document.getElementById("dmc_new_window").Click
    ie.document.getElementById("generate_dmc").Click
    
    ie.document.getElementBytitle("data_matrix_code").Copy
    
    ActiveInternetExplorer.Close
End Sub

заранее благодарен.

[EducatedFool]

Надо картинку сохранить в файл, а потом из файла вставлять на лист Excel

И, кстати, браузер совсем необязательно использовать.
Для генерации картинки, достаточно выполнить запрос по адресу
http://www.datamatrixcode.net/wp-con...00&text=MyText

где MyText - текст из ячейки

Как скачать файл по ссылке:
https://excelvba.ru/code/DownloadFile

как вставить картинку в ячейку:
https://excelvba.ru/code/PastePictures

PS: у меня есть готовое решение для подобной задачи, только можно генерировать разные коды
https://excelvba.ru/programmes/Parser/samples/QR-code

[Kapany3uk]

Сообщение от EducatedFool

Надо картинку сохранить в файл, а потом из файла вставлять на лист Excel

И, кстати, браузер совсем необязательно использовать.
Для генерации картинки, достаточно выполнить запрос по адресу
http://www.datamatrixcode.net/wp-con...00&text=MyText

где MyText - текст из ячейки

Как скачать файл по ссылке:
https://excelvba.ru/code/DownloadFile

как вставить картинку в ячейку:
https://excelvba.ru/code/PastePictures

PS: у меня есть готовое решение для подобной задачи, только можно генерировать разные коды
https://excelvba.ru/programmes/Parser/samples/QR-code

спасибо, попробую

EducatedFool
Добрый день, что то не получается ни чего у меня((

[EducatedFool]

А у меня - получается
Покажите макрос, который у вас получился в итоге

[Kapany3uk]

Сообщение от EducatedFool

А у меня - получается
Покажите макрос, который у вас получился в итоге

Если честно, то я почитав Ваши ссылки не очень понял как мне применить их((
мои познания минимальны в VBA (
Если не трудно пришлите готовое решение.

[EducatedFool]

В этом разделе форума помогают разобраться в Вашем решении, а не предоставляют готовые решения.

может, кто другой из форумчан захочет сделать всё за вас.
у меня же на это нет времени

[Kapany3uk]

подбором разных вариантов получил вот такой код

Sub URL_QRCode_SERIES()
MyText = Range("c2")
PictureSize = 200
sURL = "http://www.datamatrixcode.net/wp-content/themes/catch-box/generator/build.php?type=png&size=200&text=MyText"
ActiveSheet.Shapes.AddPicture sURL, True, True, vLeft, vTop, PictureSize, PictureSize
End Sub

Но у меня значения MyText не изменяется(( то есть в коде оно меняется , а в результате картинка приходит со значением MyText вместо нужных символов(

что я забыл указать?

всем спасибо, вроде разобрался
Может кому пригодится.

Sub URL_QRCode_SERIES()
Dim sURL As String
Dim PictureSize As String

MyText = Range("c2")
PictureSize = 200
sURL = "http://www.datamatrixcode.net/wp-content/themes/catch-box/generator/build.php?type=png&size=200&text=" & MyText
ActiveSheet.Shapes.AddPicture sURL, True, True, vLeft, vTop, PictureSize, PictureSize
End Sub

[Aleksandr H.]

Раз разобрались, то подскажите реально размер стрингом задается?

Dim PictureSize As String
ActiveSheet.Shapes.AddPicture ........... PictureSize, PictureSize

[Kapany3uk]

Сообщение от Aleksandr H.

Раз разобрались, то подскажите реально размер стрингом задается?

Dim PictureSize As String
ActiveSheet.Shapes.AddPicture ........... PictureSize, PictureSize

с переменными я не очень еще подружился, а чем стринг не подходит? Места минимально занимает 1 байт и От 0 до 65400 символов может вмещать.

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

Всем доброго дня,
вот так правильнее будет?

Sub URL(ByRef sh As Worksheet)
Dim sURL As String
Dim PictureSize As Integer
Dim MyText As String
Dim vLeft As Integer, vTop As Integer

vLeft = 260
vTop = 5

MyText = ActiveSheet.Range("c4") ' ячейка от куда берется код для кодирования
PictureSize = 50  '  размер картинки
 '  путь сайта куда отправлять данные и получать ответ
sURL = "http://www.datamatrixcode.net/wp-content/themes/catch-box/generator/build.php?type=png&size=200&text=" & MyText
' вставка картинки
ActiveSheet.Shapes.AddPicture sURL, True, True, vLeft, vTop, PictureSize, PictureSize

End Sub

Поправьте меня , если я опять не прав.

заранее спасибо.

[Aleksandr H.]

ByRef sh As Worksheet

Где используется в процедуре?