Asamblarea foile de cărți diferite într-o singură

anterior ◈ următoarea

Să presupunem că aveți o grămadă de registru de lucru Excel, toate foile care trebuie să fie combinate într-un singur fișier. Copiați lung de arme și greu, asa ca are sens să utilizeze un macro simplu.







Puteți reveni apoi la Excel și rula un macro create prin Tools - Macro - Macrocomenzi (Tools - Macro - Macrocomenzi), sau prin apăsarea tastelor ALT + F8. Afișează un fișier de dialog deschis, în cazul în care trebuie să specificați una sau mai multe (țineți apăsat CTRL sau SHIFT) fișierele, din care sunt liste să fie adăugate la cartea curentă.

Link-uri conexe

lucru foarte la îndemână.
Până în prezent, deși alte metode nu știu.
Mulțumesc.

Mulțumesc. Macro - FIRE! lucruri utile.

Da, sunt de acord, macro nu este rău, dar de personal refuză să lucreze. Prichny, cred, este că unele echipe de personal nu acceptă, sau percepută ca fiind altceva. de exemplu ThisWorkbook. Am refăcut macro funcționează acum de personal fără probleme. a primit următoarele:






Cer permisiunea de a vorbi!
Am când foi de copiere cu cărți de diferite versiuni de Excel funcționează numai macro, dar atunci când vreau să copiați doar prima foaie cu diferite cărți, am următorul cod:

În acest macro pentru a lucra, toate primele foi au fost copiate cu succes, dar nu a fost un efect secundar:
deschide toate cărțile din care sunt copiate aceste foi.
Întrebare: Este posibil să se schimbe codul, astfel încât acesta a lucrat în cadrul schemei vechi, dar o grămadă de cărți nu este deschis și am arătat o foaie de număr doriți?

El a profitat de un macro pentru a fuziona mai multe cărți într-o singură

CombineWorkbooks Sub ()
dim FilesToOpen
x Dim As Integer

Application.ScreenUpdating = false „dezactiva viteza de actualizare de ecran

„Apelați dialogul de selectare a fișierului pentru a importa
FilesToOpen = Application.GetOpenFilename _
(FileFilter: = "Toate fișierele (* *), * * ..", _
Selecție multiplă: = true, Titlu: = "Fișiere pentru Merge";)

Dacă TYPENAME (FilesToOpen) = "boolean" Atunci
MsgBox „Nu ai nici un fișier!“
Exit Sub
End If

Application.ScreenUpdating = Adevărat
end Sub

totul funcționează, vă mulțumesc foarte mult)
Există doar o singură întrebare stupidă)
Cum să se asigure că datele din carte combinate actualizate ca modificări sunt făcute în cartea unită?
Vă mulțumim anticipat!







anterior ◈ următoarea