Vbscript代码从列表中命名excel文件

Question

我有一个带有宏的excel文件，我想重复n次，每个副本都使用一个特定的名称。我知道vbscript可以执行活动，但是我没有使用这种语言的经验。您能支持我完成脚本吗？

Set app = CreateObject("Excel.Application")
app.Visible = False
app.DisplayAlerts = False

Set fso = CreateObject("Scripting.FileSystemObject")

For Each f In fso.Readline("F:\list.txt")
   app.Workbooks.Open("F:\plantilla.xlsm")
   filename = f
   wb.SaveAs "F:\filename.xlsm", -4143
   wb.Close SaveChanges=True
Next

app.Quit
Set app = Nothing
Set fso = Nothing

Answer 1

您可以使用此命令直接从Windows命令行执行此操作。

for /F "tokens=*" %%A in (filelist.txt) do copy source.xlsm %%A

其中filelist.txt包含目标文件名列表，每行1个。