在Access 2016中,我想显示“文件打开”对话框,允许用户选择要导入的CSV文件。然而,在与行
如何使文件打开对话框显示?
Dim FD as Office.FileDialog
相关的情况下生成了一个错误-
以下代码已从MSDN上发布的示例中复制(并稍作编辑)。该示例被列为适用于Office 2013及更高版本,但是代码中的第一个注释(与变量类型 Office.FileDialog 有关)似乎与此相矛盾-编译错误:未定义的类型
在Access 2016中肯定没有对Microsoft Office 11.0 Object Library的引用。但是,其中包含对 Microsoft Access 16.0 Object Library 的引用。需要参考Microsoft Office 11.0对象库。
如何使文件打开对话框显示?
Function SelectFile(Optional ByVal title As String = "Please select a file", _
Optional ByVal allowMultiSelect As Boolean = False) As Variant
Dim FD As Office.FileDialog
Dim file As Variant
Set FD = Application.FileDialog(msoFileDialogFilePicker)
With FD
.title = "Please select a file" ' Add the dialog title
.allowMultiSelect = allowMultiSelect ' Set whether or not to allow multiple file selection
.filters.Clear ' Clear any existing filters
.filters.Add "CSV Files", "*.csv" ' Add new filters
'**
' Show the dialog to the user
'*
If .Show = True Then
For Each file In .selectedItems ' Grab the path/name of the selected file
SelectFile = file
Next
Else
SelectFile False
End If
End With
Set FD = Nothing ' Clean up the FD variable
End Function
这是我当前选择的参考资料 -
这里是可用的MS Office参考资料(没有对 Microsoft Office 16.0 Object Library 的引用) -