相关疑难解决方法(0)

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

有谁能够帮我？谢谢!

我需要将Excel(或通过VBA)中的图像转换为base64(最后我将生成XML输出).

我怎样才能做到这一点？我是否需要引用DOM？

我一直在读这个问题,但它只适用于文字字符串而不是图像......

有没有人有我能看到的代码？