Traducción de código VBA

¿Atenuado? ¿Fso? ¿Como? Objeto,? uno,? Yo amperio, Johnson & Johnson. ,?n amp,?brr()

Aplicar. ¿Actualización de pantalla? =?False 'Desactivar las actualizaciones de pantalla.

¿Configuración? ¿Fso? =?Createobject("Script.Objeto del sistema de archivos")'Crear objeto FSO.

p? =?este libro de trabajo. ¿camino? ¿amperio? ¿"\2012-3-1"?Carpeta bajo la ruta actual

sFileType? =?"*.pdf "? El tipo es un archivo PDF.

¿Llamar? GetFiles(p,?sFileType,?Fso 'Llama al programa getfiles.

Redim?brr(1?Where?m,?1?Where?4)?Definir una matriz bidimensional

[a1]. Borrar contenidos a1 en su conjunto

¿Qué usar? =?1?M'i bucle de 1 a m. ? =?Split(arr(i),?"\")'use \ i) Escribir matriz por separado

n? =?UBound(a)? -?Los últimos tres números de 1'j en la matriz A se repiten

n? =?n?1?n se incrementa una vez

brr(i,?n)? =?A(j)' asigna un valor a brr.

Entonces

brr(i,?4)?=?replace(a(j),?".pdf" ,? "")?Eliminar. Extensión de archivo en formato de documento portátil (abreviatura de formato de documento portátil)

.Hyperlink.Add?Anchor:=Cells(i??1,?4),?Address := arr(i)'

Entonces

¿finalizar con

[a2]?=?brr? =?0

¿Borrar arr? =? ¿Nada? ¿Borrar fso?

¿Activar actualización de pantalla?

¿Sub?GetFiles(? ByVal?sFileType$,?Fso?as?Object)

dim?as?subfolder? como ? archivo de destino ? Fso ? algo como sfiletype.p>m? =?m?

¿Guardar? arr(1?Where?m)'Redefinir la matriz arr

arr(m)?=?Sparth? ¿amperio? "\"?¿amperio? documento. "Nombre" asigna los nuevos datos a la matriz.

¿Fin? Si

Entonces

¿Y si? carpeta. subcarpeta. ¿contar? ¿gt? 0? ¿Y entonces qué? Si existen subcarpetas.

¿Para qué? ¿Cada? ¿Subcarpeta? ¿existir? carpeta. ¿Subcarpeta? Explora todas las subcarpetas.

¿Llamar? GetFiles(subcarpeta.ruta,?sFileType,?Fso)? Ejecute algunos programas nuevamente.

Entonces

¿Finalizar? Si

establecido? ¿Carpeta? =?¿Nada

definido? ¿documento? =?¿Nada

definido? ¿Subcarpeta? =?Nada

¿El final? Submarino