excel - 包括 SUB 而 .SAVEAS

Question

我正在使用带有以下 SUB 的新临时文件将 CSV 转换为 XLSM。

sub a()
j=array("apple","orange")
for each i in j
workbooks.open environ("userprofile") & "\desktop\" & i & ".csv"
activeworkbook.saveas environ("userprofile") & "\desktop\" & i & ".xlsm", xlopenxmlworkbookmacroenabled
activeworkbook.close
next i
end sub

我想知道我是否可以将这个 SUB 包含到每个新的 XLSM 中。谢谢。

标签： excelvba