Вътре в нашия цикъл са 4-те променливи, на които се присвояват
1) Име на файла,
2) Диапазон на копиране,
3) Къде да копирате и
4) Коя колона съдържа началната клетка за поставяне на данни.
Отваряме работната книга с данни, като използваме метода Application.Workbooks.Open.
След като отворим първата си работна книга за данни, присвояваме променливата dataWB, за да можем лесно да превключваме между двете работни книги и да ги затваряме, когато операцията приключи.
След това избираме данните, които са присвоени на диапазона на копиране и копираме в клипборда.
След това превключваме обратно към основната си работна книга и избираме листа, където искаме да поставим данните, присвоих това на променливата, наречена „strwhereToCopy“. Това ни позволява да поставяме данни върху отделни листове в рамките на една и съща работна книга.
Също така използвах UDF (функция, дефинирана от потребителя), за да намеря последната клетка в колоната, която посочихме.
След като намерим последния ред, след това избираме следващата празна клетка и след това поставяме данните си.
Допълнителни неща, които могат да се използват за подобряване на този код
1. Тъй като използваме същия екземпляр на Excel, може да позволим на потребителя да запази формата на данните, които се поставят.
2. Може да се направи опция за изчистване на данни, преди да бъдат поставени новите.
Може да се обединяват файлове от различни директории и пътища в компютъра, следва да бъде оказан пътя в съответната колона на файла.
Подобрената от мен версия включва вертикално или хоризонтално обединяване на файловете, както и избор на работен лист в който да бъдат обединени файловете, съответно и областта която ще вземем от файловете за обединяване също може да се избере.
И всичко това създадено в една консолидирана таблица.
Линк към файла: Обединяване на данни
Линк към файла: Обединяване на данни версия 2