Runtime Error 31519

[scruffy]

Hello All,

I found some code online (from ADezii -- thanks) to import a .txt file into Access using a Dialog box. When I try and run the code, I am getting the runtime error '31519': You cannot import this file. (**Mod Edit Error occurs on line #22 **)

How can I get rid of this error? Any help is appreciated. Thanks!

The following is what I have:

Private Sub Command43_Click()
Dim fDialog As Office.FileDialog
Dim varFile As Variant
 
DoCmd.SetWarnings False
 
'Set up the File Dialog
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
  .AllowMultiSelect = False
  .Title = "Select a Text File to Import"
  .InitialFileName = "C:\*.txt"
 
  'Clear out any Filters, then Add you own (1)
  .Filters.Add "Text Files", "*.TXT"
 
  'Show the Dialog. If the Show Method returns True, the User picked
  'at least 1 File, otherwise the User clicked Cancel
  If .Show Then
    For Each varFile In .SelectedItems
      'There will be only 1 File selected, so place the proper Arguments into the TransferText Method
      DoCmd.TransferText acImportFixed, "ImportB", "B", 0
    Next
  Else      'Nothing selected in File Dialog
  End If
End With
 
DoCmd.SetWarnings True
End Sub

[NeoPa]

You provided a FileName parameter of 0. You can't expect it to work with that information ;-)

[scruffy]

Thank you! I am new at VBA. How do I enter a file name argument that still allows the user to select the text file?

[NeoPa]

Scruffy, you need to consider your posts more carefully before submitting them. If your question makes sense to you I expect it's because you already know what you mean. Without any context or reference point that last bit makes no sense to me at all. 'Allowing the user to select the text file' is not any part of the question I've seen so far.

Nought for two isn't a good average ;-)

[scruffy]

My goal is to be able to import files using the Dialog box. The filename parameter is the path to the exact file, right? So what should the filename parameter be so that I can still choose the file I want to import?

[NeoPa]

So, you're really asking here how to use the return value of the FileDialog object you're using.

Try :

.SelectedItems(1)

But you probably want to ensure :

.AllowMultiSelect = False

Alternatively, you can use the code from Select a File or Folder using the FileDialog Object.

If you're still not sure which parameter is which in the DoCmd.TransferText() then it would be the fourth parameter and it's called FileName. Context-Sensitive Help can give you all the details you could want for that though.

[scruffy]

Thank you so much, I finally have this portion working.

[NeoPa]

You're welcome :-)