VBA：将文件（副本）相乘并在列表后重命名

Question

我有一个.bat文件可以使用，但我现在需要在VBA中使用它。

我尝试了不同的approches，但一次只设法用一个文件。所以我一遍又一遍地开始。

所以：

1. 我有一个文件（名为1.pdf）
2. 我在Sheet1上有一个excel（从A2开始）一个文件名列表

我需要VBA创建一个名为ABC的文件夹（Excel宏所在的位置），并根据需要多次乘以.pdf，并使用excel列表中的每个名称重命名副本。

示例：

（我在与宏1.pdf相同的文件夹中）和在Excel中：

A1

• John.pdf
• Dog.pdf
• Triangle.pdf

执行后，这将导致1.pdf被复制并重命名为上传到文件夹中的所有3个名称：ABC

在命令提示符下看起来像：

if not exist "ABC\" mkdir %cd%\ABC\
copy "1.pdf" "ABC"
ren "ABC\1.pdf" "John.pdf"
copy "1.pdf" "ABC"
ren "ABC\1.pdf" "Dog.pdf"
copy "1.pdf" "ABC"
ren "ABC\1.pdf" "Triangle.pdf"

Answer 1

这样的事情对你有用：

{% if redirect_field_value %}
<input type="hidden" name="{{ redirect_field_name }}" value="{{ redirect_field_value }}" />
{% endif %}