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?