0

在 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，则不会出现运行时错误，但导入不起作用（导入的代码是正确的，因为当我对名称文件进行硬编码时它会起作用）

4

1 回答 1

0

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

Set openDialog = Nothing
于 2012-09-27T15:47:28.900 回答