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.