Macro for Opening files and copy the contents of the File

[ravichandavar]

Hi,

Thanks for quick reply.I have tried that too, but macro runs fine and opens all the file but result is zero. I don't know where all the data s are copied.
Please find the file which i tried once again and let me know do i need to change anything in this code.

Thanks & Regards,
Ravi.C

[Admin]

Hi

Attach one source file as well.

[Ingolf]

Hi,

Thanks for quick reply.I have tried that too, but macro runs fine and opens all the file but result is zero. I don't know where all the data s are copied.
Please find the file which i tried once again and let me know do i need to change anything in this code.

Thanks & Regards,
Ravi.C

Hi,

For me it works.
All files you want to copy must have the same header and be placed in the same place. I used your file, without modification.

[Admin]

It should work even if the headers are in different place.

[Ingolf]

It should work even if the headers are in different place.

Yes, headers can be in any position but in the same range, say A1: L1, if headers are (even if they are the same in all pages) say D5: P5 code does not work. If file 1, 2...10 has header in range A1:L1 and in file 11 the header is in D5:P2, cod don't work.

[Admin]

Adjusting this line would do the trick.

d = .Range("a1").CurrentRegion.Value2

rather than taking the current region you can explicitly put the range.

[Ingolf]

Adjusting this line would do the trick.

d = .Range("a1").CurrentRegion.Value2

rather than taking the current region you can explicitly put the range.

Yes you are right.

I am referring to the following situation:
if in file 1 to 5 are header in the range A1: F1 and data in A2: F25, and the file 6 the header is in the range I5: N5 and data in I6: N30 when run the code, error appears in line For i = LBound (DataHeader) To UBound (DataHeader)