VBA：运行时错误55 - 文件已经打开（通过使用FileDialog的）

Question

在VBA的MS Access，我导入txt文件一行行解析它。

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

的COSE是：

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 

相反，如果我用关闭FNAME，没有运行时错误，但进口不工作（用于输入的代码是正确的，“因为它的工作原理时，我硬编码namefile）

Answer 1

一旦你的文件名，与下降的对话框处理程序：

Set openDialog = Nothing