GetOpenFileName Error

[toesparkle]

I am trying to use the GetOpenFilename function to run a macro on various text files, but when I choose a file, I get the following Error message:

Run-time error "1004"
'False.xls' could not be found.

I have tried researching this, but nothing has worked. This is my code:


ChDir "C:\Samantha\Month-End In Progress"
Workbooks.OpenText FileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If FileToOpen <> False Then
MsgBox "Open " & FileToOpen
End If

Can anyone help me with this? I'd really appreciate it.
Thanks!
Sam

[bhofsetz]

You need to separate your GetOpenFilename statement from the OpenText statement.
So first GetOpenFilename assigns the full path of the text file you want to open.
Then Workbooks.OpenText operates on that.

revised code below:

Sub OpenTxtFile()
ChDir "C:\Samantha\Month-End In Progress"
FileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt")
Workbooks.OpenText FileToOpen
If FileToOpen <> False Then
MsgBox "Open " & FileToOpen
End If
End Sub

Hope this helps

B

[toesparkle]

Thank you so much! It worked!!

You need to separate your GetOpenFilename statement from the OpenText statement.
So first GetOpenFilename assigns the full path of the text file you want to open.
Then Workbooks.OpenText operates on that.

revised code below:

Sub OpenTxtFile()
ChDir "C:\Samantha\Month-End In Progress"
FileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt")
Workbooks.OpenText FileToOpen
If FileToOpen <> False Then
MsgBox "Open " & FileToOpen
End If
End Sub

Hope this helps

B