VBA:运行时错误55 -文件已打开(使用FileDialog)

Question

在VBA Ms Access中，我导入了一个txt文件，对其进行逐行解析。

我使用了一个FileDialog，这样用户就可以选择要导入的文件，但是当我打开文件读取它时，我得到一个运行时错误55 -文件已经打开。

其原因是：

Dim openDialog As FileDialog

Set openDialog = Application.FileDialog(msoFileDialogFilePicker)
On Error GoTo DoNothing
With openDialog
   .title = "Import"
   .AllowMultiSelect = False
   .Show
End With

FName = openDialog.SelectedItems.Item(1)
'Close FName

Open FName For Input Access Read As #1
On Error GoTo DoNothing

相反，如果我使用Close Fname，没有运行时错误，但是导入不起作用(导入的代码是正确的，因为当我对名称文件进行硬编码时，它可以工作)

Answer 1

获得文件名后，使用以下命令删除对话框处理程序：

Set openDialog = Nothing