Friday, December 23, 2011

Display message file not selected when you click on Cancel button on file browser

If you want to display any message to the user when he clicks on "Cancel" button while selecting the file

Here is the code

Sub display_message()
Dim flpath As String
flpath = Application.GetOpenFilename("Excel File (*.xls*)," & "*xls*")

If flpath = False Then

MsgBox "You haven't selected any file", vbOKOnly
End If

End Sub

No comments:

Post a Comment

Import data from SQL

Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...