У меня есть файл Excel, который включает в себя изображения в столбце B, и я хочу экспортировать их в несколько файлов как .jpg(или любой другой формат файла изображения). Имя файла должно быть сгенерировано из текста в столбце A. Я попытался выполнить макрос VBA:
Private Sub CommandButton1_Click()
Dim oTxt As Object
For Each cell In Ark1.Range("A1:A" & Ark1.UsedRange.Rows.Count)
' you can change the sheet1 to your own choice
saveText = cell.Text
Open "H:\Webshop_Zpider\Strukturbildene\" & saveText & ".jpg" For Output As #1
Print #1, cell.Offset(0, 1).text
Close #1
Next cell
End Sub
В результате создается файл (jpg) без содержимого. Я предполагаю, что строка Print #1, cell.Offset(0, 1).text.
неверна.
Я не знаю, что мне нужно изменить, cell.Offset(0, 1).pix
?
Может кто-нибудь мне помочь? Спасибо!