Blockchain is a technology that underpins the success of Bitcoin and other digital currencies, but it has uses far beyond finance. Learn how blockchain works and why it is proving disruptive to other areas of IT.
Private Sub CommandButton1_Click() MsgBox "You selected " & GetImportFileName CommandButton1.Picture = GetImportFileName '<--RUN TIME ERROR '424' End Sub Function GetImportFileName() As Variant Dim Filt As String Dim FilterIndex As Integer Dim FileName As Variant Dim Title As String ' Set up list of file filters Filt = "Text Files (*.txt),*.txt," & _ "Lotus Files (*.prn),*.prn," & _ "Comma Separated Files (*.csv),*.csv," & _ "ASCII Files (*.asc),*.asc," & _ "All Files (*.*),*.*" ' Display *.* by default FilterIndex = 5 ' Set the dialog box caption Title = "Select a File to Import" ' Get the file name FileName = Application.GetOpenFilename _ (FileFilter:=Filt, _ FilterIndex:=FilterIndex, _ Title:=Title) ' Exit if dialog box canceled If FileName = False Then MsgBox "No file was selected." Exit Function End If ' Display full path and name of the file GetImportFileName = FileName End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.