Как вставить в бланк заказа фотографии товаров с Таобао?

1. Создаём список товаров на сервисе «Мои товары Таобао» — My.Taojet.ru или в аналогичном приложении ВКонтакте.

2. Выгружаем его в виде Excell Файла.

бланк заказа для Таобао

3. Открываем файл в екселе с нашим бланком товаров.

4. Переходим Вид -> Макросы -> Макросы.


5. Появляется окошко макросов документа. Создаём новый макрос: вводим имя «ВставкаФоток» и нажимаем Создать.



6. Загружается среда Visual Basic.
Просто вставляем туда такой код:
Sub ВставкаФоток()

Dim url_column As Range

Set url_column = Worksheets(1).UsedRange.Columns("D")

Dim i As Long
For i = 1 To url_column.Cells.Count
    If do_work And url_column.Cells(i).FormulaR1C1 <> "" Then
      With url_column.Worksheet.Pictures.Insert(url_column.Cells(i).Value)
        .Left = url_column.Cells(i).Left
        .Top = url_column.Cells(i).Top
        .Height = 50
        url_column.Cells(i).EntireRow.RowHeight = .Height
        url_column.Cells(i).FormulaR1C1 = ""
      End With
    End If
      
    If url_column.Cells(i).FormulaR1C1 = "фото" Then
        do_work = True
     End If
Next
End Sub



7. Нажимаем на клавиатуре кнопку «F5».

8. Переходим в Excell и видим, что фотографии вставлены.

Вы можете модифицировать скрипт на ваше усмотрение.
Например, изменить строчку ".Height = 50" на ".Height = 100" — она контролирует размер картинок. (а точнее их высоту)

0 комментариев

Только зарегистрированные и авторизованные пользователи могут оставлять комментарии.