✅ Комбинујте више радних листова у један

Преглед садржаја

У овом чланку ћемо научити како саставити податке из различитих радних свезака кроз ВБА у програму Мицрософт Екцел.

Хајде да разумемо једноставном вежбом како спојити табелу кроз ВБА у Мицрософт Екцелу.

Имамо 3 различите Екцел датотеке. 2 датотеке су у клск, а једна у клсм у фасцикли. Желимо да упоредимо оба скупа података у Екцел датотеци како бисмо имали неколико ствари на уму да се у свим подацима редови и колоне могу повећавати и смањивати, а такође не знамо ни називе Екцел датотека и колико датотека има у фасцикли .

У овој табели желимо да комбинујемо податке:-

1^ст Подаци:-

2^нд Подаци:-

3^рд Подаци:-

Сада желимо да упоредимо податке у листу. Морамо да следимо доле наведене кораке и код:-

Притисните тастер Алт+Ф11 да отворите ВБЕ страницу за писање макроа.
Затим идите на картицу за уметање и уметните модул.
Напишите испод наведени код на страницу.

Суб Цоллате_Дата ()

Дим ФолдерпатхАс Стринг, филеПатх Ас Стринг, Филенаме Ас Стринг

Фолдерпатх = "Е: \ Екцел Типс \ Нев ВБА тхемес \ ХР Дата \" '(наведите путању до датотеке)

филеПатх = Путања фасцикле & "*клс*"

Име датотеке = Дир (путања до датотеке)

Дим ЛастровСа Лонг, Ластцолумн Ас Лонг
Урадите Док Назив датотеке ""

Воркбоокс.Опен (Фолдерпатх & Филенаме)

Ластров = АцтивеСхеет.Целлс (Ровс.цоунт, 1) .Енд (клУп) .Ров

Ластцолумн = АцтивеСхеет.Целлс (1, Цолумнс.цоунт) .Енд (клТоЛефт) .Цолумн

Опсег (ћелије (2, 1), ћелије (последња, последња колона)). Копирај

Апплицатион.ДисплаиАлертс = Нетачно

АцтивеВоркбоок.Цлосе

еров = Схеет1.Целлс (Ровс.цоунт, 1) .Енд (клУп) .Оффсет (1, 0) .Ров

АцтивеСхеет.Пасте Дестинатион: = Радни листови ("Схеет1"). Распон (ћелије (еров, 1), ћелије (еров, 5))

Назив датотеке = Дир

Лооп

Апплицатион.ДисплаиАлертс = Тачно

Енд Суб

Објашњење кода: - Прво ћемо дефинирати све варијабле које морамо користити при описивању кода. Затим ћемо користити До Вхиле петљу у коду за покретање програма за све Екцел датотеке. Затим ћемо дефинисати путању датотека, а затим ћемо дефинисати последњи ред и колону у Екцел листу, а затим ћемо одредити одредиште за лепљење података.