Diccionario de definiciones de Excel
dim r % I %
dim array,brr
Dim d como objeto
Marcar wb como libro de trabajo
Marcar ws como hoja de trabajo
Atenuar mi ruta$, mi nombre$
Atenuar reg como New RegExp 'La parte superior es la variable de definición. Declarar objeto de expresión regular reg.
Set d = createobject("Script.Dictionary")' define un diccionario.
Con inscripción
. El objeto de expresión regular "global=False" se detendrá cuando solo se encuentre un objeto. Si quieren una coincidencia exacta, deben establecerse en VERDADERO aquí.
. patrón = "(\d+) \.(\ d+) \.XLS$ " 'Este principio es un patrón de expresión regular. El punto en el medio coincide con cualquier carácter excepto "\n (\ d+)" coincide con varios caracteres numéricos. , XLS $ significa terminar en xls.
Termina con
Usa la hoja(" hoja1 ")' para realizar las siguientes acciones en la hoja(" hoja1 ").
R=. celda (número de fila, 1). final (xlup). "fila" calcula las filas utilizadas en la tabla.
arr =. Range(" a 1:af " & r)' asigna un valor a la matriz ARR.
For i = 1 to UBound(ARR)' Bucle en datos ARR.
If Len(arr(i,1))<>0 Then 'Si la longitud del contenido de la celda (arr(i,1)) no está vacía.
D(arr(i, 1)) = i 'Agrega el contenido de la celda arr(i, 1) al diccionario como un carácter clave, I representa la entrada correspondiente en el diccionario.
Termina si...
Entonces
Termina con...
mi ruta = ThisWorkbook. Caminos y caminos. "\" 'mypath es igual a la ruta de la hoja de trabajo operativa.
mi nombre = Dir(mi ruta & "*.xls") 'mi nombre es igual a la hoja de cálculo cuya ruta termina en *.xls.
Cuando mi nombre& lt& gtSi el valor de minombre no está vacío, lo está.
Si está registrado. test(mi nombre)t reg objeto regular coincide con el contenido.
Establezca mh = reg. Ejecutar(minombre)' asigna el contenido coincidente a mh.
N = valor(MH(0)). SubMatches(1))+1 ' n = el valor contenido en la cadena devuelta por la función val más 1, mh(0). SubMatches(1)La expresión aquí es el valor devuelto por SubMatches en el primer valor de MH.
set WB = GetObject(mi ruta y mi nombre)
Con wb
Con. Hoja de trabajo("Nueva tabla de resumen")' abre la hoja de trabajo.
brr=. range("a6:y47")
Para i = 1 para subestimar(brr)
si D .exists(brr(i,1)) T si BRR(I, 1) ) El contenido del valor existe en el diccionario D.
M = d(brr(i, 1))' Establece el elemento correspondiente a M=Dbrr(i, 1).
Arr(m, n) = brr(i, 21)' Asigna un valor a Arr igual a brr(i, 21).
Termina si...
Entonces
Termina con...
. Cerrar falso
Termina con...
Terminará si...
'Mi nombre = Dir()'Abre las hojas de trabajo que cumplen las condiciones en secuencia .
Anillo
Con hoja ("hoja1")
. rango("a1"). resize (ubound (ARR), ubound (ARR, 2)) = arr 'Asigna el contenido de la tabla anterior a ARR.
Termina con...
Finalmente, este programa abrirá las hojas de trabajo en una carpeta en secuencia y resumirá los datos que cumplan con los requisitos en una nueva hoja de trabajo.