找不到工程或库

Question

set dlg =application.filedialog，提示找不到工程或库，应该加载什么库

Answer 1

application.filedialog是什么对象,对应的dll之类库文件是什么,弄清楚后引用

Answer 2

Set dlg = Application.FileDialog(1)
With dlg
.AllowMultiSelect = False
.Show
End With
If dlg.SelectedItems.Count > 0 Then
GetFolder = dlg.SelectedItems(1)
Else
GetFolder = ""
End If
Set dlg = Nothing-----------access +vba 网上查到的用于打开选择文件的窗口的代码，不知道引用什么dll

Answer 3

Office的每个应用程序（Word、Excel、Access等）的Application对象都有一个FileDialog属性，用以返回一个FileDialog（文件对话框）对象。在使用此属性时，必须指定FileDialog对象的类型：“打开”对话框：让用户选择一个或多个可以在主机应用程序中使用 Execute 方法打开的文件。 
“另存为”对话框：让用户选择一个可以使用 Execute 方法保存当前文件的文件。 
“文件选取器”对话框：让用户选择一个或多个文件。用户选择的文件路径将捕获到 FileDialogSelectedItems 集合。 
“文件夹选取器”对话框：让用户选择一个路径。用户选择的文件路径将捕获到 FileDialogSelectedItems 集合。用法：
Set fd = Application.FileDialog(MsoFileDialogType)MsoFileDialogType的取值：
msoFileDialogOpen = 1
msoFileDialogSaveAs = 2
msoFileDialogFilePicker = 3
msoFileDialogFolderPicker = 4

Answer 4

引用
microsoft access 11.0 object libraryoffice版本不同11.0适当变化

Answer 5

Set objDlg = Application.FileDialog(msoFileDialogOpen)