Cómo escribir un botón en VB para abrir el archivo de Excel en la ubicación especificada con un clic, y el archivo de Excel abierto se muestra en el frente
Sub archivo de datos abiertos()
Formato de archivo = "*.XCL,*.*"
Leer archivo = Application.GetOpenFilename(Filefilter:= Archivo formato)
Si leer archivo = False, entonces salga de Sub
' Longitud = Len (leer archivo)
' Para I = Longitud - 1 a 1 paso - 1
' Si Medio$(leer archivo, I, 1) = "\" Entonces
' Carpeta = Izquierda$(leer archivo, I)
' Nombre de archivo = Mid$ (leer archivo, I 1, longitud - I 1)
' Salir para
' Finalizar si
' Siguiente
Workbooks.Open Filename:=Leer en archivo'(nombre de archivo de carpeta 0
End Sub
Puede resultarle útil a la hora de programar.