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
¡Gracias Adriel! La macro quedo asi:
Private Sub UserForm_Activate() 'Act por Aortiz ' Dim carpeta, archivo carpeta = "C:\Users\" archivo = Dir(carpeta & "*.xls*") Do While archivo <> "" Dim data, Instr Data = InStr(1, archivo, ".xls") ComboBox3.AddItem Mid(archivo, 1, Data) archivo = Dir() Loop End Sub
Por lo que me enseñaste ayer pude declarar la variable que no estaba definida. Gracias nuevamente
h o l a
Instr es una palabra reservada de excel vba, no debe declarar como variable, quedaría así
Private Sub UserForm_Activate() 'Act por Aortiz ' Dim carpeta, archivo, data carpeta = "C:\Users\" archivo = Dir(carpeta & "*.xls*") Do While archivo <> "" data = InStr(1, archivo, ".xls") ComboBox3.AddItem Mid(archivo, 1, data) archivo = Dir() Loop End Sub
s a l u d o s!
