VBA - 用户定义类型未定义

Question

我正在尝试更新VBA模块以使用System.Windows.Forms.FolderBrowserDialog类。我宣布我的目标如下：

Dim MyFolderBrowser As New System.Windows.Forms.FolderBrowserDialog 

运行该给我的错误User-defined type not defined。我想编译器不知道那个类，所以我试着去Tools > References并增加Systems_Windows_Forms，但我仍然得到相同的错误。有没有人知道我在这里错过了什么？我是否也需要在代码中引用库？

Answer 1

System.Windows.Forms.FolderBrowserDialog对我来说看起来像.Net，而不是VBA。可以在Access VBA中使用Application.FileDialog。此示例使用后期绑定，并允许用户从浏览对话框中选择一个文件夹。

Const msoFileDialogFolderPicker As Long = 4 
Dim objFileDialog As Object ' FileDialog 
Set objFileDialog = Application.FileDialog(msoFileDialogFolderPicker) 

With objFileDialog 
    .AllowMultiSelect = False 
    If .Show Then 
     Debug.Print .SelectedItems(1) 
    End If 
End With 

如果你喜欢使用早期绑定，设置为的Microsoft Office [版本]对象库参考。然后，您可以宣布这样的对象...

Dim objFileDialog As FileDialog 

而且你不需要定义常量，所以如果使用早期绑定放弃这条线......

Const msoFileDialogFolderPicker As Long = 4