0

我是 VBA 新手（我的意思是，真的很新），我希望你能给我一些提示。

我有一个包含 2 列的 Excel 文件：SKU 和 media_gallery 我还有一个文件夹中存储的图像（让我们将其命名为 /imageFolder）

我需要解析 imageFolder 并查找以 SKU.jpg 开头的所有图像，并将它们放入以分号 (;) 分隔的 media_gallery 列中

示例：我的 SKU 是“1001”，我需要解析以 1001 开头的所有图像的图像文件夹（所有图像都有这种模式：1001-2.jpg、1001-3.jpg 等...）

我可以用 Java 或 C# 做到这一点，但我想给 VBA 一个机会。:)

我怎样才能做到这一点？

编辑：我只需要文件名是的！我应该说我的文件夹中有 20 000 张图片和 8000 个 SKU，所以我不知道我们如何处理 20 000 张图片名称的循环。

EDIT2：如果SKU包含破折号（ - ），我不需要处理它，所以我可以传递到下一个SKU。每个 SKU 最多有 5 张图片 (....;SKU-5.jpg)

谢谢大家。

4

1 回答 1

0

如何在给定列中每个单元格有一个图像名称的情况下插入图像：How to get images to appear in Excel given image url

采取上述方法并为文件名引入一个内部循环：

if instr(url_column.Cells(i).Value, "-") = 0 then

  dim cur_file_name as string
  cur_file_name = dir("imageFolder\" & url_column.Cells(i).Value & "*.jpg")

  do until len(cur_file_name) = 0
    image_column.Cells(i).Value = image_column.Cells(i).Value & cur_file_name & ";"      
    cur_file_name = Dir
  loop
end if
于 2012-06-12T20:56:49.303 回答