msoFileDialogFilePicker导致错误

请不要评论任何有关命名约定,方法,询问代码应该做什么,或与我的问题没有直接关系的任何事情:

这对我来说是完美的 – 每次popup一个窗口,我select多个Excel文件,并将他们的数据上传到我的工作表(代码未显示)。 我的客户说,当他运行它时,他会得到一个错误,当然,我认为这是因为他在Mac上运行它,但他说他在PC和Mac出错 我不能重新创build错误…在这里,我们是。

这里是有问题的代码,以黄色突出显示的错误行: 在这里输入图像说明

在这里输入图像说明

代码复制:

Sub Import_Employee_Sheet() With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True If .Show = True Then End If End With End Sub 

这可能是因为他没有在IDE中的Tools / References下设置Microsoft Object [Version number] Library参考,或者因为它已经坏了。 另请参阅这篇文章如何解决这个问题,而不是设置对象引用,以避免将来类似的问题。

编辑

它应该读取“…没有设置库引用”上面。