Монтаж листовете от различни книги в едно

Предишен ◈ Следващото

Да предположим, че имате куп Excel работна книга, всички листове, които следва да се комбинират в един файл. Копирайте дълго оръжие и трудно, така че има смисъл да се използва прост макрос.







След това можете да се върнете към Excel и стартирате макро създаден през Инструменти - Макро - макроси (Инструменти - Макро - макроси), или чрез натискане на ALT + F8. Показва диалог за отваряне на файла, където трябва да посочите един или повече (задръжте натиснат клавиша CTRL или SHIFT) файлове, списъци на които трябва да бъдат добавени към сегашната книгата.

Сродни връзки

Много удобно нещо.
Досега обаче и други начини не знаят.
Благодаря.

Благодаря. Макро - ПОЖАР! Полезни неща.

Да, съгласен съм, макроса не е лошо, но на лични отказва да работи. Prichny, според мен, е, че някои отбори Лично не приема, или се възприемат като нещо. например ThisWorkbook. Аз повторено макроса сега работи от Лична без проблеми. получи следното:






Разрешение да се говори!
Аз При копиране на листове с книги на различни версии на Excel работи само макроса си, но когато искате да копирате само първия лист с различни книги, имам следния код:

В този макро да работят, всички от първите листове са били успешно копират, но не е страничен ефект:
отвори всички книги, от които се копират тези листове.
Въпрос: Възможно ли е да промените кода, така че да работи по старата схема, но купчина книги не се отваря и аз посочих редица лист искаш?

Той се възползва от макро да се слеят няколко книги в един

Под CombineWorkbooks ()
затъмни FilesToOpen
Дим х Като цяло число

Application.ScreenUpdating = False "деактивирате скоростта на обновяване на екрана

"Обадете се прозореца за избор на файл за импортиране
FilesToOpen = Application.GetOpenFilename _
(FileFilter: = "Всички файлове (* *) * * ..", _
Групов: = Вярно е, Заглавие: = "Файлове за Обединяване";)

Ако TypeName (FilesToOpen) = "Булева" Тогава
MsgBox "Вие нямате файл!"
Exit Sub
Крайна сметка, ако

Application.ScreenUpdating = True
End Sub

всичко работи, много ви благодаря)
Има само един глупав въпрос)
Как да се уверите, че данните в комбинираната книгата обновяват като бъдат направени промени в Съединените книгата?
Благодаря ви предварително!







Предишен ◈ Следващото