Get VBA to allow user to Browse for a file to open

**JungleJme** · 06-28-2012, 05:11 AM

Hi,

I am very, VERY new to VBA so apologies if this is general knowledge.

I am writing a macro that takes a dump of data in a text file, converts it to columns in excel and copies it to an Access Database.

My code for opening the text file is simply

Dim TxtFileName as String
TxtFileName = "C:\Users\7092\Desktop\Current Work\sqlexec.txt"
Workbooks.OpenText Filename:=TxtFileName, Origin:=437, StartRow:=1, 
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, 
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, 
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1)), 
DecimalSeparator:=".", ThousandsSeparator:=",", TrailingMinusNumbers:=True

However, what i would like is for the user to be able to browse to find the text file and if it isn't too much trouble, for a warning to be presented if they try to choose a file that isn't a txt file.

Thanks in advance for any help you can give me.

J

**StevenM** · 06-28-2012, 05:29 AM

This thread is a duplicate.

**JapanDave** · 06-28-2012, 05:36 AM

Duplicate post

**JapanDave** · 06-28-2012, 05:36 AM

This code will only allow you to choose .txt files, but I put a bit of code there anyway to show you what you could do if you allow multiple file ext.

Sub dave()

 
    Path = Application.GetOpenFilename("txt Files (*.txt), *.txt", , "Select Text File")
    If Path = "False" Then
        GoTo ExitSub:
    End If
     If Right(Path, 4) <> ".txt" Then
       MsgBox "Please select text file."
        GoTo ExitSub
     End If
    
    Workbooks.Open Filename:=Path
ExitSub:
End Sub