Question

我在下面尝试了解决方案。 Inserting an Online Picture to Excel with VBA

不幸的是我收到运行时错误'1004' “无法获取Picture类的Insert属性” 停止在以下代码上：

    Set myPicture = ActiveSheet.Pictures.Insert(pic)

这可能是因为我的Office版2016（64位）？如果没有，是否有任何关于如何使用AJ列中的图像网址将图像嵌入到AK列中的相邻单元格的建议？

提前致谢

Answer 1

从Excel下载Excel时遇到问题的some evidence，我已使用您提到的网址重新创建了您的问题。在这种情况下，如果我在截止日期之前，当第一个方法失败时我会放入这个后备方法：下载文件，然后将其插入文档，然后删除文件。

directDownloadFailed:
Dim FileNum As Long
Dim TempFile As String
Dim FileData() As Byte
Dim WHTTP As Object

Set WHTTP = CreateObject("WinHTTP.WinHTTPrequest.5.1")

WHTTP.Open "GET", imgURL, False
WHTTP.Send
FileData = WHTTP.ResponseBody
Set WHTTP = Nothing

FileNum = FreeFile
TempFile = "path\to\save\img.jpg"
Open TempFile For Binary Access Write As #FileNum
    Put #FileNum, 1, FileData
Close #FileNum

Set img = ActiveSheet.Pictures.Insert(TempFile)

SetAttr TempFile, vbNormal
Kill TempFile

GoTo resumeProcessingImg

Answer 2

@keydemographic

我很感激响应，这听起来像是一个选项，但我无法使代码工作或将其合并到我正在使用的代码中。我收到编译错误＆＃34;标签未定义＆＃34;在GoTo resumeProcessingImg

以下将下载并将图像嵌入到单元格中，但是一旦到达s3 aws图像网址，代码就会停止。我会尝试其他一些方法来合并您的代码，但到目前为止我还没有太多运气。

This is my test file

var

VBA使用来自相邻小区的URL下载并嵌入图像

2 个答案: