小编KEK*_*K79的帖子

我有一个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？

有谁能够帮我？谢谢!