Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.
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
Join the community of 500,000 technology professionals and ask your questions.