Anónimo
Abrir archivo
Hola
Necesito hacer un sistema empleando exclusivamente Excel, el sistema va a tomar un archivo compatible, puede ser uno directamente de Excel (xls) o uno separado por comas (csv), o texto plano (txt) o cualquier otro formato que en su momento sea indicado, la conversión no hay problema (creo), la pregunta básicamente es: ¿Existe algún comando o rutina en VBA que me muestre la ventana para seleccionar el archivo? Algo parecido a la que aparece en la opción "Abrir" del menú "Archivo"
Gracias por el apoyo que puedas brindarme, mi correo por si deseas enviarme un ejemplo es:
Necesito hacer un sistema empleando exclusivamente Excel, el sistema va a tomar un archivo compatible, puede ser uno directamente de Excel (xls) o uno separado por comas (csv), o texto plano (txt) o cualquier otro formato que en su momento sea indicado, la conversión no hay problema (creo), la pregunta básicamente es: ¿Existe algún comando o rutina en VBA que me muestre la ventana para seleccionar el archivo? Algo parecido a la que aparece en la opción "Abrir" del menú "Archivo"
Gracias por el apoyo que puedas brindarme, mi correo por si deseas enviarme un ejemplo es:
2 Respuestas
Respuesta de tavopz
1
Puede ser algo como esto:
Dim ShellApp, Ret, s, i
Set ShellApp = CreateObject("Shell.Application")
Set Ret = ShellApp.BrowseForFolder(0, "Choose a file or folder", 16384)
s = Ret.Title
MsgBox "Ret.title = " & s, , ""
En la variable es tendrás la ubicación del archivo seleccionado. No es la misma ventana de abrir, pero es una ventana de windows.
Dim ShellApp, Ret, s, i
Set ShellApp = CreateObject("Shell.Application")
Set Ret = ShellApp.BrowseForFolder(0, "Choose a file or folder", 16384)
s = Ret.Title
MsgBox "Ret.title = " & s, , ""
En la variable es tendrás la ubicación del archivo seleccionado. No es la misma ventana de abrir, pero es una ventana de windows.
Respuesta de Alvaro Silveira
1
Tienes una forma de llamar al cuadro de dialogo que normalmente aparece en la opción Abrir o Guardar. Aquí te paso el código que lo asocie a un commandButton
Private Sub CommandButton1_Click()
strArchivo = Application.GetOpenFilename
Workbooks.OpenText Filename:=strArchivo
If strArchivo = "" Then Exit Sub
strArchivo = ActiveWindow.Caption
End Sub
Private Sub CommandButton1_Click()
strArchivo = Application.GetOpenFilename
Workbooks.OpenText Filename:=strArchivo
If strArchivo = "" Then Exit Sub
strArchivo = ActiveWindow.Caption
End Sub