Abrir archivo
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"
1 Respuesta
Respuesta de ma_ramirez_r
1
Debes definir primero una variable tipo string y luego colocar el siguiente comando:
Sub Abre()
Dim Archivo As String
Archivo = Application.GetOpenFilename("All Files (*.*), *.*")
If Archivo = "Falso" Then
MsgBox "Proceso Cancelado...", vbInformation
Exit Sub
Else
Application.Workbooks.Open (Archivo)
End If
End Sub
Sub Abre()
Dim Archivo As String
Archivo = Application.GetOpenFilename("All Files (*.*), *.*")
If Archivo = "Falso" Then
MsgBox "Proceso Cancelado...", vbInformation
Exit Sub
Else
Application.Workbooks.Open (Archivo)
End If
End Sub
