如何通过服务器上的路径在图像框中插入图像

Question

嗨，我正在使用这样的代码将图像加载到图像框中：

Dim ws As Worksheet, fname As String
Dim p As Object


'~~> Adding a temp sheet
Set ws = ThisWorkbook.Sheets.Add

'~~> Insert the picture in the newly created worksheet
fname = "\\IPADDRESS\folder\fototest\image.jpg"
SavePicture img.Picture, fname
DoEvents
Set p = ws.Pictures.Insert(fname)

问题是图像位于我通过IP地址访问的服务器上，由于无法到达该地址，excel崩溃了。 我该如何解决？

Answer 1

由于缺少对目标目录的权限，您的VBA崩溃了。为了使用您的SavePicture过程，首先，您需要在远程目标目录中拥有read write execute权限，并确保如果该服务器位于其他域中，则可以访问该服务器。