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

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

Answer 1

获得文件名后，删除对话框处理程序：

Set openDialog = Nothing

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

1 个答案: