Cómo usar VBA para recorrer los subarchivos en una carpeta y copiar los datos especificados para formar una nueva tabla. PD: ¿Se ha cambiado el formato de datos de los subarchivos?
Pruebe el siguiente código:
¿Sub OpenAndClose()?
¿Atenuar MyFile como cadena?
¿Atenuar s como cadena?< / p>
¿Dim count As Integer?
MyFile = Dir(directorio de carpetas & "*.xlsx")?
'¿Leer el primer .xlsx en el documento de la carpeta?
count = count + 1 '¿Número de archivos grabados?
s = s & count & "," & MyFile?
¿Hacer mientras MyFile <> ""?
MyFile = Dir 'Leer por segunda vez ¿Cuando no se escriben parámetros?
Si MyFile = "" ¿Entonces?
¿Salir de Do?' Si MyFile está vacío, se ha atravesado, salga de Do; de lo contrario, vuelva a ejecutarlo.
¿Finalizar si?
count = count + 1?
Si count Mod 2 <> 1 ¿entonces?
s = s & vbTab & contar & "," & MyFile?
s = s & vbTab & contar & "," & MyFile
s = s & vbCrLf & contar & "," & ¿Mi archivo?
¿Finalizar si?