编译错误：添加表单按钮

Question

下面是我编写的用于将数据从多个工作表复制到新的主工作表中的代码，它工作正常，直到我对代码进行了一些更改，以便在我单击按钮时添加表单按钮以导入数据我收到了错误

  

编译错误：未定义子或函数

谁能帮助我吗？以下是btnImport中<{1}}按钮的代码：

ImportForm

Answer 1

在此行中请删除引号，

Set dirObj = mergeObj.Getfolder("folderpath")

由于它是一个变量，这将导致错误。

应该是这样的，

Set dirObj = mergeObj.Getfolder(folderpath)