¿Cómo usar VBA en EXCEL para abrir archivos o carpetas en rutas relativas? ¡urgente! ! !

Abra el siguiente código en Excel para extraer los datos de la tabla "Resumen de peso" F520:BV521 en otros archivos, incluido el proceso de selección de la ruta del archivo. Un ligero cambio podría ayudarte. . .

Extracción de subdatos()

Atenuar FileName1 como cadena

Anotar el nombre del archivo como cadena

Atenuar FileName2 como cadena

Atenuar FileName3 como cadena

Atenuar FileName4 como cadena

FileName1 = aplicación. ActiveWorkbook.Name

FileName1 = Right(FileName1, Len(FileName1))

FileName = Aplicación. getopen filename((*.xls&*.steel company.*.xlsx),*.xls*.xls*.steel",,")

FileName = Right(FileName, Len(File name))

Windows(nombre de archivo 1). Hacer actividad

Papel("Papel1"). Seleccione

Rango("A2"). Escoger

Seleccionar. Toda la flecha. Insertar

Selección. Toda la flecha. Insertar

libro de trabajo. OpenFileName:=FileName

FileName2 = Right(FileName, Len(FileName)-instr rev(FileName, "\"))

Windows(FileName2). Realiza la hoja de trabajo

de la actividad ("Resumen de peso"). Seleccione

Rango(" F520:BV521 "). Escoger

Seleccionar. Copiar

Windows(nombre de archivo1). Activar

Papel("Papel1"). Seleccione

Rango("B2"). Seleccione

ActiveSheet. Pegar enlace:=True

Rango("A2"). Seleccione

Rango("A2") = Nombre de archivo 2

Nombre de archivo 3 = Izquierda(Nombre de archivo, Len(Nombre de archivo)-Len(Nombre de archivo 2))

Rango("BS2") =Nombre de archivo 3

Windows(Nombre de archivo 2). Cerrar

Fin del subdiccionario

Interpretación de "Hai Ci - Definición de palabras" de Cui Qi

La configuración de trazo está activada. La pronunciación del cursor significa deslizar y comprobar.