VBA Code error -- getopenfilename

dkelb

New Member
Joined
Nov 10, 2005
Messages
10
When I run the following code I get an error. Any suggestions????

The code is:

fname = Application.GetOpenFilename(filefilter:="TEXT FILES (*.TXT), *.TXT")
 

Some videos you may like

Excel Facts

Who is Mr Spreadsheet?
Author John Walkenbach was Mr Spreadsheet until his retirement in June 2019.

dkelb

New Member
Joined
Nov 10, 2005
Messages
10
Here is the actual error message:

Run-time error '1004'
Method 'GetOpenFilename' of object '_Application' failed

Here is more code:

Dim fname As Variant
Dim FNUM As Long
Dim SLINE As String
Dim I As Long
Dim RW As Long
fname = Application.GetOpenFilename(filefilter:="TEXT FILES (*.TXT), *.TXT")
If fname <> False Then
FNUM = FreeFile()
Open fname For Input As #FNUM
Do While Not EOF(FNUM)
Line Input #FNUM, SLINE
RW = RW + 1
For I = 1 To Len(SLINE)
Cells(RW, I).Value = Mid(SLINE, I, 1)
Next
Loop
 

Andrew Poulsom

MrExcel MVP
Joined
Jul 21, 2002
Messages
73,092
Hmmm. Does it work without the named argument?

fname = Application.GetOpenFilename("TEXT FILES (*.TXT), *.TXT")
 

Watch MrExcel Video

Forum statistics

Threads
1,118,763
Messages
5,574,096
Members
412,567
Latest member
mm1
Top