Nombres en Excel

Como los datos están en EXCEL, lo lógico es escribirlos en VBA. La ventaja de VBA es que el código está en el archivo EXCEL, que es un entorno amigable de desarrollo y depuración. Puede ejecutar el código paso a paso y verificar los valores de las variables en el medio para facilitar la corrección del programa. Inicialmente escribí un código VBA que guardaba el archivo en formato XLAM (un archivo con un script) y luego presioné ALT+F11 para ingresar a VBA.

El archivo de código es el siguiente (el navegador puede reemplazar secretamente caracteres especiales, así que asegúrese de combinarlo con la imagen de arriba):

Opción explícita

Submacro 1 ( )

Disposición difusa, I, j, p, f

arr = ActiveSheet. Utilice rango

Para i = 2 al límite inferior (arr)

Cambio de nombre de archivo

p = " f:\ descargas \ 1 \ " & arr (i , 1)

f = Dir(p & amp; "*.jpg")

j = 1

Y f & lt& gt""

Los nombres p & ampf son p & amparr(i, 2) y amparr(i, 3) y amp Johnson & Johnson.

".jpg "

f = dirección

j = j + 1

Fila

Cambiar nombre de carpeta

Nombre p p & amparr(i,2)

Siguiente i

Conector final

上篇: Interpretación de los sueños en programas de variedades_Interpretación e interpretación de programas de variedades 下篇: Existen varios tipos de etiquetas supremas.