请问利用函数新建一个工作薄，该如何调用？

zhongjingquan

各位老师好，因为工作需要，单位的ERP系统里需要导入excel模板，以前模板都是手工做的excel表格上传，这段时间自己写了一个汇总生成模板的代码。例如某人领取某物品时候，先生成模板，然后再计入总表，到月底可以根据自己记录的表和单位ERP核对。因为ERP的模板较多，我只是先举这个例子，利用函数生成模板，然后再调用这个函数，生成模板后，下面只能用set nb =ActiveWorkbook，找到当前的这个新建的工作薄，然后再赋值。能不能有什么好办法，直接不使用set nb =ActiveWorkbook，将nb=函数中新建的模板？因为我刚学习VBA，而且学习也断断续续，所以能力浅薄，所以产生诸多疑问，请各位老师指教！！

TuskAi

你可以把变量作为参数传递给function
把

1. function 模板()

复制代码

改成

1. function 模板(wb as WORKBOOK)

复制代码

调用function时写成

1. 模板(nb)

复制代码

就不用加下边那行set nb=activeworkbook了