Ocultar extensión de archivo en combobox
Tengo la siguiente macro que lista los archivos "xls" de una carpeta determinada. Lo que quisiera es que no muestre la extension filtrada de los archivos.
Private Sub UserForm_Activate() 'aqui agrega otras macros 'Por.Dante Amor Dim carpeta, archivo carpeta = "C:\Users\" archivo = Dir(carpeta & "*.xls*") Do While archivo <> "" ComboBox1.AddItem archivo archivo = Dir() Loop End Sub
1 respuesta
Respuesta de Adriel Ortiz Mangia
1