复制文件并将其重命名为多个文件

Question

所以我有一个主文件，我想复制并使用excel重命名为多个名称。我有一个列中包含所有这些数字，但我还想在每个数字的末尾添加一个主名称。我似乎无法弄清楚如何做到这一点。你能帮我吗？

例如，

主文件名是PC原理图。

复制的文件 1件 2_PC 3_PC 4_PC

谢谢，

Answer 1

尝试这样的事情：

Sub SaveFiles()


Dim masterName as string, saveName as String
Dim z 'Used to gather the array of numbers
Dim RowCountA

masterName = "_PC"

'Assuming the sheet with the numbers is in sheet one, column A
RowCountA - Worksheets("Sheet 1").Cells(Rows.Count,1).End(xlUp).Row

z = Worksheets("Sheet 1").Cells(1).Resize(RowCountA, 1)

For i = 0 to RowCountA - 1
    saveName = z(i,1) & masterName
    ActiveWorkbook.SaveAs Name:=saveName
Next i

End Sub

您可能需要稍微修改一下以满足您的需求，但这应该会给您一个良好的开端。