用'FileDialog'作用于对象'_Application'时失败的解决方法

我们在使用VBA代码时，用时候要用到打开选择文件功能，一般会使用以下代码：

    Set Fdia = Application.FileDialog(msoFileDialogOpen)
    Fdia.Filters.Clear

写完代码后点击打开按钮，没有出现我们熟悉的打开选择文件框，而是出现了以下这样的错误提示：

检查代码并没有错误，实际是因为代码我们是手动复制过来的，没有通过VBE编辑器检测，所以这里有个小技巧可以解决此问题：

我们只需要重新手动输入一次 Set Fdia = Application.FileDialog(msoFileDialogOpen) 在输入的时候VBE编辑窗口会自动提示选择对象，当我们选择后，会弹出一个英文的确认框，点击“是”即可。

这时候你们再运行就不会再有以上的提示错误了。