本条还可参阅:
请注意,该指南仅适用于 Windows 上的 Microsoft Excel。

本文包括两个主要的部分,具体为:

A.使用CSV格式的订单项图片链接导出您的订单

B.将图片URL链接转换为实际的图片

A.使用CSV格式的订单项图片链接导出您的订单

步骤:

从您的 ShopBase 管理员,转到 “订单”>“所有订单”

选择您要履行的订单(通过过滤或在下一步中)

选择导出。



在新的弹出窗口中,选择 “Customize export fields”,然后选择您要导出的字段。在此说明中,我们已经添加了名称、行名、项目行图片。



完成之后,单击 “导出到文件”

那时,您可以下载自己的订单CSV文件了。使用Microsoft Excel 打开此文件:



B.将图片URL链接转换为实际的图片

1. 在 Microsoft Excel 中 打开 “开发商”选项卡

右键单击任何功能区上的现有选项卡。

这个操作会打开一个选择单,请选择 “Customize the Ribbon”



选择 Developer checkbox ,然后单击确定。



现在可以看到 “开发商”选项卡了。



2.将图片URL转换为实际的图片

在Microsoft Excel中打开已下载的文件。

选择“Developer Tab”,然后单击 “ Visual Basic”以打开 “ Microsoft Visual Basic for Applications”窗口。



单击 Insert > Module.



将以下代码粘贴到 “Module Window”中。

Sub URLPictureInsert()
Rows("2:7").RowHeight = 60
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("C2:C7")
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub



注意:

1. 在上面的代码中:(“ 2:7”)行是订单项行的范围。 RowHeight = 60是您要设置行的高度。 C2:C7是包含您要导出的URL地址的单元格。您应该更改单元格引用以符合自己的需求。

2. 使用此代码,您不能按自己的需求指定导出图片的尺寸。

3. 上面的代码只能将实际图片导出到URL列旁边的单元格中,您不能指定要导出图片的单元格。

3. 然后单击F5 按钮 或单击“Run”以运行此代码。



之后,所有对应的图片会立即从图片URL中导出到相邻的列,同时图片会放置在您特定单元格的中心,请参见屏幕截图:



请等待一段时间以使代码完成,这段时间由文件具有的行数决定的。 (650行文件大约需要10分钟。)

以xlsx格式保存文件,以确保当发送给他人时,文件还正常工作。
这篇文章有帮助吗?
取消
谢谢!