Преглед садржаја
Да бисте комбиновали радне свеске у Екцелу, користите следећи код. Овај код ће узети све прве листове у свакој радној свесци која се налази у директоријуму:
| 123456789101112131415161718192021222324252627282930313233343536 | 'Споји радне свескеСуб МергеВБ ()Апплицатион.ЕнаблеЕвентс = НетачноАпплицатион.СцреенУпдатинг = НетачноДим патх Ас Стринг, ТхисВБ Ас Стринг, лнгФилецоунтер Ас ЛонгЗатамни вбДест као радну свеску, схтДест као радни лист, вс као радни листДим Име датотеке као низ, Вкб као радна свескаДим ЦопиРнг Ас Ранге, Дест Ас РангеДим РовофЦопиСхеет Ас ИнтегерРовофЦопиСхеет = 2 'Ред за почетак у листовима са којих копиратеТхисВБ = АцтивеВоркбоок.Намепатх = ГетДирецтори ("Изаберите фасциклу која садржи Екцел датотеке које желите да спојите")Постави схтДест = АцтивеВоркбоок.Схеетс (1)Назив датотеке = Дир (путања & "\*. Кслсм", вбНормал)Ако је Лен (назив датотеке) = 0, тада изађите из подмУрадите све до Филенаме = вбНуллСтрингАко није Назив датотеке = ТхисВБ ОндаПодесите Вкб = Радне свеске.Отворите (Назив датотеке: = путања & "\" & Назив датотеке)Подесите ЦопиРнг = Вкб.Схеетс (1) .Ранге (ћелије (РовофЦопиСхеет, 1), ћелије (АцтивеСхеет.УседРанге.Ровс.Цоунт, АцтивеСхеет.УседРанге.Цолумнс.Цоунт))Постави Дест = схтДест.Ранге ("А" & схтДест.УседРанге.СпециалЦеллс (клЦеллТипеЛастЦелл) .Ров + 1)ЦопиРнг.Цост ДестВкб.Цлосе ФалсеКрај АкоНазив датотеке = Дир ()ЛоопАпплицатион.ЕнаблеЕвентс = ТачноАпплицатион.СцреенУпдатинг = ТачноМсгБок "Макро завршен"Енд Суб |
Господине Екцел
