У меня есть файл Excel, который содержит изображения в столбце B, и я хочу экспортировать их в несколько файлов в формате .jpg (или в любой другой формат файла изображения). Имя файла должно быть сгенерировано из текста в столбце А. Я попробовал следующий макрос 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?

Кто-нибудь может мне помочь? Спасибо!