Excel 不加载多个联机powerpoint演示文稿

我打算下载多个在线powerpoint文件（大约500个），因为我正在使用这个vba代码，尽管它适用于pdf、jpg和其他格式。正在下载的powerpoint文件都是错误的，每个文件的大小都是16kb

有没有其他方法可以做到这一点？这将是一个很大的帮助

Sub download_multple_photos()

dlpath = "C:\DownloadedPics\"

For i = 2 To 7
    imgsrc = Cells(i, 2)
    imgname = Cells(i, 1)
    URLDownloadToFile 0, imgsrc, dlpath & imgname & ".pptx", 0, 0
`
Next i

End Sub

---

如果您直接从web浏览器打开该URL，它是否正确下载PowerPoint文件？看起来您输入的URL不正确，或者提供的文件与您下载的其他文件不同。你检查了返回的实际内容了吗？嘿，是的，当我打开url时，因为它是一个在线演示文稿，你不能单击control+s保存它，甚至右键单击也不起作用。但是在右上角有一个选项，您可以单击并轻松下载演示文稿。您是否有指向您遇到问题的pptx文件的示例链接？我认为这与文件的服务方式有关，但如果没有可检查的内容，我无法收集太多信息。如果直接从web浏览器打开该URL，它是否正确下载PowerPoint文件？看起来您输入的URL不正确，或者提供的文件与您下载的其他文件不同。你检查了返回的实际内容了吗？嘿，是的，当我打开url时，因为它是一个在线演示文稿，你不能单击control+s保存它，甚至右键单击也不起作用。但是在右上角有一个选项，您可以单击并轻松下载演示文稿。您是否有指向您遇到问题的pptx文件的示例链接？我想这与文件的服务方式有关，但如果没有检查的话，我无法收集到很多信息。