Choosing Text File to Import

[jimayers]

Hello - I am having trouble with the following code. I have read through many posts but cannot seem to get it.

Sub ImportTxt_File()
    Dim dlgOpen As FileDialog
    Set dlgOpen = Application.FileDialog(msoFileDialogFilePicker)
    With dlgOpen
        .AllowMultiSelect = True
        ''Start in
        .InitialFileName = "Z:\docs\"
        .Show
    End With
    For Each fname In dlgOpen.SelectedItems
        Set myTextFile = Workbooks.Open(fname)
        myTextFile.Sheets(1).Range("A1").CurrentRegion.copy_
            ThisWorkbook.Sheets(1).Range ("B7")
        myTextFile.Close (False)
    Next
End Sub

I get the error "variable not defined."

Thanks for any help - JA

 

[Rick Rothstein]

Hello - I am having trouble with the following code. I have read through many posts but cannot seem to get it.

Sub ImportTxt_File()
    Dim dlgOpen As FileDialog
    Set dlgOpen = Application.FileDialog(msoFileDialogFilePicker)
    With dlgOpen
        .AllowMultiSelect = True
        ''Start in
        .InitialFileName = "Z:\docs\"
        .Show
    End With
    For Each [B][COLOR="#FF0000"]fname[/COLOR][/B] In dlgOpen.SelectedItems
        Set [B][COLOR="#FF0000"]myTextFile[/COLOR][/B] = Workbooks.Open(fname)
        myTextFile.Sheets(1).Range("A1").CurrentRegion.copy_
            ThisWorkbook.Sheets(1).Range ("B7")
        myTextFile.Close (False)
    Next
End Sub

I get the error "variable not defined."

It sounds like you have Option Explicit located at the top of your code module (that is a good thing) but that you have not Dim'med the variables I highlighted in red above (although it is possible that myTextFile is not a variable if you renamed the Code Name for the worksheet as myTextFile... unlikely, but possible).

 

[jimayers]

Right on - that fixed it. Thanks