额,第一次发帖,利用官网的资源太多了,贡献给大家的却很少,并不是自私而是觉得不能误人子弟,当然不做和做的不好是两回事。
有时候可能是很小、很简单的问题,我们也可以写一写,贡献我们自己的小小力量。特别是纠结很久,但很容易解决的问题。
这里呢就是我开发过程中的一个小问题,主要是难者不会会者不难。
情况是我从一个数据库原件上复制修改得到一个数据库,其中有个功能是打开文件对话框获取被选中的文件名,突然有一天打开出现错误,如图。
源码:
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Filters.Clear
'.Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
.Filters.Add "Excel", "*.xlsx;*.xls "
If .Show Then
MsgBox 1
Else
MsgBox 2
End If
End With
运行后 出现问题
所以就百度搜 群里问 海底捞 火山爬,还是没解决问题。
查着查着,我似乎有了个想法,就是application这个库有问题,但我也不了解库的知识。我也从其他可以运行的代码复制粘贴过来运行,OK的。
我就试着 手写输入 with application.filedialog() 当输入 msoFileDialogFilePicker的时候 就提示我。
the library which contains this symbol is not rdferenced by the current project ,
so the symbol is undefined would you like to add a reference to the containing library now ?
然后点击 是 ,运行代码就OK了。
虽然有点废话,但希望浪费点时间看是值得的。