Macro to exit VBA once cancel or esc is used

[Chandresh]

HI All,

I am using below code to convert csv to excel, macro is running fine if we select the csv file.

however I need a help .. with the code which can exit the vba once we press cancel or escape button

Sub CSV()
Dim WS As Worksheet, strFile As String
Set WS = ActiveWorkbook.Sheets("Download") 'set tocurrent worksheet name
strFile = Application.GetOpenFilename("Text Files(*.csv),*.csv", , "Please select text file...")
With WS.QueryTables.Add(Connection:="TEXT;" &strFile, Destination:=WS.Range("A1"))
    .TextFileParseType = xlDelimited
    .TextFileCommaDelimiter = True
     .Refresh
End With
End Sub

Thanks
Chandresh

 

[RoryA]

You can use:

If strFile <> "False" then
With WS.QueryTables.Add(Connection:="TEXT;" &strFile, Destination:=WS.Range("A1"))
    .TextFileParseType = xlDelimited
    .TextFileCommaDelimiter = True
     .Refresh
End With
end if

though it would be better to declare strFile as Variant and test it against False.

 

[Chandresh]

Thank you

 

[RoryA]

Glad to help.