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