0

VBA Ms Accessで、1行ずつ解析する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 に答える